создание формы поиска в Access 2010

Question

Я пытаюсь создать форму поиска для доступа 2010.

Мне нравится иметь группу опций на основе поиска запроса. Я сделал поисковый запрос, ища имя или фамилию. в форме также присутствуют два текстовых поля для заполнения запросов (1-й и последний)

Мне нужна группа параметров, чтобы я мог выбрать приведенное название для бронирования.

В прошлом я косвенно использовал это, используя подформат и флажок. Затем загрузите оба результата на подформу и флажке (requery), чтобы пользователь мог выбрать только этот флажок. Но на этот раз я хочу, чтобы параметры были сами результатом запроса! Пожалуйста помоги.

Answer 1

Вот простой пример, который использует List Box:

Таблица: Клиенты

ID - AutoNumber
LastName - Текст (255)
FirstName - Текст (255)
Email - Текст (255)

Тестовые данные:

ID LastName FirstName  Email 
-- ---------- -------------- ------------------ 
1 Thompson Gord   gord@example.com 
2 Loblaw  Bob    bob@example.com 
3 Kingsley Hank   hank@example.com 
4 Thompson Hunter S.  hunter@example.com 
5 Squarepants Spongebob  ss@example.com 
6 O'Rourke P. J.   pj@example.com 
7 Aldrin  Edwin "Buzz" buzz@example.com 

Форма макета:

VBA модуль для этой формы:

Option Compare Database 
Option Explicit 

Private Sub Form_Load() 
Me.lstSearchResults.RowSource = "" 
End Sub 

Private Sub btnSearch_Click() 
Me.lstSearchResults.SetFocus 
Me.lstSearchResults.Value = Null 
Me.lstSearchResults.RowSource = _ 
     "SELECT ID, LastName, FirstName FROM Clients " & _ 
      "WHERE LastName LIKE ""*" & DQ(Me.txtSearchLastName.Value) & _ 
       "*"" AND FirstName LIKE ""*" & DQ(Me.txtSearchFirstName.Value) & "*""" 
End Sub 

Private Function DQ(s As Variant) As String 
' double-up double quotes for SQL 
DQ = Replace(Nz(s, ""), """", """""", 1, -1, vbBinaryCompare) 
End Function 

Private Sub btnLookupEmail_Click() 
If IsNull(Me.lstSearchResults.Value) Then 
    Me.txtEmail.Value = "" 
Else 
    Me.txtEmail.Value = DLookup("Email", "Clients", "ID=" & Me.lstSearchResults.Value) 
End If 
End Sub 

Когда форма первого открыт, все пусто.

Typing "Томсон" (без кавычек) и нажать кнопку btnSearch заполнит List Box с клиентами WHERE LastName LIKE "*thompson*". (Если вы посмотрите на код, вы увидите, что он также будет соответствовать на FirstName, если поставить один.)

Выберите один из пунктов в списке Box и нажмите btnLookupEmail и адрес электронной почты отображается в текстовом поле ниже.