Добро пожаловать, Гость! Чтобы использовать все возможности Вход или Регистрация.

Уведомление

Icon
Error

Access 2003 и VBA
petr.surgay
#1 Оставлено : 24 февраля 2011 г. 13:19:10(UTC)
Ранг: Новичок

Группы: Зарегистрированные пользователи
Зарегистрирован: 22.02.2011(UTC)
Сообщений: 1
Баллов: 3

Здравствуйте!

У меня есть таблица в Access и есть форма, которая осуществляет поиск по тексту набранному в TextBox'е из таблицы и выводит результаты в ListBox. Можно ли сдеать так, чтобы по двойному щелчку на найденной записи в ListBox'е выводилась автоформа с нужной записью?

Спасибо.

Код:
Private Sub Text0_Change()
Dim strActiveControlName As String
Dim strSQL As String
Dim strWhere As String

strActiveControlName = Screen.ActiveControl.Name
strWhere = "WHERE True "

If strActiveControlName = "Text0" Then
If Len(Me!Text0.Text & "") > 0 Then
strWhere = strWhere & "And sp_streets.Name Like '" & Me!Text0.Text & "*' "
End If
Else
If Len(Me!Text0.Value & "") > 0 Then
strWhere = strWhere & "And sp_streets.Name Like '" & Me!Text0.Value & "*' "
End If
End If


strSQL = "SELECT sp_streets.idstreet, sp_streets.Name FROM sp_streets " & strWhere & ";"
Me!List2.RowSource = strSQL
End Sub
Реклама
Larisa.Zaritskaya
#2 Оставлено : 10 марта 2011 г. 18:33:55(UTC)
Ранг: Участник

Группы: Зарегистрированные пользователи
Зарегистрирован: 19.04.2007(UTC)
Сообщений: 23
Баллов: 69

А зачем выводить в ListBoxе? Этот ЭУ предназначен конкретно для вывода списка значений, что Вы и делаете. А когда нашли нужную запись, попробуйте обработать событие После обновления, в коде которого будете открывать заранее созданную форму нужного образца, помещая в неё выбранное из ListBoxа значение.
RSS Лента  Atom Лента
Пользователи, просматривающие эту тему
Guest
Быстрый переход  
Вы не можете создавать новые темы в этом форуме.
Вы не можете отвечать в этом форуме.
Вы не можете удалять Ваши сообщения в этом форуме.
Вы не можете редактировать Ваши сообщения в этом форуме.
Вы не можете создавать опросы в этом форуме.
Вы не можете голосовать в этом форуме.