ник: TOM
по кнопке выполняется поиск по полю NN
Private Sub Кнопка17_Click()
Dim nN_poisk As String
nN_poisk = InputBox("Введите номер", , 1, XPos:=2000, YPos:=500)
Me!NN.SetFocus
DoCmd.FindRecord nN_poisk
If Me!NN <> nN_poisk Then
MsgBox ("не найден")
End If
Me!kolvo.SetFocus
End Sub
Если запись найдена, указатель устанавливается на нее.
Как выдилить найденную строку в форме цветом?