ник: marina
Private Sub Кнопка10\10_Click()
Dim strTelephone As String
On Error GoTo mytrap
strTelephone = "0"
Me.Телефон.SetFocus
DoCmd.FindRecord strTelephone
strTelephone = InputBox("Введите номер", "Поиск")
Me.Телефон.SetFocus
DoCmd.FindRecord strTelephone
Me.AllowEdits = False
Me.AllowAdditions = False
Me.AllowDeletions = False
Me.Кнопка10.SetFocus
'DoCmd.GoToControl "Кнопка10"
Exit Sub
mytrap:
MsgBox "Вы должны ввести номер телефона!", vbOKOnly, "Ошибка поиска"
End Sub