Написать пару запросов)

[AlexandrHouse]

в общем,надо написать,поиск значений с формы,с предварительным заполнением через форму
скажем,по городу надо найти страну.
долго промучился но эффекта 0

http://rghost.ru/1351117/private/f71b0b20112f32f99c20d8d2d048d04f

пароль:1234

[Abrakadabra]

а что именно не получается?

[AlexandrHouse]

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

а что именно не получается?

он не заполняет таблицу,и не ищет(последнее поле со списком,выбераешь страну он должен выдать город)

[Abrakadabra]

приведите здесь примеры кода, дайте комментарии, тогда и будет понятно другим, что у Вас не получается.. А по Вашим ссылкам ходить вряд-ли у кого желание будет..

[AlexandrHouse]

Поиск:

Private Sub Кнопка26_Click()
Dim gor As ADODB.Recordset
    Set gor = New ADODB.Recordset///новая запись
    gor.Open CStr("Город"), CurrentProject.Connection, adOpenStatic, adLockPessimistic///открыть таблицу город
Dim cou As ADODB.Recordset
    Set cou = New ADODB.Recordset
    cou.Open CStr("Страна"), CurrentProject.Connection, adOpenStatic, adLockPessimistic///открыть таблицу страна
Dim lin As ADODB.Recordset
    Set lin = New ADODB.Recordset
    lin.Open CStr("Страна_Город"), CurrentProject.Connection, adOpenStatic, adLockPessimistic///открыть таблицу Страна_город
G = CInt(Me.ПолеСоСписком24)
gor.MoveFirst
Do Until gor.EOF
    If (gor(0) = G) Then
    End If///процедура сравнения(поиска)
gor.MoveNext
Loop
gor.Close
Set gor = Nothing
cou.Close
Set cout = Nothing
lin.Close
Set lin = Nothing
End Sub

добовление записи в таблицу город:

Private Sub Кнопка11_Click()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset//новая запись
rst.Open CStr("Город"), CurrentProject.Connection, adOpenDynamic, adLockOptimistic///открыть город
rst.MoveLast//предыдущая запись
rst.AddNew///добавить новую запись
rst(1) = Me.Поле6.Value///присвоить значение полю6
rst.Update
rst.Close//конец
Set rst = Nothing
End Sub

по аналогии в таблицу страна:

Private Sub Кнопка12_Click()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open CStr("Страна"), CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rst.MoveLast
rst.AddNew
rst(1) = Me.Поле9.Value
rst.Update
rst.Close
Set rst = Nothing
End Sub

Связать страну и город:

Private Sub Кнопка17_Click()
Dim gorod As ADODB.Recordset
Set gorod = New ADODB.Recordset
Dim strana As ADODB.Recordset
Set strana = New ADODB.Recordset///новые записи
Dim link As ADODB.Recordset
Set link = New ADODB.Recordset
gorod.Open CStr("Город"), CurrentProject.Connection, adOpenStatic, adLockPessimistic///открыть
strana.Open CStr("Страна"), CurrentProject.Connection, adOpenStatic, adLockPessimistic
link.Open CStr("Страна_Город"), CurrentProject.Connection, adOpenDynamic, adLockOptimistic

link.MoveLast///предыдущая запись
link.AddNew///добавить запись в страна город
link(1) = Me.ПолеСоСписком18.Value///присвоить полю страна
link(2) = Me.ПолеСоСписком20.Value///присвоить полю город
gorod.Update
strana.Update
link.Update
gorod.Close
strana.Close
link.Close
Set gorod = Nothing
Set strana = Nothing
Set link = Nothing
End Sub