sear
Download as DOC, PDF0 likes193 views
The code searches a recordset for a matching field value from a text box. If found, it calls a display subroutine to populate two other text boxes with additional field values. If no match is found, it displays an error message and clears the original text box.
1 of 1
Download to read offline
More Related Content
More from Shivalik college of engineering (13)
Recently uploaded (20)
Ad
sear
- 1. On Error GoTo error Adodc1.Recordset.MoveFirst Do Until Adodc1.Recordset.EOF If (Adodc1.Recordset.fields(0) = Text18.Text) Then Call display Exit Sub Else Adodc1.Recordset.MoveNext End If Loop error: MsgBox "data not found" Text18.Text = "" Text18.SetFocus End Sub Public Sub display() Text2.Text = Adodc1.Recordset.fields(1) Text3.Text = Adodc1.Recordset.fields(2) End Sub