If kundedb.Recordset.BOF = False Then kundedb.Recordset.MoveFirst End If
Dim strBookmark As String
If kundedb.Recordset.Index <> "KundeTlf" Then kundedb.Recordset.Index = "KundeTlf" End If strBookmark = kundedb.Recordset.Bookmark kundedb.Recordset.Seek "=", txtbx_soeg.Text 'Put your field name here instead of PhoneNo ' or for partial match kundedb.Recordset.Seek ">=", txtbx_soeg.Text 'Put your field name here instead of PhoneNo
If kundedb.Recordset.NoMatch Then MsgBox "Not found" 'return to previous record ' kundedb.Recordset.Bookmark = strBookmark Else MsgBox "Phone No " & txtbx_soeg.Text & " belongs to " & kundedb.Recordset!KundeNavn 'substitute !Name for your field name. End If If kundedb.Recordset.BOF = False Then kundedb.Recordset.MoveFirst End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.