Μετάβαση από μια φόρμα σε άλλη
 

Γεια σας...
Ζητώ την βοήθειά σας στο εξής:
Έχω 2 φόρμες frm1 και frm2

Απο' την frm1 πηγαίνω στην frm2:
(κουμπί στην frm1)
DoCmd.OpenForm "frm2", , , "[ID]=" & [ID] (κοινόπεδίο ---> ID ---> Αριθμός)
και η frm1 κλείνει.


Απ' την frm2 θέλω να ανοίξει η frm1, με όλες τις εγγραφές και να επιλεχθεί αυτή με το συγκεκριμένο ID (Όχι να φιλτραριστεί!)
Τι διορθώσεις πρέπει να κάνω στον παρακάτω κώδικα;

(κουμπί στην frm2)
Dim RecID As Long
RecID = Nz(Me.ID)
With Me.Recordset.Clone
DoCmd.OpenForm "frm1"
.FindFirst "[ID]=" & RecID
If Not .NoMatch Then Me.Bookmark = .Bookmark
End With
DoCmd.Close acForm, "frm2"

Το παρακάτω δουλεύει....είναι σωστό; (είχα μελετήσει κάτι σχετικό σε μια πρόταση του Τάσου)

Με το κλείσιμο της 2ης
DoCmd.OpenForm "frm1", , , , , , Me.ID

DoCmd.Close acForm, "frm2"



Με τη φόρτωση της 1ης
With Me.Recordset.Clone
.FindFirst "[ID]=" & Me.OpenArgs
If Not .NoMatch Then Me.Bookmark = .Bookmark
End With

Όμως πως θα ανοίγω την frm1 όταν η frm2 θα είναι κλειστή (οπότε και δεν θα έχει τιμή η OpenArgs);

Για να ελέγξω αν η OpenArgs έχει τιμή ή οχι έβαλα μια if
Η σύνταξη είναι σωστή; Πάντως δουλεύει.

Με τη φόρτωση της 1ης
If IsNull(Me.OpenArgs) Then
'τίποτα
Else
With Me.Recordset.Clone
.FindFirst "[ID]=" & Me.OpenArgs
If Not .NoMatch Then Me.Bookmark = .Bookmark
End With
End if