Pomogite pozhalusta!!!

Problema -Kak is odnoj formi(Forma1) iskat w drugoj(Forma2-w Forme2 textowoe pole soedineno s Tablizej) po opredelennomu kriteriju(Forma2), i tschtobi pri nazhatii na knopku "Dalsche iskat"(Forma1) w Forme2-Textowom pole sapisiwalis dannij najdennij w tablize po odnomu.

Da objasnil konetschno neponjatno, poprobuju esche ras.

Kirilizej ne pischu potomu tscto netu ee u menja.


Pri na zhatii knopki "Iskat" w forme "Forma2" dolshna otkritsja Forma1, w kotoroj pri na zhatii knopki "Dalsche", W Forme2 w Textowom Pole - Dolzni sapisiwatsja snatschenija

Ja napisal cod w kotorom widaet tolko perwich dwa snatschenija, nado tschtobi wse.

Eto Cod dlja Formi2 knopka "Iskat"

Private Sub cmdIskat_Click()

Dim db As Database
Dim rs As Recordset
Dim Kriterij as String

Kriterij = Me.txtIskat.Value

Set db = CurrentDb
Set rs = Me.RecordsetClone

rs.FindFirst "[ARTNR1] LIKE '*" & Kriterij & "*'"

If rs.NoMatch Then
DoCmd.OpenForm "Dannih net", acNormal

Else

Me.Bookmark = rs.Bookmark

DoCmd.OpenForm "Forma1", acNormal


End If

rs.Close

Set rs = Nothing
Set db = Nothing

End Sub

Eto Cod dlja Formi1 knopka "Dalsche"

Private Sub cmdDalsche_Click()


Set db = CurrentDb
Set rs = Forms![Forma2].RecordsetClone
Kriterij = Forms![Forma2].txtIskat.Value

rs.FindFirst "[ARTNR1] like '*" & Kriterij & "*'"
If rs.NoMatch Then

MsgBox "Dannich net", vbOKOnly + vbInformation
Forms![Forma2].txtIskat.SetFocus
Forms![Forma2].txtIskat.TEXT = ""

Else

rs.FindNext "[ARTNR1] LIKE '*" & Kriterij & "*'"
Forms![Forma2].Bookmark = rs.Bookmark


End If
Set rs = Nothing
Set db = Nothing

End Sub

Potschti pravilno
Forma2 swjasana s lokalnoj Tablizej.
Pri otkritii wse txtPolja(krome txtIskat) Formi2 awtomatischeski sapolnjaetsja is lokalnoj Tablizi.
W txtIskat pischet Polsowatel Kriterij , tschtobi naijti dannije

Pri pomoschi Bookmark
On nachodit dannie w pole "ARTNR1" Tablizi po Kriteriju
rs.FindNext "[ARTNR1] LIKE '*" & Kriterij & "*'"
Forms![Forma2].Bookmark = rs.Bookmark
i sapisiwaet w Formu2

Tsceres Formu1 sapolnjajutsja txtPolja Formi2