| |
|
|
| | хочу сделать поиск в подчененной форме по гос номеру авто, чтоб искал как с буквами так и без, но что-то не получается
делаю так:
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
|
| |
| |
| |
| |
|
|
| | 1. ЧТо не получается?
2. .Requery - лишний
s = "Where [гос_номер] Like '*" & s & "*'"
|
| |
| |
| |
| |
|
|
| | + Не забыть пробел перед Where и крякнуть точку с запятой в "SELECT ...", если имеется. | |
| |
| |
| |
|
|
| |
s = "Where [гос_номер] Like '*" & s & "*'"
|
получилось :))
вто только чтоб слева читал как сделать | |
| |
| |
| |
|
|
| | Что не получается?
Покажите, что у вас получается в .RecordSource. ИМХО, неправильное условие (лишние кавычки). Надо: s = "Where [гос_номер] Like '*" & s & "*'"
А почему просто не применить фильтр?
With Me.p_avto1.Form
If Len(s) <> 0 Then
.Filter = "[гос_номер] Like '*" & s & "*'"
.FilterOn = True
Else
.FilterOn = False
End If
End With
|
ЗЫ. .Requery в вашем примере - лишнее. | |
| |
| |
| |
|
|
| | ничего не выдает, но и не ругается:(
и хотелось бы чтоб он только начинал с левой цифры. т.е например задаю цифру 7 и все номера на 7 , а как я понимаю он выдаст все где есть 7 , а это может быть и к123не177 | |
| |
| |
| |
|
|
| |
и хотелось бы чтоб он только начинал с левой цифры
|
Тогда Like '" & s & "*'" | |
| |
| |
| |
|
|
| | но первая буква, а ктож ее помнит, надо чтоб можно было и с буквами и без только цифры | |
| |
| |
| |
|
|
| | ести напишешь 7 выдаст все на 7* если напишешь *7 выдаст *7* т.е. все с 7-ками вообще
если формат "АС 7777" то можно "* 7" задать получишь все буквы с начинающимися на 7
если так не получается можно добавить логическое поле (в источнике)+ Логическое поле (Буквы/цыфры) и программно заполнять лог.поле и фильтровать по нему. | |
| |
| |
| |
|
|
| |  как программно отличить цифру от буквы?
| |
| |
| |
| |
|
|
| | Ascii кодыдля чего функция Asc() | |
| |
| |
| |
|
|
| | как программно отличить цифру от буквы? |
вот тут в решении Лукаса есть
http://hiprog.com/forum/read.php?id_forum=1&id_theme=5477&page=1 | |
| |
| |
