поиск в форме

Как создать простой запрос из формы - например меняю в поле код магазина и все данные в форме меняются, зетем нажимаю кнопку "add" появляется новая форма с более подробными данными о магазине.

Private Sub Поле44_Change()
Dim s As String
    s = Me.Поле44.Text 'Определяем текст
    With Me.QRaboti.Form 'Выбираем форму
      If Len(s) <> 0 Then
        s = " WHERE Left([Kod_rab]," & Len(s) & ") = '" & s & "'"
      Else
        s = ";"
        End If
      .RecordSource = "SELECT * FROM [QRaboti]" & s
      .Requery 'Меняем запрос
    End With
End Sub

От так

спас ибо, счас попробую

Подскажите в чем ошибка - хочу загрузить из таблицы в форму значения по коду
ругается на .FindFirst


Option Compare Database
Dim rstmagazin As Recordset, kp As String, v As Currency
Dim rstzak As Recordset, rsttarif As Recordset
Dim kr As String, klick As String


Private Sub Кнопка17_Click()
Set rstmagazin = CurrentDb.OpenRecordset("Магазины", dbOpenDynaset)
kod.SetFocus
kp = kod.Text
rstmagazin.FindFirst "[код магазины-заказчика] = " & kp
If rstmagazin.NoMath Then
MsgBox "неправильный код"
kod.SetFocus
Exit Sub
End If
nazva.SetFocus
nazva.Text = rstmagazin![Название]
adress.SetFocus
aderess.Text = rstmagazin![адресс]
raion.SetFocus
raion.Text = rstmagazin![район]
tel.SetFocus
tel.Text = rstmagazin![телефон]
fio.SetFocus
fio.Text = rstmagazin![ФИО]
End Sub

pvv912

ругается на .FindFirst

Какими словами? Могу предположить, что нет поля [код магазины-заказчика], а есть поле [код магазина-заказчика].

Кстати, NoMath надо заменить на NoMatch. А еще неплохо бы перед выходом из процедуры рекордсет закрыть и обнулить.

А еще не нужно каждый раз делать SetFocus всем полям и менять Text.

1. Dim rstmagazin As DAO.Recordset

2. Уберите из полей ссылку на свойство Text. Она здесь не нужна. Вам нужно свойство поля Value, а оно по умолчанию, можно не писать.

Владимир Саныч,
исправил
...
Set rstmagazin = CurrentDb.OpenRecordset("Магазины", dbOpenDynaset)
kod.SetFocus
kp = kod.Text
rstmagazin.FindFirst "[код магазина-заказчика] = " '& kp'""
If rstmagazin.NoMatch Then
...

но все равно на FindFirst
compile error
method or data member not found

есть и база магазины и код магазина-заказчика в ней

Владимир Саныч

А еще неплохо бы перед выходом из процедуры рекордсет закрыть и обнулить.

как? и разве без обнуления небудет работать?