[Tasos]

Στο παράδειγμα μου, οι φόρμες ανοίγουν με τη γραμμή:

DoCmd.OpenForm strForname, , , , , , FormOpemArgs

Η μεταβλητή FormOpemArgs αντιστοιχεί στο .OpenArgs της φόρμας που ανοίγει κάθε φορά.

Με την ιδιότητα .OpenArgs μπορείς να περάσεις όποια πληροφορία θέλεις στη φόρμα που θέλεις να ανοίξεις.

Σε κάθε μια από τις φόρμες του παραδείγματος, υπάρχει στο συμβάν Form_Load()
o παρακάτω κώδικας που επεξεργάζεται (στην περίπτωση σου τη διασπά στα 2 συστατικά που της έχεις ορίσει) τη μεταβλητή FormOpemArgs και περνά τις τιμές στα πεδία απλά και μόνο για να γίνει κατανοητό το παράδειγμα:

Private Sub Form_Load()
    Dim MyValues() As String
    If Not IsNull(Me.OpenArgs) Then
        MyValues = Split(Me.OpenArgs, ";")
        Me.txtArgs1 = MyValues(0)
        Me.txtArgs2 = MyValues(1)
    End If
End Sub

δηλαδή κάνει ακριβώς αυτό που περιγράφεις στα μηνύματα σου.

Φιλικά
Τάσος