Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   ΓΡΗΓΟΡΗ ΕΜΦΑΝΙΣΗ ΦΟΡΜΑΣ ή ΕΚΘΕΣΗΣ (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/745-grhgorh-emfanish-formas-i-ektheshs.html)

balex 24-09-10 10:13
ΓΡΗΓΟΡΗ ΕΜΦΑΝΙΣΗ ΦΟΡΜΑΣ ή ΕΚΘΕΣΗΣ
 
1 Συνημμένο(α)
Καλημέρα σε όλους σας
Χρειάζομαι την βοήθειά σας
Πως μπορώ με την χρήση σύνθετου πλαισίου να επιλέξω να εμφανίζονται όσες φόρμες ή εκθέσεις θέλω ? Σας στέλνω μια βάση για να γίνω πιο κατανοητή.
Ευχαριστώ εκ των προτέρων
Αλεξάνδρα

mdragon 24-09-10 14:56
1 Συνημμένο(α)
Αλεξάνδρα, καλησπέρα.
Ρίξε μια ματιά στο συνημμένο, ελπίζω να είναι αυτό που θές



Φιλικά,
Μάρω

nisgia 24-09-10 16:04
Καλησπέρα!

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

Κώδικας:
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 24-09-10 17:30
Αγαπητέ Γιάννη,
μην ανησυχείς δεν παρεξηγούμε, άλλωστε ξέρω οτι οι γνώσεις μου στην Access είναι απλά καλές, και χαίρομαι έστω και αν βρίσκω τη λύση μέσω Λαμίας ;)
Σε όλα τα ερωτήματα υπάρχουν πολλές απαντήσεις και δεν με ενοχλεί καθόλου να υπάρχει κάποια καλύτερη λύση από τη δική μου.


Φιλικά,
Μάρω

balex 25-09-10 18:57
Καλησπέρα Μάρω και Γιάννη και σε όλο το forum
Ευχαριστώ για την υποστήριξή σας ειλικρινά
Φιλικά
Αλεξάνδρα


Η ώρα είναι 22:07.

Ms-Office.gr - ©2000 - 2025, Jelsoft Enterprises Ltd.


Content Relevant URLs by vBSEO 3.3.2