ник: FORMAT
Private Sub Поле64_Change()
On Error GoTo Err_Поле64_Change
DoCmd.ApplyFilter , "Название_Фирмы like '" & Me.Поле64.Text & "*'"
Me.Поле64.SelStart = Len(Me.Поле64.Text)
Err_Поле64_Change:
if MsgBox Err.Description = 2185 Then
MsgBox ("Нельзя ")
End If
Resume Exit_Поле64_Change
End Sub