Kết quả tìm kiếm

Bạn thử cái này coi

Các bạn dùng code add new id này chuẩn hơn. Get ID lớn nhất trong bảng sẽ không bị trùng. Có ai có ý kiến gì ko? Sub AddIDNew() Dim srcRng As Range, Arr, i As Long Dim n As String 'On Error GoTo Handle Dim lsSQL As String: Dim rst As New ADODB.Recordset Dim table As Variant Dim LastRow As Long...

Đây là hàm get New ID dựa trên ID trong CSDL tăng 1 Tuy nhiên chưa kiểm tra được ID có trùng trong CSDL không? Bạn nào biết sửa lại giùm. Sub AddIDNew() Dim srcRng As Range, Arr, i As Long, n As Long On Error GoTo Handle Dim lsSQL As String: Dim rst As New ADODB.Recordset Dim table As Variant...

Hi all, Sau 1 thời gian mày mò tìm cách update giờ mới đc. Các bạn tham khảo góp ý. Thanks

Chú ý: khi có lỗi trong câu lện SQL có thể là CSDL chưa được kết nối. khi truy vấn CSDL cần gọi kết nối If cnn.State <> 1 Then Moketnoi Your code here Exit sub

Dùng ADO cũng nhanh mà, Code nhiều là do mình dùng thêm hàm kiểm tra bắt lỗi thôi. Option Explicit Sub AddData() Dim cn As ADODB.Connection Set cn = New ADODB.Connection Dim myPathAcc As String Dim myPathExl As String Dim answer As Integer Dim acc As New Access.Application Dim table As...

Không hiểu lắm, đưa file lên xem nào

Hỏi ông Google hết mà =))

Thêm hàm tạo file CSDL backup Function fMakeBackup() As Boolean Dim Source As String Dim Target As String Dim retval As Integer Dim CheckExists As Boolean Source = ThisWorkbook.Path & "\GCSCAK.accdb" Target = ThisWorkbook.Path & "\Backup\GCSCAK" Target = Target &...

Cảm ơn VietMini, Mình xử lý được vấn đề này rồi. Mình lấy tên bảng từ Inputbox tuy nhiên phải khai báo table as Variant

Trích xuất dữ liệu Excel và Access Chào các bạn, Hôm nay mình tải bản đầy đủ được nghiên cứu chắp vá từ các diễn đàn về việc truy xuất dữ liệu Excel và Access Trong đó có các hàm về: + Kết nối CSDL + Tạo bảng + Ghi dữ liệu + Xuất dữ liệu + Kiểm tra bảng Khắc phục một số vấn đề về...

Chào các bạn, Mình chạy code sau nhưng có lỗi câu lệnh SQL, các bạn giúp mình với Sub TAOBANG() On Error GoTo loi Dim table As String 'table = Right(Sheet1.Cells(2, 1), 4) table = InputBox("Nhap nam de tao csdl", "CSDL", "e.g 2016, 2017...") Dim lsSQL As String: Dim rst As New ADODB.Recordset...

Thay thế: For i = 0 To objRecordset.Fields.Count - 1 'check for a match If strField = objRecordset.Fields.Item(i).Name Then 'exist function and return true CheckExists = True Exit Function End If Next i 'return false CheckExists = False

Code của Hai lúa mình ko chỉnh được insert vào access Mình có code này chạy nhanh Sub AddData() Dim Cn As ADODB.Connection Set Cn = New ADODB.Connection Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Tai lieu co quan\PX15\PM CSCAK\Giai CSCA khoe13.xlsm;Extended Properties=Excel...

Bài viết hai lúa hay thế này mà ko có ai like sao =))

Nhất trí, rất hay. Để khi nào ngâm cứu lại

Đóng góp thêm function kiểm tra sự tồn tại của bảng Access sử dụng Excel VBA Mình vừa tìm được cái này để kiểm tra sự tồn tại của bảng để Ghi hoặc xóa dữ liệu nếu có. Option Explicit Function CheckExitTable(ByVal strField As String) As Boolean 'an Access object Dim objAccess As Object...

Dùng SQL chắc nhanh hơn. Bạn hỏi HieuCD xem có giúp được không.

Uhm, Tham khảo bài viết của hai lúa. Mình đang sửa lại hàm ghi dữ liệu sử dụng SQL command xem có nhanh hơn không nhưng chưa được. Hàm ghi ACCimport chạy mất 6-7s mới đc có vẻ hơi lâu

Cái này không làm đc rồi, nhờ các pro thôi.