Örnek olamsı açısından ek ekledim openargs ile.Bookmark olayı için bekleme aşamasındayım.
openargs bayağı kullanışlı birşeymiş.




Formlar kodlar;

Option Compare Database



Private Sub Komut0_Click()

    If Me.Metin1 = "" Or IsNull(Metin1) Then

        MsgBox "Veri gir metin kutusuna..", vbCritical, "Veri Gir"

        Metin1.SetFocus

        Exit Sub

    End If

        DoCmd.OpenForm "Form1", , , , , , Metin1.Value 'istenilen deger yailabilir

End Sub

Option Compare Database



Dim say As Integer



Private Sub Form_Load()



    DoCmd.Maximize

    Me.TimerInterval = 1000

    If IsNull(Me.OpenArgs) Or Me.OpenArgs = "" Then Exit Sub 'OpenArgs diger forumdan gelir metin kutusunda ne yazili ise

    Me.lbl1.Caption = OpenArgs

    

End Sub



Private Sub Form_Timer()

    

    say = say + 1

    lblSay.Caption = 5 - say

    If say = 5 Then

        DoCmd.SetWarnings False

        DoCmd.Close

        DoCmd.SetWarnings True

        DoCmd.OpenForm "OpenArgsFormAc"

    End If

End Sub