ΓΡΗΓΟΡΗ ΕΜΦΑΝΙΣΗ ΦΟΡΜΑΣ ή ΕΚΘΕΣΗΣ

[balex]

Καλημέρα σε όλους σας
Χρειάζομαι την βοήθειά σας
Πως μπορώ με την χρήση σύνθετου πλαισίου να επιλέξω να εμφανίζονται όσες φόρμες ή εκθέσεις θέλω ? Σας στέλνω μια βάση για να γίνω πιο κατανοητή.
Ευχαριστώ εκ των προτέρων
Αλεξάνδρα

[mdragon]

Αλεξάνδρα, καλησπέρα.
Ρίξε μια ματιά στο συνημμένο, ελπίζω να είναι αυτό που θές



Φιλικά,
Μάρω

[nisgia]

Καλησπέρα!

Μάρω, δεν υπονοώ κάτι για τη λύση σου όμως θεωρώ πως έχω μια πιο ευέλικτη λύση
της οποίας ο κώδικας φαίνεται παρακάτω:

Private Sub cboMyObjects_AfterUpdate()
    On Error Resume Next
    DoCmd.OpenForm cboMyObjects, acNormal
    DoCmd.OpenReport cboMyObjects, acViewPreview
End Sub

Private Sub Form_Load()
    Me.cboMyObjects.RowSourceType = "Value List"
    Me.cboMyObjects.RowSource = MyObjectsNames
End Sub

Private Function MyObjectsNames() As String
    Dim obj As Object
    Dim strNames As String
    
    For Each obj In CurrentProject.AllForms
        If obj.Name <> Me.Name Then
            strNames = strNames & "; " & obj.Name
        End If
    Next obj
    i = 0
    For Each obj In CurrentProject.AllReports
        strNames = strNames & "; " & obj.Name
    Next obj
    MyObjectsNames = Mid(strNames, 3)
End Function

cboMyObjects είναι το όνομα του σύνθετου πλαισίου.

Φιλικά,
Γιάννης

[mdragon]

Αγαπητέ Γιάννη,
μην ανησυχείς δεν παρεξηγούμε, άλλωστε ξέρω οτι οι γνώσεις μου στην Access είναι απλά καλές, και χαίρομαι έστω και αν βρίσκω τη λύση μέσω Λαμίας ;)
Σε όλα τα ερωτήματα υπάρχουν πολλές απαντήσεις και δεν με ενοχλεί καθόλου να υπάρχει κάποια καλύτερη λύση από τη δική μου.


Φιλικά,
Μάρω

[balex]

Καλησπέρα Μάρω και Γιάννη και σε όλο το forum
Ευχαριστώ για την υποστήριξή σας ειλικρινά
Φιλικά
Αλεξάνδρα