Computer Programming Concepts and Visual Basic David I. Schneider

If a Find method does not locate a record matching the criteria, the first or last record
(depending on where the search is heading) in the recordset becomes the current record and
the NoMatch property is set to True. Therefore, the following lines of code can be used to
keep the current record current whenever the Find method is unsuccessful.
BkMk = Data1.Recordset.Bookmark
Data1.Recordset.FindNext criteria
If Data1.Recordset.NoMatch = True Then
Data1.Recordset.Bookmark = BkMk
End If
EXAMPLE 2
The following program displays the large cities in a country specified by the user. Due to the SQL statement
in the setting for datCities.RecordSource, the cities will be presented alphabetically. Notice the handling
of the string variable criteria. Had the Find statement been
datCities.Recordset.FindFirst “country = nom”
the error message “Can’t find name ‘nom’.” would have been generated.
Object Property Setting
frmDBMan Caption EXAMPLE 12-2-2
lstCities
cmdFind Caption Find Cities
lblCountry Caption Country
txtCountry Caption (blank)
datCities Caption Large World Cities
Database MEGACTY2.MDB
Name
Record SELECT * FROM
Source Cities ORDER BY
city ASC
Private Sub cmdFind_Click()
Dim nom As String, criteria As String
lstCities.Clear
If txtCountry.Text “” Then
nom = txtCountry.Text
criteria = “country = ” & “‘” & nom & “‘”
datCities.Recordset.FindFirst criteria
Do While datCities.Recordset.NoMatch = False
lstCities.AddItem datCities.Recordset.Fields(“city”).Value
datCities.Recordset.FindNext criteria
Loop
If lstCities.ListCount = 0 Then lstCities.AddItem “None”
Else
MsgBox “You must enter a country.”, , “”
txtCountry.SetFocus
End If
End Sub
[Run, type China into the text box, and press the command button.]
Relational Databases and SQL 337