ник: Мишок
хочу сделать поиск в подчененной форме по гос номеру авто, чтоб искал как с буквами так и без, но что-то не получается
делаю так:
Private Sub pole105_Change()
Dim s As String
s = Me.pole105.Text
With Me.p_avto1.Form
If Len(s) <> 0 Then
s = "Where [гос_номер] Like '""*" & s & "*"" '"
Else
s = ";"
End If
.RecordSource = "SELECT ....... " & s
.Requery
End With
End Sub
|