1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
MsgBox "btnTest " & gvSampleID If gvSampleID <> "" Then Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.FindFirst "SampleID='" & gvSampleID & "'" If rst.NoMatch Then MsgBox "No match" Else MsgBox "match" End If End If