ник: Krayshon
object doesn t support this property or method
такая вот ошибочка при попытке заполнить поле
Private Sub Поле39_Change()
On Error GoTo Поиск_Err
Dim strFind As String
strFind = Nz(Me.Поле39.Text, "")
If strFind <> "" Then
Me.Поле39 = strFind
Forms("xxx").[yyy].Form.Filter = "[Столбец] Like '*" & strFind & "*'"
Forms("xxx").[yyy].FilterOn = True
Me.Поле39.SelStart = 200
Else
Forms("xxx").[yyy].Form.FilterOn = False
End If
Поиск_Exit:
Exit Sub
Поиск_Err:
Forms("xxx").[yyy].Form.FilterOn = False
MsgBox Err.Description
Resume Поиск_Exit
End Sub
|