Run Time Error 2450

[Dimitriss]

Καλησπέρα και καλή χρονιά! Στο δείγμα που σας επισυνάπτω από την εφαρμογή που θέλω να κάνω στη δουλειά μου, αντιμετωπίζω το εξής πρόβλημα: Έχω μία κεντρική φόρμα στην οποία υπάρχει μία υποφόρμα που φορτώνω, μέσω ενός combobox, δυναμικά την εκάστοτε υποφόρμα. Η υποφόρμα αποτελείται από μία λίστα και ένα κουμπί. Πατώντας το κουμπί ανοίγει ένα αποκλειστικό αναδυόμενο παράθυρο με το οποίο θέλω να φορτώνω δεδομένα στη λίστα της υποφόρμας. Σε όλες τις υποφόρμες κράτησα την ίδια δομή, αλλάζει μόνο το όνομα της φόρμας. Στην αναδυόμενη φόρμα όταν πατάω εισαγωγή στη λίστα μου εμφανίζει runtime error 2450. Επειδή έχω κάνει πολλές δοκιμές και προσπάθειες, όταν το όνομα της φόρμας δεν δημιουργείται δυναμικά λειτουργεί κανονικά. Κάθε βοήθεια είναι ευπρόσδεκτη. Ευχαριστώ εκ των προτέρων.

[Tasos]

Καλησπέρα σε όλους!

Δημήτρη, το σφάλμα 2450 στο Microsoft Access εμφανίζεται όταν υπάρχει πρόβλημα με την αναφορά σε ένα αντικείμενο, όπως μια φόρμα, μια αναφορά ή ένα στοιχείο ελέγχου, το οποίο το Access δεν μπορεί να βρει.

Στην περίπτωση σου, για να έχεις πρόσβαση σε μια υποφόρμα θα πρέπει να συμπεριλάβεις στην έκφραση και τη γονική φόρμα .

Σημείωση: Οι φόρμες και οι υποφόρμες θα πρέπει να είναι φορτωμένες.

Παράδειγμα για τη λίστα "myLIst" στην υποφόρμα: Forms!mainfrm!subMainfrm.Form!myLIst

Οπότε στον κώδικα σου δοκίμασε τον παρακάτω κώδικα στη φόρμα "addToList"

Private Sub Εντολή1_Click()
    With Forms!mainfrm!subMainfrm.Form!myLIst
        .AddItem Nz(Me.addValuecbo.Column(0), Null)
        .Requery
    End With
End Sub

Καλή συνέχεια.

Με εκτίμηση

Τάσος

[Dimitriss]

Τάσο σε ευχαριστώ πολύ για την απάντηση σου, αλλά τελικά κατέληξα στην παρακάτω λύση:

 formName = Form_mainfrm.formKindcbo.Value
 Select Case formName
 Case 1
     Form_subfrm_1.myLIst.AddItem Item:=Me.addValuecbo.Column(0)
     Form_subfrm_1.myLIst.Requery
 Case 2
     Form_subfrm_2.myLIst.AddItem Item:=Me.addValuecbo.Column(0)
     Form_subfrm_2.myLIst.Requery
 Case Else
     Form_subfrm_1.myLIst.AddItem Item:=Me.addValuecbo.Column(0)
     Form_subfrm_1.myLIst.Requery
 End Select

Ευχαριστώ πολύ!

[Tasos]

Καλησπέρα σε όλους!

Δημήτρη χαίρομαι που βρήκες τη λύση που σε εξυπηρετεί.

Παίρνω την πρωτοβουλία να ξανανοίξω το θέμα και να απαντήσω επειδή:

1. Θεωρώ ότι δεν είναι τεχνικά σωστό να φορτώνεις την κλάση της ήδη ανοιχτής φόρμας για δεύτερη φορά πχ. την Form_subfrm_2..
   
2. Η έκφραση Forms!mainfrm!subMainfrm.Form!myLIst αναφέρεται σε οποιαδήποτε φόρμα έχει φορτωθεί
   μέσα στο αντικείμενο subMainfrm της γονικής φόρμας mainfrm.
   
3. Πέρα από την απολύτως σεβαστή σου απόφαση να χρησιμοποιείς τις κλάσεις από φόρμες που είναι ήδη ανοιχτές,
   θεωρώ ότι πρέπει στο θέμα αυτό (αλλά και σε κάθε θέμα) να αναδειχτεί η τεχνικά πιο αποδοτική προσέγγιση για τους υπόλοιπους που μας διαβάζουν.

Συγνώμη αν σε κούρασα.

Με εκτίμηση

Τάσος