Private Sub Form_Load()
Me.txtFiltre.SetFocus
DoCmd.RunCommand acCmdPaste
DoCmd.ApplyFilter , "strCity = '" & Me.txtFiltre.Text & "'"
End Sub
form yüklendi olayının kodu: