• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Bị báo lỗi "Method or data member not found"

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Hàm] Bị báo lỗi "Method or data member not found"
• Bị báo lỗi "Method or data member not found"

• Bị báo lỗi "Method or data member not found"

  longkd_bvct@yahoo.com.vn > 23-06-23, 03:45 PM

  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" ạ

• RE: Bị báo lỗi "Method or data member not found"

  Noname > 23-06-23, 04:04 PM

  gửi file lên đi bạn, báo lỗi ở dòng nào thì tìm dòng đó chứ code không đọc không nổi

• RE: Bị báo lỗi "Method or data member not found"

  ongke0711 > 23-06-23, 07:44 PM

  (23-06-23, 03:45 PM)longkd_bvct@yahoo.com.vn Đã viết:

  Mã:

  ...
 
  
  Set rs1 = CurrentDb.OpenRecordset(qrydaxuat)
  Set rs2 = CurrentDb.OpenRecordset(tbldanhap)
..
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" ạ

  
  Hai cái qrydaxuat và tbldanhap nếu không phải là tên biến mà là tên của đối tượng Query và Table thì phải cho nó vô cặp dấu nháy kép.
• Bài trước Bài tiếp