Поиск данных в таблице Аксесс

[Rust_12]

Здравствуйте.
Помогите, пожалуйста, с осуществлением поиска данных в таблице Access из Экселя.

У меня есть база данных в Access, состоящая из 2ух таблиц. Данные в них заносятся с формы Экселя. Выглядит это следующим образом.

Set dbs = DAO.OpenDatabase("C:\.....\database.mdb")
Set rst = dbs.OpenRecordset("Clients")
rst.AddNew
rst.Fields("Name").Value = TextBox1.Value
rst.Fields("SurName").Value = TextBox2.Value
rst.Fields("Data_of_Birth").Value = TextBox3.Value
......
rst.Update

Мне необходимо осуществить проверку на наличие клиента по его фамилии и дате рождения.
То есть:
Существует ли такой клиент в таблице "Clients" базы данных "database.mdb", для которого выполняется следующее условие:
Значение в поле "SurName" равно тому, что стоит в форме в TextBox2.Value и одновременно Значение в поле "Data_of_Birth" равно тому, что стоит в форме в TextBox3.Value.

Если такой клиент есть, то, выдать сообщение о том, что есть, если нет, о том, что нет. С выводом сообщений проблем нет.
А Вот с поиском данных через БД я очень прощу помощи. Никогда ничего ранее подобного не делала.


Спасибо.

[AndVGri]

Используйте MoveFirst, FindFirst и NoMatch как признак найдено/ненайдено

[Rust_12]

Спасибо большое.

Покажите, пожалуйста, пример синтаксиса для FindFirst.
Встретил массу вариантов, Не могу понять что к чему.
Запрос вызывается из Экселя к базе банных Аксесс.
Мне например, необходимо найти всех клиентов в столбце Surname_Client по фамилии Jokinen.
Это записывается так? :

 
Set dbs = DAO.OpenDatabase("C:\Documents and Settings\.....\database.mdb")
 Set rst = dbs.dbOpenTable("Clients")
 rst.FindFirst "Surname_Client =" & Jokinen

или так? :

 
Set dbs = DAO.OpenDatabase("C:\Documents and Settings\.....\database.mdb")
 Set rst = dbs.dbOpenTable("Clients")
  rst.FindFirst "Surname_Client = Jokinen"

Каких только вариаций не видел. одни для VBA Аксесс, другие для VBA Эксель...

Спасибо.

[doober]

Сообщение от Rust_12

Каких только вариаций не видел.

И еще один

Set dbs = DAO.OpenDatabase("C:\Documents and Settings\.....\database.mdb")
Set rst = dbs.OpenRecordset("SELECT Clients.* FROM Clients WHERE Surname_Client = 'Jokinen'")
Do Until rst.EOF

  Debug.Print "Name=" & rst!Name
  Debug.Print "Data_of_Birth=" & rst!Data_of_Birth

  rst.MoveNext
Loop

[Rust_12]

doober, спасибо большое!
А как можно передать переменную, хранящуюся в TextBox, расположенную на форме в Экселе?

Прописал:

SurN = Interface.MultiPage1.Pages(1).TextBox4.Value  'Значение из TextBox4 нужно установить, как критерий выбора в запросе 

Set rst = dbs.OpenRecordset("SELECT Clients.* FROM Clients WHERE Surname_Client = SurN")

Ошибку выдает: слишком мало параметров. требуется 1.
Это потому что Аксесс не видит TextBox, расположенный на форме Экселя?

[doober]

Сообщение от Rust_12

Ошибку выдает: слишком мало параметров. требуется 1.
Это потому что Аксесс не видит TextBox, расположенный на форме Экселя?

Нет,это потому,что кто то не внимательно прочитал мой пост.

Dim SurN as string
SurN = Interface.MultiPage1.Pages(1).TextBox4.Value  'Значение из TextBox4 нужно установить, как критерий выбора в запросе 

Set rst = dbs.OpenRecordset("SELECT Clients.* FROM Clients WHERE Surname_Client = '" & SurN & "'")

[Rust_12]

doober, спасибо еще раз!!
Все условия и критерии в запросах мы записываем, в ' ' -скобках, верно?

[doober]

Сообщение от Rust_12

doober, спасибо еще раз!!
Все условия и критерии в запросах мы записываем, в ' ' -скобках, верно?

Нет
Для строки через апострофы .
Остальные типы без кавычек,но вы должны указать тип переменных.
Исключение дробное число.
Вы должны заменить запятую на точку.
Читайте буквари по SQL

[Rust_12]

Спасибо!
Вы сделали как раз необходимые подсказки про форматы))

[Rust_12]

doober, можно Вам еще один вопрос?

Если в таблице существует несколько записей с одним и тем же "Surname_Client", то программа выводит инфо по последней (нижней) записи, полагаю, потому что стоит оператор NextMove.
Думаю сделать проверку на кол-во записей указанного значения Surname_Client, и если их окажется больше одной (две, например), то создать новый лист и занести всю соответствующую инфу по этому второму полю аналогичным образом, как и для первой встретившейся записи.

Set rst = dbs.OpenRecordset("SELECT * FROM Clients WHERE Surname_Client = '" & SurN & "' And Date_of_Birth = '" & Date_Brth & "' ")
 rst.MoveLast
 Do Until rst.EOF
 Sheets("information").Cells(3, 2) = Now
 Sheets("information").Cells(5, 2) = rst!Num_Request
If rst.RecordCount > 1 Then
Sheets.Add.Name = "information_2"
Sheets("information_2").Cells(3, 2) = Now
Sheets("information_2").Cells(5, 2) = rst!Num_Request
End If

rst1.MoveNext
Loop

Прошу, подскажите, пожалуйста, как разграничить инфо из 2ух разных строк по 2ум листам.
Спасибо.