| |
|
|
| | Народ объясните.
Не могу догнать, каким образом сделать следующее.
Есть подч. форма РозноскаПоНомеруТелефона, есть поле "поиск", необходимо произвести отбор в списке по номеру телефона.
Это что типа Like " * "&[]&"*"
Заранее спасибо. | |
| |
| |
| |
|
|
| | это не оно?
http://hiprog.com/index.php?option=com_content&task=view&id=251661615&Itemid=35 | |
| |
| |
| |
|
|
| | смотрел этот пример, но проблема в том, что фильтрует не с любой частью поля.
т.е. еслт номер 8050-123-45-78
то фильтрует только по 8050
а надо, по всем полю либо 123, либо 78
и выдавал список с отобранными записями | |
| |
| |
| |
|
|
| | и выдавал список с отобранными записями |
что значит "список" - это вы про контрол?
а надо, по всем полю либо 123, либо 78 |
комментарии почитайте...
ну или сами в коде добавьте "*" перед строкой поиска (в примере только в конце строки) | |
| |
| |
| |
|
|
| | поменяйте строку в примере с
Me.Filter = "[Название] Like '" & strFind & "*'"
на
Me.Filter = "[Название] Like '*" & strFind & "*'" | |
| |
| |
| |
|
|
| | принцип я понял и пытался изначально именно так и реализовать, постоянно ругался, значит что то в орфографии.
буду разбираться отпишусь.
был на правильном пути | |
| |
| |
| |
|
|
| | у меня не получаеться.
под эту функцию ничего не фильтрует лично в моей форме.
в скачанном примере все работает, а у меня нет.
есть отличие, скачаний пример работает с набраннимми записями, а в моём случае их надо набирать.
т.е. в поле поиск ввожу цифри номера, перемещаюсь в подчинёную форму в поле списка номеров телефонов, выбираю из отобранных записей номер, на основании номера подставляються поля ФИО,Лимит, СуммаРазговораЗаМесяц
объясните.
я в vba, только начинаю разбираться, до этого всегда только коструктором работал, и всегда возникают проблемы с отбором данных | |
| |
| |
| |
|
|
| | примере фильтр вешается на основную форму, а у Вас подчиненная ...
вероятнее всего не правильное обращение к фильтру подчиненной формы.....
forms![имя основной формы]![имя подчиненной формы].form.filter
а в примере me.filter | |
| |
| |
| |
|
|
| | вот так я сделал. не работает.
я профан. только разбераюсь.
Private Sub поиск_Dirty(Cancel As Integer)
Dim strFind As String
strFind = Nz(Forms!поиск!поиск.Text, "")
If strFind <> "" Then
Forms![поиск]![подч_форма].Form.Filter = "[КодМобильного] Like '*" & strFind & "*'"
Form.FilterOn = True
Form.поиск.SelStart = 200
Else
Form.FilterOn = False
End If
End Sub | |
| |
| |
| |
|
|
| | Private Sub поиск_Dirty(Cancel As Integer)
Dim strFind As String
strFind = Nz(me.поиск.Text, "")
If strFind <> "" Then
Forms![поиск]![подч_форма].Form.Filter = "[КодМобильного] Like '*" & strFind & "*'"
Forms![поиск]![подч_форма].Form.FilterOn = True
me.поиск.SelStart = 200
Else
Forms![поиск]![подч_форма].Form.FilterOn = False
End If
End Sub
так вроде должно заработать | |
| |
| |
