Forum - Reports

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Reports (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/2174-reports.html)

alex	13-11-12 15:16

Reports

1 Συνημμένο(α)

Καλησπέρα και πάλι σήμερα

Πώς μπορούμε να εμφανίσουμε Έκθεση την εγγραφή φόρμας που ταιριάζει με την ονομασία της Έκθεσης.
Καλύτερα στο παράδειγμα που επισυνάπτω.
Τα δεδομένα:
Έχω στη φόρμα την εγγραφή "Αναφορά ανάληψης υπηρεσίας"
Έχω και έκθεση με ονομασία "Αναφορά ανάληψης υπηρεσίας"
Στη φόρμα έχω 3 εντολές μία από αυτές είναι η έκθεση.Πως μπορώ σε κάθε εγγραφή να εμφανίζω την ταυτοποίηση της εγγραφής με την έκθεση.
Δηλαδή να εμφανίζω την έκθεση "Αναφορά ανάληψης υπηρεσίας" που είναι και στο παράδειγμα.

Φιλικά/Αλέξανδρος

stavross

13-11-12 16:15

1 Συνημμένο(α)

Δες αν σου κάνει πρόχειρα και αν ναι να το συνεχίσω

alex	13-11-12 16:31

Καλησπέρα Σταύρο

Θέλω με ένα κουμπί εντολής χωρίς να συμπληρώνω ID να ανοίγει την έκθεση

Αλέξανδρος

alex	13-11-12 17:06

Καλησπέρα Σταύρο

Νομίζω ότι στο κουμπί εντολής θέλει κάπως έτσι με κώδικα :

Κώδικας:

Private Sub CmdPrintRPT_Click()

Dim strDocName As String, strCriteria As String, Ac_Wiew$

    

    If Not Me.NewRecord Then

        If Nz(Me.PrintDirectly, False) Then Ac_Wiew = acViewNormal Else Ac_Wiew = acViewPreview

        strCriteria = "ID = " & Me.ID

        strDocName = ""

        DoCmd.OpenReport strDocName, Ac_Wiew, , strCriteria

Exit_CmdPrintRPT_Click:

        Exit Sub

Err_CmdPrintRPT_Click:

        MsgBox Err.Description

        Resume Exit_CmdPrintRPT_Click

    End If
 

End Sub

Εδώ κάτι θέλει διόρθωση πιστεύω.

Φιλικά/Αλέξανδρος

alex	13-11-12 17:14

Σταύρο!!!!
Μερικές φορές κολάμε απο τις πολλές ώρες στο PC
Tο πρόβλημα λύθηκε
Ο κώδικας

Κώδικας:

Private Sub CmdPrintRPT_Click()

Dim strDocName As String, strCriteria As String, Ac_Wiew$

   

    If Not Me.NewRecord Then

        If Nz(Me.PrintDirectly, False) Then Ac_Wiew = acViewNormal Else Ac_Wiew = acViewPreview

        strCriteria = "ID = " & Me.ID = Fname

        strDocName = Fname

        DoCmd.OpenReport strDocName, Ac_Wiew, , strCriteria

Exit_CmdPrintRPT_Click:

        Exit Sub

Err_CmdPrintRPT_Click:

        MsgBox Err.Description

        Resume Exit_CmdPrintRPT_Click

    End If
 

End Sub

Δοκίμασε γιατί δεν το δοκίμασα και καλά

Φιλικά/Αλέξανδρος

Η ώρα είναι 08:17.

Search Engine Optimization by vBSEO 3.3.2