Em đã hỏi và được nghe giải thích cụ thể rồi ạ. Dù sao cũng cảm ơn anh rất nhìu.
Bạn ơi cho mình hỏi chút nhé, mình cũng gặp vấn đề giống y chang như bạn, đang áp dụng bài mẫu của anh Tran Thanh Phong, cũng bị báo lỗi từa lưa, bạn có kinh nghiệm đi trước có thể chỉ giúp mình không?
' Update the record source
Me.Fsubsearchvendor.Form.RecordSource = "SELECT * FROM Qsubsearchvendor " & BuildFilter
' Requery the subform
Me.Fsubsearchvendor.Requery
End Sub
Private Function BuildFilter() As Variant
Dim varWhere As Variant
varWhere = Null ' Main filter
' Check for LIKE Vendor Name
If Me.txtvendor > "" Then
varWhere = varWhere & "[Supplier] LIKE """ & Me.txtvendor & "*"" AND "
End If
' Check for LIKE Detail
If Me.txtdetail > "" Then
varWhere = varWhere & "[detail-pmt] LIKE """ & Me.txtdetail & "*"" AND "
End If
' strip off last "AND" in the filter
If Right(varWhere, 5) = " AND " Then
varWhere = Left(varWhere, Len(varWhere) - 5)
End If
BuildFilter = varWhere
End Function