<![CDATA[Thủ Thuật Access - Thủ thuật VBA]]> https://thuthuataccess.com/forum/ Sat, 18 Apr 2026 13:42:02 +0000 MyBB <![CDATA[Kết nối bảng từ access A đến access B]]> https://thuthuataccess.com/forum/thread-13040.html Tue, 09 Apr 2024 05:08:46 +0000 hieunx]]> https://thuthuataccess.com/forum/thread-13040.html Nay mình cần gom lại chung. Nhờ anh chị diên đàn giúp mình. Mình gửi demo nhờ anh chị xem giúp ạ.
Mình có: App.accdb (chưa form, table thì link tới P1, hoặc P2, chưa table có tên và cấu trúc giống nhau).
Trên App.accdb, mình có 1 form, gồm 2 nút lệnh. có thể giúp mình khi bấm nút Data1 thì mở form "hoSoThuPhi" và table thì link đến table ở P1.accdb, còn khi bấm Data2 thì  mở form "hoSoThuPhi" và table thì link đến table ở P2.accdb
Mình mới tập tành về VBA nên mong các anh chị giúp đỡ.
File đính kèm: https://drive.google.com/file/d/1o5Qf8bl...sp=sharing]]> Nay mình cần gom lại chung. Nhờ anh chị diên đàn giúp mình. Mình gửi demo nhờ anh chị xem giúp ạ.
Mình có: App.accdb (chưa form, table thì link tới P1, hoặc P2, chưa table có tên và cấu trúc giống nhau).
Trên App.accdb, mình có 1 form, gồm 2 nút lệnh. có thể giúp mình khi bấm nút Data1 thì mở form "hoSoThuPhi" và table thì link đến table ở P1.accdb, còn khi bấm Data2 thì  mở form "hoSoThuPhi" và table thì link đến table ở P2.accdb
Mình mới tập tành về VBA nên mong các anh chị giúp đỡ.
File đính kèm: https://drive.google.com/file/d/1o5Qf8bl...sp=sharing]]> <![CDATA[Kết nối Excel vs Access bằng ADODB - Truy vấn bị lỗi khi tên sheet trong Excel ko đặt]]> https://thuthuataccess.com/forum/thread-12691.html Wed, 25 Oct 2023 08:30:04 +0000 subasatran]]> https://thuthuataccess.com/forum/thread-12691.html Em có sử dụng kết nối ADODB kết nối Excel và Access để import data từ excel vào access để xử lý dữ liệu.
Tuy nhiên, khi chạy code import thì bị gặp lỗi như sau :
Nếu tên Sheet của file Excel được đặt tên thì code chạy ổn(ví dụ như tên sheet là Data).

Mã PHP:
    Set rs = CreateObject("ADODB.Recordset")
    FilePath = CurrentProject.Path & "\" & FileName & ".xlsx"
    SQL = "select * from [Data$A1:AA]"
    Strconnect = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FilePath _
                & ";Extended Properties=""Excel 12.0 Xml;HDR=Yes;"";")
    rs.Open SQL, Strconnect, 3, 1 
Trong trường hợp nếu tên Sheet trong file excel không được đặt tên(có nghĩa là để nguyên mặc định Sheet1).
Thì code import báo lỗi ở câu lệnh SQL.
Mã PHP:
    Set rs = CreateObject("ADODB.Recordset")
    FilePath = CurrentProject.Path & "\" & FileName & ".xlsx"
    SQL = "select * from [Sheet1$A1:AA]"
    Strconnect = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FilePath _
                & ";Extended Properties=""Excel 12.0 Xml;HDR=Yes;"";")
    rs.Open SQL, Strconnect, 3, 1 
Vậy mọi người cho em hỏi là : 
a. nguyên nhân báo lỗi là do đâu vậy ?
b.Làm sao để khi tên sheet của file excel để nguyên mặc dịnh là Sheet1 thì code vẫn chạy được ạ ?do các file excel này được exporrt từ hệ thống và rất nhiều file nên không thể mở từng file để đặt tên sheet được
Rất cám ơn mọi người.]]> Em có sử dụng kết nối ADODB kết nối Excel và Access để import data từ excel vào access để xử lý dữ liệu.
Tuy nhiên, khi chạy code import thì bị gặp lỗi như sau :
Nếu tên Sheet của file Excel được đặt tên thì code chạy ổn(ví dụ như tên sheet là Data).

Mã PHP:
    Set rs = CreateObject("ADODB.Recordset")
    FilePath = CurrentProject.Path & "\" & FileName & ".xlsx"
    SQL = "select * from [Data$A1:AA]"
    Strconnect = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FilePath _
                & ";Extended Properties=""Excel 12.0 Xml;HDR=Yes;"";")
    rs.Open SQL, Strconnect, 3, 1 
Trong trường hợp nếu tên Sheet trong file excel không được đặt tên(có nghĩa là để nguyên mặc định Sheet1).
Thì code import báo lỗi ở câu lệnh SQL.
Mã PHP:
    Set rs = CreateObject("ADODB.Recordset")
    FilePath = CurrentProject.Path & "\" & FileName & ".xlsx"
    SQL = "select * from [Sheet1$A1:AA]"
    Strconnect = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FilePath _
                & ";Extended Properties=""Excel 12.0 Xml;HDR=Yes;"";")
    rs.Open SQL, Strconnect, 3, 1 
Vậy mọi người cho em hỏi là : 
a. nguyên nhân báo lỗi là do đâu vậy ?
b.Làm sao để khi tên sheet của file excel để nguyên mặc dịnh là Sheet1 thì code vẫn chạy được ạ ?do các file excel này được exporrt từ hệ thống và rất nhiều file nên không thể mở từng file để đặt tên sheet được
Rất cám ơn mọi người.]]> <![CDATA[Xử lý dữ liệu trong subform sau khi đã bị đóng Recordset trước đó]]> https://thuthuataccess.com/forum/thread-12660.html Wed, 02 Aug 2023 09:40:06 +0000 AnNguyen]]> https://thuthuataccess.com/forum/thread-12660.html Nhưng có 1 điểm mà em chưa biết giải quyết sao.

nếu sau mỗi câu lệnh :
Mã PHP:
set SubformABC.form.recordset = rst
rst.close
conn.close 


Thì sẽ xảy ra vấn đề nếu thao tác với subform như, lấy giá trị trong subform bằng


Mã PHP:
While not rst.EOF
.......
wend 


thì luôn bị lỗi do đã đóng kết nối và đóng Recordset.
Vì vậy trong ứng dụng của em luôn luôn không đóng kết nối và em cũng biết điều này ảnh hưởng đến tốc độ và hiệu năng sử dụng.
Nếu recordset được đổ vào listbox hoặc combobox thì dữ liệu vẫn xử lý được do dùng vòng lặp For là có thể lấy được giá trị trong đó ra.
Nhưng riêng với subform thì không thể.
Vậy có cách nào để cải thiện không ạ?
Em cảm ơn!]]> Nhưng có 1 điểm mà em chưa biết giải quyết sao.

nếu sau mỗi câu lệnh :
Mã PHP:
set SubformABC.form.recordset = rst
rst.close
conn.close 


Thì sẽ xảy ra vấn đề nếu thao tác với subform như, lấy giá trị trong subform bằng


Mã PHP:
While not rst.EOF
.......
wend 


thì luôn bị lỗi do đã đóng kết nối và đóng Recordset.
Vì vậy trong ứng dụng của em luôn luôn không đóng kết nối và em cũng biết điều này ảnh hưởng đến tốc độ và hiệu năng sử dụng.
Nếu recordset được đổ vào listbox hoặc combobox thì dữ liệu vẫn xử lý được do dùng vòng lặp For là có thể lấy được giá trị trong đó ra.
Nhưng riêng với subform thì không thể.
Vậy có cách nào để cải thiện không ạ?
Em cảm ơn!]]> <![CDATA[Đẩy file word.doc lên googdriver và mở file đó bằng VBA]]> https://thuthuataccess.com/forum/thread-12658.html Mon, 31 Jul 2023 12:42:20 +0000 tt1212]]> https://thuthuataccess.com/forum/thread-12658.html bạn nào đã từng làm trao đổi hỗ trợ minh được không]]> bạn nào đã từng làm trao đổi hỗ trợ minh được không]]> <![CDATA[Xuất ra Excel không mong muốn]]> https://thuthuataccess.com/forum/thread-12636.html Wed, 28 Jun 2023 10:15:34 +0000 Accessv07]]> https://thuthuataccess.com/forum/thread-12636.html ongke0711, Query dạng .Range("A2").CopyFromRecordset rs
thì ô Excel hiển thị "=0.95*100" mà không hiển thị kết quả "95"
và tôi phải chạy để ra kết quả "95"
Mã PHP:
        For i = 1 To rs.RecordCount Step 1
            ki = (.Cells(i, 7).Value)
            If ki <> "" Then
            .Cells(i, 7).Value = ki
            End If
        Next i 

Thêm dòng lệnh làm cho ứng dụng chạy chậm, vậy có cách nào khác gán .value "=0.95*100" bằng công thức "95" nhanh gọn không?  027]]> ongke0711, Query dạng .Range("A2").CopyFromRecordset rs
thì ô Excel hiển thị "=0.95*100" mà không hiển thị kết quả "95"
và tôi phải chạy để ra kết quả "95"
Mã PHP:
        For i = 1 To rs.RecordCount Step 1
            ki = (.Cells(i, 7).Value)
            If ki <> "" Then
            .Cells(i, 7).Value = ki
            End If
        Next i 

Thêm dòng lệnh làm cho ứng dụng chạy chậm, vậy có cách nào khác gán .value "=0.95*100" bằng công thức "95" nhanh gọn không?  027]]> <![CDATA[Bị báo lỗi "Method or data member not found"]]> https://thuthuataccess.com/forum/thread-12632.html Fri, 23 Jun 2023 07:45:54 +0000 longkd_bvct@yahoo.com.vn]]> https://thuthuataccess.com/forum/thread-12632.html
Mã:
Sub TimGiaTriTrungNhau()
    Dim db As DAO.Database
    Dim rs1 As DAO.Recordsets
    Dim rs2 As DAO.Recordsets
    Dim giaTri As Variant
    Dim trungNhau As String
 
  Set db = CurrentDb
  Set rs1 = CurrentDb.OpenRecordset(qrydaxuat)
  Set rs2 = CurrentDb.OpenRecordset(tbldanhap)
rs1.MoveFirst
Do Until rs1.EOF
giaTri = rs1.Fields("MaHH").Value
        rs2.FindFirst "MaHH='" & giaTri & "'"
        If Not rs2.NoMatch Then
            trungNhau = trungNhau & giaTri & ", "
        End If
        rs1.MoveNext
Loop
    rs1.Close
    rs2.Close
    db.Close
    If Len(trungNhau) > 0 Then
        trungNhau = Left(trungNhau, Len(trungNhau) - 2)
    End If
    MsgBox "Các giá tr? trùng nhau: " & trungNhau
End Sub

Mọi người xem giúp em bị sai chổ nào mà khi chạy lại báo lỗi: "Method or data member not found" ạ]]>
Mã:
Sub TimGiaTriTrungNhau()
    Dim db As DAO.Database
    Dim rs1 As DAO.Recordsets
    Dim rs2 As DAO.Recordsets
    Dim giaTri As Variant
    Dim trungNhau As String
 
  Set db = CurrentDb
  Set rs1 = CurrentDb.OpenRecordset(qrydaxuat)
  Set rs2 = CurrentDb.OpenRecordset(tbldanhap)
rs1.MoveFirst
Do Until rs1.EOF
giaTri = rs1.Fields("MaHH").Value
        rs2.FindFirst "MaHH='" & giaTri & "'"
        If Not rs2.NoMatch Then
            trungNhau = trungNhau & giaTri & ", "
        End If
        rs1.MoveNext
Loop
    rs1.Close
    rs2.Close
    db.Close
    If Len(trungNhau) > 0 Then
        trungNhau = Left(trungNhau, Len(trungNhau) - 2)
    End If
    MsgBox "Các giá tr? trùng nhau: " & trungNhau
End Sub

Mọi người xem giúp em bị sai chổ nào mà khi chạy lại báo lỗi: "Method or data member not found" ạ]]> <![CDATA[Câu lệnh VBA không chạy]]> https://thuthuataccess.com/forum/thread-12608.html Wed, 26 Apr 2023 08:40:17 +0000 hoat]]> https://thuthuataccess.com/forum/thread-12608.html Mình có 1 form nhập liệu có các text box và check box như sau:
Text box:  txtGiatriPO,  txtTonggiatriPOcoVAT,  txtDongtienthanhtoan,  txtSotiencanthanhtoanVND,  txtSotiencanthanhtoanUSD, ......
và 1 check box:  cboxVAT_TU.
Mình muốn viết sự kiên cho check box:  cboxVAT_TU để tính số tiền cho 2 tex box:  txtSotiencanthanhtoanVND,  txtSotiencanthanhtoanUSD
với các điều kiện như sau:
Nếu  txtDongtienthanhtoan = "VND" thì  txtSotiencanthanhtoanUSD = 0
Nếu txtDongtienthanhtoan = "VND" và txtTamung = “Da thanh toan” và txtThanhtoanL1 = “Da thanh toan” và txtThanhtoanL2 = “Da thanh toan” và txtThanhtoanL3 = “Da thanh toan” thì  txtSotiencanthanhtoanVND = 0
Nếu txtDongtienthanhtoan = "VND" và txtTamung = “Da thanh toan” và txtThanhtoanL1 = “Da thanh toan” và txtThanhtoanL2 = “Da thanh toan” và txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotienthanhtoanL3VND
...... cư lần lượt như vậy. Mình đã viết đoạn mã VBA sau mà không tính được, nhờ anh chị em xem giúp

Private Sub cboxVAT_TU_Click()
If txtDongtienthanhtoan = "VND" And cboxVAT_TU = True Then
    txtSotientamungVND = txtTonggiatriPOcoVAT * txtGiatriphantramtamung
    txtSotientamungUSD = 0
    ElseIf txtDongtienthanhtoan = "VND" And cboxVAT_TU = False Then
    txtSotientamungVND = txtGiatriPO * txtGiatriphantramtamung
    txtSotientamungUSD  = 0
Else
    If txtDongtienthanhtoan <> "VND" And cboxVAT_TU = True Then
    txtSotientamungUSD  = txtTonggiatriPOcoVAT * txtGiatriphantramtamung
    txtSotientamungVND = 0
    ElseIf txtDongtienthanhtoan <> "VND" And cboxVAT_TU = False Then
    txtSotientamungUSD  = txtGiatriPO * txtGiatriphantramtamung
    txtSotientamungVND = 0
End If
 
If txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanVND = 0
    End If
    If txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotienthanhtoanL3VND
    End If
    If txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
    End If
    If txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
    End If
    If txtDongtienthanhtoan = "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotientamungVND
    End If
    If txtDongtienthanhtoan = "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotientamungVND + txtSotienthanhtoanL1VND
    End If
    If txtDongtienthanhtoan = "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotientamungVND + txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND
    End If
    If txtDongtienthanhtoan = "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotientamungVND + txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
    End If
    If txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND
    End If
    If txtDongtienthanhtoan = "VND" And txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotienthanhtoanL1VND + txtSotienthanhtoanL3VND
    End If
If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = 0
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotienthanhtoanL3VND
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotientamungVND
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotientamungVND + txtSotienthanhtoanL1VND
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotientamungVND + txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotientamungVND + txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotienthanhtoanL1VND + txtSotienthanhtoanL3VND
End If
End If
 
End Sub]]> Mình có 1 form nhập liệu có các text box và check box như sau:
Text box:  txtGiatriPO,  txtTonggiatriPOcoVAT,  txtDongtienthanhtoan,  txtSotiencanthanhtoanVND,  txtSotiencanthanhtoanUSD, ......
và 1 check box:  cboxVAT_TU.
Mình muốn viết sự kiên cho check box:  cboxVAT_TU để tính số tiền cho 2 tex box:  txtSotiencanthanhtoanVND,  txtSotiencanthanhtoanUSD
với các điều kiện như sau:
Nếu  txtDongtienthanhtoan = "VND" thì  txtSotiencanthanhtoanUSD = 0
Nếu txtDongtienthanhtoan = "VND" và txtTamung = “Da thanh toan” và txtThanhtoanL1 = “Da thanh toan” và txtThanhtoanL2 = “Da thanh toan” và txtThanhtoanL3 = “Da thanh toan” thì  txtSotiencanthanhtoanVND = 0
Nếu txtDongtienthanhtoan = "VND" và txtTamung = “Da thanh toan” và txtThanhtoanL1 = “Da thanh toan” và txtThanhtoanL2 = “Da thanh toan” và txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotienthanhtoanL3VND
...... cư lần lượt như vậy. Mình đã viết đoạn mã VBA sau mà không tính được, nhờ anh chị em xem giúp

Private Sub cboxVAT_TU_Click()
If txtDongtienthanhtoan = "VND" And cboxVAT_TU = True Then
    txtSotientamungVND = txtTonggiatriPOcoVAT * txtGiatriphantramtamung
    txtSotientamungUSD = 0
    ElseIf txtDongtienthanhtoan = "VND" And cboxVAT_TU = False Then
    txtSotientamungVND = txtGiatriPO * txtGiatriphantramtamung
    txtSotientamungUSD  = 0
Else
    If txtDongtienthanhtoan <> "VND" And cboxVAT_TU = True Then
    txtSotientamungUSD  = txtTonggiatriPOcoVAT * txtGiatriphantramtamung
    txtSotientamungVND = 0
    ElseIf txtDongtienthanhtoan <> "VND" And cboxVAT_TU = False Then
    txtSotientamungUSD  = txtGiatriPO * txtGiatriphantramtamung
    txtSotientamungVND = 0
End If
 
If txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanVND = 0
    End If
    If txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotienthanhtoanL3VND
    End If
    If txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
    End If
    If txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
    End If
    If txtDongtienthanhtoan = "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotientamungVND
    End If
    If txtDongtienthanhtoan = "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotientamungVND + txtSotienthanhtoanL1VND
    End If
    If txtDongtienthanhtoan = "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotientamungVND + txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND
    End If
    If txtDongtienthanhtoan = "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotientamungVND + txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
    End If
    If txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND
    End If
    If txtDongtienthanhtoan = "VND" And txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanVND = txtSotienthanhtoanL1VND + txtSotienthanhtoanL3VND
    End If
If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = 0
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotienthanhtoanL3VND
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotientamungVND
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotientamungVND + txtSotienthanhtoanL1VND
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotientamungVND + txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotientamungVND + txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND
    End If
    If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
    txtSotiencanthanhtoanUSD = txtSotienthanhtoanL1VND + txtSotienthanhtoanL3VND
End If
End If
 
End Sub]]> <![CDATA[Nhờ các bạn hỗ trợ]]> https://thuthuataccess.com/forum/thread-12603.html Mon, 17 Apr 2023 13:36:39 +0000 tranthanhan1962]]> https://thuthuataccess.com/forum/thread-12603.html Trước mắt mở database tạo cái table userlogin. Nhớ lại đ/c Mai Định Dân có skill login phân quyền nên nhờ bạn ấy giúp gởi cái demo cho mình trước. (thank Dân trước nhé). Viết xong phần này chắc mình còn nhờ anh em dài dài, Các đ/c: Noname, Xuân Thanh, cpucloi, Minh Tiên, ledangvan... mình cám ơn trước. (Dân nếu gửi link cho mình thì gmail của mình là tranthanhan1962@gmail.com thank you)]]> Trước mắt mở database tạo cái table userlogin. Nhớ lại đ/c Mai Định Dân có skill login phân quyền nên nhờ bạn ấy giúp gởi cái demo cho mình trước. (thank Dân trước nhé). Viết xong phần này chắc mình còn nhờ anh em dài dài, Các đ/c: Noname, Xuân Thanh, cpucloi, Minh Tiên, ledangvan... mình cám ơn trước. (Dân nếu gửi link cho mình thì gmail của mình là tranthanhan1962@gmail.com thank you)]]> <![CDATA[Lỗi OLE Server or ActiveX Control]]> https://thuthuataccess.com/forum/thread-12598.html Thu, 13 Apr 2023 07:12:39 +0000 huuduy.duy]]> https://thuthuataccess.com/forum/thread-12598.html Em có tải 1 file trên mạng (Link bài viết) về để tìm hiểu, nhưng khi mở lên thì báo lỗi như ảnh.
Nhờ các anh chị hướng dẫn khác phục
Trân trọng cảm ơn
http://www.mediafire.com/file/qypsk99dgb...%293.accdb
[Hình: Screenshot-2023-04-13-140119591339694ce1e032.png]]]> Em có tải 1 file trên mạng (Link bài viết) về để tìm hiểu, nhưng khi mở lên thì báo lỗi như ảnh.
Nhờ các anh chị hướng dẫn khác phục
Trân trọng cảm ơn
http://www.mediafire.com/file/qypsk99dgb...%293.accdb
[Hình: Screenshot-2023-04-13-140119591339694ce1e032.png]]]> <![CDATA[Câu lệnh SQL không chạy khi thay giá trị bằng ô được đặt tên sẵn]]> https://thuthuataccess.com/forum/thread-12581.html Sat, 25 Mar 2023 14:59:36 +0000 Đình Phán]]> https://thuthuataccess.com/forum/thread-12581.html
Mã:
Public Sub Search_Debit()


Dim MyCnn As Object
Dim MyRs As Object
Dim MySQL As String

Application.ScreenUpdating = False
   
Set MyCnn = CreateObject("ADODB.Connection")
Set MyRs = CreateObject("ADODB.Recordset")
    'ConnectionString Excel *xlsb
    'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\myFolder\myBinaryExcel2007file.xlsb;Extended Properties="Excel 12.0;HDR=YES";
MyCnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES"";"

'MySQL = "SELECT [Ngay_Thang],[So_Tien],[Dien_Giai] FROM [Debit$A:E] WHERE ((([Tai_Khoan] like " & [Account] & ") AND ([Ma_Doi_Tuong] like ""B"") AND ([Ngay_Thang] BETWEEN #" & [Date_1] & "# AND #" & [Date_2] & "#)));"

MySQL = "SELECT [Ngay_Thang],[So_Tien],[Dien_Giai] FROM [Debit$A:E] WHERE ((([Tai_Khoan] like " & [Account] & ") AND ([Ma_Doi_Tuong] like " & [MET] & ") AND ([Ngay_Thang] BETWEEN #" & [Date_1] & "# AND #" & [Date_2] & "#)));"

MyRs.Open MySQL, MyCnn
Sheets("Search").Range("A9:E1000").ClearContents
Sheets("Search").Range("B9").CopyFromRecordset MyRs

MyCnn.Close
Set MyRs = Nothing
Set MyCnn = Nothing

Application.ScreenUpdating = True

End Sub


Em có thực hiện kết nối đến excel và gọi dữ liệu từ 1 sheet, các biến em đã đặt tên, tuy nhiên với Biến Đối tượng, khi thay bằng giá trị đặt tên thì báo lỗi, em ko tìm ra lỗi ở đâu.
Với đợn MySQL ở trên thì chạy được, giờ em muốn giá trị ô đó động nên có đặt tên là MET, nhưng thay vào thành MySQL bên dưới thì lỗi.
Mong các anh, chị trợ giúp

em cảm ơn.]]>
Mã:
Public Sub Search_Debit()


Dim MyCnn As Object
Dim MyRs As Object
Dim MySQL As String

Application.ScreenUpdating = False
   
Set MyCnn = CreateObject("ADODB.Connection")
Set MyRs = CreateObject("ADODB.Recordset")
    'ConnectionString Excel *xlsb
    'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\myFolder\myBinaryExcel2007file.xlsb;Extended Properties="Excel 12.0;HDR=YES";
MyCnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES"";"

'MySQL = "SELECT [Ngay_Thang],[So_Tien],[Dien_Giai] FROM [Debit$A:E] WHERE ((([Tai_Khoan] like " & [Account] & ") AND ([Ma_Doi_Tuong] like ""B"") AND ([Ngay_Thang] BETWEEN #" & [Date_1] & "# AND #" & [Date_2] & "#)));"

MySQL = "SELECT [Ngay_Thang],[So_Tien],[Dien_Giai] FROM [Debit$A:E] WHERE ((([Tai_Khoan] like " & [Account] & ") AND ([Ma_Doi_Tuong] like " & [MET] & ") AND ([Ngay_Thang] BETWEEN #" & [Date_1] & "# AND #" & [Date_2] & "#)));"

MyRs.Open MySQL, MyCnn
Sheets("Search").Range("A9:E1000").ClearContents
Sheets("Search").Range("B9").CopyFromRecordset MyRs

MyCnn.Close
Set MyRs = Nothing
Set MyCnn = Nothing

Application.ScreenUpdating = True

End Sub


Em có thực hiện kết nối đến excel và gọi dữ liệu từ 1 sheet, các biến em đã đặt tên, tuy nhiên với Biến Đối tượng, khi thay bằng giá trị đặt tên thì báo lỗi, em ko tìm ra lỗi ở đâu.
Với đợn MySQL ở trên thì chạy được, giờ em muốn giá trị ô đó động nên có đặt tên là MET, nhưng thay vào thành MySQL bên dưới thì lỗi.
Mong các anh, chị trợ giúp

em cảm ơn.]]> <![CDATA[Lấy dữ liệu nhập vào Textbox/Combobox để setRowsource ListBox]]> https://thuthuataccess.com/forum/thread-12549.html Sun, 08 Jan 2023 04:53:34 +0000 Minh Tiên]]> https://thuthuataccess.com/forum/thread-12549.html Tiên có 1 "mong muốn": Khi rõ 1 ký tự vào 1 TextBox hoặc Combobox thì sẽ lấy ngay giá trị của TextBox/Combobox này để tham chiếu cho sql nạp Rowsource cho 1 Listbox trên cùng form.
Tiên dùng lệnh Me!Textbox.Text để lấy, nhưng lệnh này lúc chạy đc, lúc báo lỗi 2185. Tiên đã search trên Net vẫn chưa tìm rà cách giải quyết. Nhờ ACE nghiên cứu có cách nào giải quyết được "mong muốn" trên ko ?
Cảm ơn cả nhà !]]> Tiên có 1 "mong muốn": Khi rõ 1 ký tự vào 1 TextBox hoặc Combobox thì sẽ lấy ngay giá trị của TextBox/Combobox này để tham chiếu cho sql nạp Rowsource cho 1 Listbox trên cùng form.
Tiên dùng lệnh Me!Textbox.Text để lấy, nhưng lệnh này lúc chạy đc, lúc báo lỗi 2185. Tiên đã search trên Net vẫn chưa tìm rà cách giải quyết. Nhờ ACE nghiên cứu có cách nào giải quyết được "mong muốn" trên ko ?
Cảm ơn cả nhà !]]> <![CDATA[Nối dữ liệu từ nhiều file excell có cùng field]]> https://thuthuataccess.com/forum/thread-12439.html Mon, 13 Jun 2022 14:48:20 +0000 family]]> https://thuthuataccess.com/forum/thread-12439.html Nhờ các bậc tiền bối hướng dẫn giúp em với ạ.
https://drive.google.com/drive/folders/1...sp=sharing]]> Nhờ các bậc tiền bối hướng dẫn giúp em với ạ.
https://drive.google.com/drive/folders/1...sp=sharing]]> <![CDATA[Câu lệnh kiểm tra các giá trị tại Form không được trống]]> https://thuthuataccess.com/forum/thread-12437.html Fri, 10 Jun 2022 01:45:55 +0000 Đình Phán]]> https://thuthuataccess.com/forum/thread-12437.html
Em có vấn đề này mong các anh giúp.

1. Em muốn viết 1 đoạn VBA để kiểm tra các textbox trong form Header đã được nhập hay chưa. Nếu chưa nhập thì thoát Thủ tục
2. Chạy 1 thủ tục khác, để nhập số liệu vào sub form , lấy giá trị đang có tại 1 textbox của form Header để gán vào sub form

Em cảm ơn.

Private Sub Command57_Click()
    If [Forms]![fmTraHeader]![Ma_Phieu_Tra].Value = "" Then
        MsgBox "Ban chua nhap Ma Phieu Tra", vbOKOnly, "Thong bao"
        Exit Sub
    Else
        DoCmd.OpenForm "fmTTPhieuMuon1", acViewNormal
    End If
End Sub]]>
Em có vấn đề này mong các anh giúp.

1. Em muốn viết 1 đoạn VBA để kiểm tra các textbox trong form Header đã được nhập hay chưa. Nếu chưa nhập thì thoát Thủ tục
2. Chạy 1 thủ tục khác, để nhập số liệu vào sub form , lấy giá trị đang có tại 1 textbox của form Header để gán vào sub form

Em cảm ơn.

Private Sub Command57_Click()
    If [Forms]![fmTraHeader]![Ma_Phieu_Tra].Value = "" Then
        MsgBox "Ban chua nhap Ma Phieu Tra", vbOKOnly, "Thong bao"
        Exit Sub
    Else
        DoCmd.OpenForm "fmTTPhieuMuon1", acViewNormal
    End If
End Sub]]> <![CDATA[Xin hướng dẫn cách tạo pass cho file access bằng VBA]]> https://thuthuataccess.com/forum/thread-12435.html Wed, 08 Jun 2022 05:08:57 +0000 doandinhtam]]> https://thuthuataccess.com/forum/thread-12435.html <![CDATA[Xuất giá trị 2 field trong 1 Query ra Msgbox (thông báo)]]> https://thuthuataccess.com/forum/thread-12432.html Fri, 03 Jun 2022 10:14:46 +0000 Đình Phán]]> https://thuthuataccess.com/forum/thread-12432.html
Hiện em có làm 1 query để xuất ra 2 cột, là các giá trị có tại bảng A nhưng không có tại bảng B
Giờ em muốn gán lần lượt các giá trị đó là Msgbox.
Tức là sẽ hiện ra màn hình thông báo rằng các giá trị này không có trong bảng B

Ví dụ như trong excel thì dễ, em có thể gán từng giá trị của range (dùng vòng lặp) ra Msgbox được.
Nhưng với Recordset trong Access thì em còn mông lung quá.

Mong các anh, chị giúp đỡ. Cảm ơn!]]>
Hiện em có làm 1 query để xuất ra 2 cột, là các giá trị có tại bảng A nhưng không có tại bảng B
Giờ em muốn gán lần lượt các giá trị đó là Msgbox.
Tức là sẽ hiện ra màn hình thông báo rằng các giá trị này không có trong bảng B

Ví dụ như trong excel thì dễ, em có thể gán từng giá trị của range (dùng vòng lặp) ra Msgbox được.
Nhưng với Recordset trong Access thì em còn mông lung quá.

Mong các anh, chị giúp đỡ. Cảm ơn!]]>