Hi guys
I am getting the error at the following line marked red.
I hope anyone can help me in this.
Thanks
I am getting the error at the following line marked red.
Code:
Dim db As Database
Dim rs As Recordset
Dim strsql As String
Dim RecordsDetailsForThis_P2PRequestID As String
RecordsDetailsForThis_P2PRequestID = ""
strsql = "SELECT location FROM completed_table where barcodevalue<>'' AND BARCODEVALUE='" & Text0 & "'"
Set db = CurrentDb
[COLOR=red]Set rs = db.OpenRecordset(strsql, dbOpenSnapshot)
[/COLOR]
If rs.EOF = True Then
RecordsDetailsForThis_P2PRequestID = ""
Else
RecordsDetailsForThis_P2PRequestID = "ABC"
End If
rs.Close
Set rs = Nothing
Set db = Nothing
I hope anyone can help me in this.
Thanks