Computer Programming Concepts and Visual Basic David I. Schneider

Do While (Not foundFlag) And (Not datCities.Recordset.EOF)
If UCase(datCities.Recordset.Fields(“City”).Value) = strSearchFor Then
foundFlag = True
Else
datCities.Recordset.MoveNext
End If
Loop
If Not foundFlag Then
MsgBox “Unable to locate requested city.”“Not Found”
datCities.Recordset.MoveLast ‘move so that EOF is no longer true
End If
Else
MsgBox “Must enter a city.”, ,“”
End If
End Sub
Private Sub cmdQuit_Click ()
End
End Sub
Private Sub datCities_Validate(Action As Integer, Save As Integer)
‘Prevent a user from adding a city of population under 1 million
Dim strMsg As String
If Val(txtPop1995) < 1 Then
If (Not datCities.Recordset.EOF) And (Not datCities.Recordset.BOF) Then
strMsg = “We only allow cities having a population of ” & _
“at least one million.”
MsgBox strMsg“City too small!”
Action = 0
End If
End If
End Sub
[Run, click the Search button, and enter New York.]
COMMENTS
1. App.Path cannot be used when you set the DatabaseName property of a data
control in the Properties window at design time. However, App.Path can be used
in the Form_Load event procedure. For instance, if you add the lines
Private Sub Form_Load()
datCities.DatabaseName = App.Path & “\MEGACTY1.MDB”
End Sub
An Introduction to Databases 329