[kapetang]

Βάσια ,καλώς ήρθες στην παρέα

Όταν ανοίγεις τη φόρμα στην οποία προκαλείται το λάθος, ο κώδικας προσπαθεί να ορίσει την ετικέτα της (Caption) στην τιμή Forms![Περιοχή ημερομηνιών έκθεσης].OpenArgs, που δεν πρέπει να είναι null.
Για να μη προκληθεί λάθος η φόρμα [Περιοχή ημερομηνιών έκθεσης] πρέπει να είναι ανοιχτή και μάλιστα να έχει ανοίξει με κώδικα (πχ πάτημα κουμπιού άλλης φόρμας) και να έχει δοθεί τιμή στο όρισμα OpenArgs.
Αν ανοίξεις τις φόρμες με τα κουμπιά που υπάρχουν στις φόρμες του πρότυπου πιστεύω ότι θα ανοίξουν κανονικά.
Στην ανάγκη άλλαξε τον κώδικα ως εξής:

Private Sub Form_Open(Cancel As Integer)
    On Error Resume Next
    Me.Caption = Forms![Περιοχή ημερομηνιών έκθεσης].OpenArgs
    On Error GoTo 0
End Sub

Καλό βράδυ
Γιώργος