Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Поиск через textbox по базе с выводом в listbox
 
#1
14.09.2016 23:31:44
Пересмотрела множество примеров с поиском по фамилии в базе данных. Кое-что смастерила сама. Но поскольку дружу с VBA всего три месяца, то своего таланта пока не хватает. Помогите пожалуйста.
В приложенном файле при нажатии на кнопку открывается форма, в которой нужно в listbox получить результат поиска. Поиск осуществляется по таблице Пациенты путем введения начальных букв фамилии в textbox.
Если в базе есть пациенты с одинаковой фамилией, то в listbox показать всех.
 
 
 
#2
14.09.2016 23:53:39
Вот.
 
 
 
#3
15.09.2016 00:05:28
Юрий, как всегда безупречно гениален и мгновенен)
Благодарю,благодарю, благодарю!
То, что нужно!
 
 
 
#4
15.09.2016 00:06:58
Мяррр )
 
 
 
#5
15.09.2016 08:19:18
Юрий М, Здравствуйте, подскажите пожалуйста, а почему когда нажимаешь на кнопку закрыть не закрывается
 
 
 
#6
15.09.2016 11:07:13
alex1210, если Вы посмотрите код формы, то увидите, что кнопке не присвоено никакого действия.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#7
15.09.2016 11:22:26
JayBhagavan, доброго времени суток, если Вам не трудно подскажите какой код можно прописать. Учусь)))
 
 
 
#8
15.09.2016 11:27:56
Код
unload me
 
 
 
#9
15.09.2016 15:17:58
Юрий М, извините еще раз за назойливость вот макрос о котором я спрашиваю, куда прописать
unload me
Код
'Dim LastRow As Long, Arr(), i As Long, x As Long
'    'UserForm_Main.Hide
'    With Sheets("Пациенты")
'        LastRow = Cells(Rows.Count, 2).End(xlUp).Row
'        Arr = Range(Cells(3, 2), Cells(LastRow, 5)).Value
'    End With
'    With ListBox1
'        For i = 1 To UBound(Arr)
'            If Arr(i, 1) <> "" Then
'                .AddItem ""
'                .List(x, 0) = Arr(i, 1)
'                .List(x, 3) = Format(Arr(i, 4), "dd/mm/yyyy")
'                .List(x, 1) = Arr(i, 2)
'                .List(x, 2) = Arr(i, 3)
'                x = x + 1
'            Else
'                Exit For
'            End If
'        Next
'   End With
'End Sub
Private Sub tbName_Change()
Dim LastRow As Long, i As Long, x As Long, Arr()
    Me.ListBox1.Clear
    With Sheets("Пациенты")
        LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
        Arr = .Range(.Cells(3, 2), .Cells(LastRow, 5)).Value
    End With
    With ListBox1
        For i = 1 To UBound(Arr)
            If UCase(Arr(i, 1)) Like UCase(Me.tbName) & "*" Then
                .AddItem ""
                .List(x, 0) = Arr(i, 1)
                .List(x, 3) = Format(Arr(i, 4), "dd/mm/yyyy")
                .List(x, 1) = Arr(i, 2)
                .List(x, 2) = Arr(i, 3)
                x = x + 1
'            Else
'                Exit For
            End If
        Next
   End With
End Sub
 
 
 
#10
15.09.2016 15:20:20
alex1210,редактор ВБА, открываете форму, на форме ПКМ по кнопке, код.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#11
15.09.2016 15:57:29
Юрий М ,хорош поисковик!!! :)
Как можно в код добавить  сообщение  если такого пациента нет , что бы отобразилась  форма frmAdd(форма в проекте есть) и можно было добавлять нового пациента. Заранее благодарен.
Код
    If MsgBox("Такого
  Пациента  нет в базе данных!"
  & vbLf & "Добавить?", vbInformation + vbYesNo +
  vbDefaultButton2, "Сообщение") = vbYes Then
 
 
 
#12
15.09.2016 16:13:52
JayBhagavan, какие страшные слова)))
 
 
 
#13
15.09.2016 18:35:15
Цитата
Logistic написал:
Как можно в код добавить  сообщение  если такого пациента нет
Например, так.
 
 
 
#14
16.09.2016 16:15:07
Спасибо,то что надо Вы как всегда на высоте. :D
Еще вопрос : как выделить текущую строку  из базы данных. Когда выбрали необходимые данные , что бы выделялась стока с теми данными ,что в листбоксе.
 
 
 
#15
16.09.2016 21:24:04
Цитата
Logistic написал:
что бы выделялась стока с теми данными ,что в листбоксе.
В ЛистБоксе может быть несколько строк. На листе следует выделить ту, по которой кликнули в ЛистБоксе?
 
 
 
#16
17.09.2016 00:05:57
 Да.
На листе следует выделить ту, по которой кликнули в ЛистБоксе
 
 
 
#17
17.09.2016 10:30:18
Тогда я бы добавил ещё один столбец в ListBox и сделал этот столбец скрытым. В примере это первый столбец. В него будем заносить номер строки листа (получится что-то вроде ID записи), чтобы потом легко можно было обращаться к нужным записям.
 
 
 
#18
17.09.2016 14:47:31
Юрий М, все на  наивысшем уровне!!!Спасибо.  :D
 
 
 
#19
01.10.2016 19:15:49
Здравствуйте. Для меня оказалось готовое решение. Огромное спасибо Юрию М. и всем форумчанам за Вашу помощь и советы :)
 
 
 
Страницы: 1
Наверх