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