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/591-epilogi-anaforas-analoga-timis-pedioy.html)

serviceman 14-05-10 08:40

Επιλογή αναφοράς ανάλογα τιμής πεδίου
 
1 Συνημμένο(α)
Καλημέρα,

συγχαρητήρια για το φορουμ .

Εργάζομαι σε μια δημόσια υπηρεσία και στην προσπάθεια να αυτοματοποιήσω μια διαδικασία έκανα μια μικρή βασούλα με έναν πίνακα και 2 αναφορές.
Η πρώτη αναφορά εμφανίζετα πατώντας το κουμπί 3 βεβαίωσηΑ ενώ η δεύτερη πατώντας το κουμπί 4 βεβαίωσηΒ .

Θα θελα να αυτοματοποιήσω την διαδικασία μέσω ελέγχου του πεδίου ποσό2 με την ένδειξη 2.
Δηλαδή εάν στο πεδίο ποσό 2 υπάρχει ποσό τότε να τρέχει με το πάτημα κουμπιού η δευτερη αναφορά εάν ειναι μηδέν με το πάτημα του ίδιου κουμπιού να τρέχει η πρώτη αναφορά.

Επισυνάπτω εικόνα, τα στοιχεία είναι ψευτικα.

Με εκτίμηση

Σταύρος

Meteora 14-05-10 12:00

Καλημέρα.

Σταύρο, μπορείς να έχεις μια λύση μέσα απο :
Κώδικας:


If isNull([πεδιοχ]) or [πεδιοχ]= "" then
  εκτύπωση 1ης αναφοράς
else
  εκτύπωση 2ης αναφοράς
 end if

...και δεν είναι η μόνη !

ΥΣ Θα κάνεις χρήση ενός κουμπιού πλέον. (αν το πεδίο ειναι κενό τότε θα εκτυπώνεται η 1η αναφορά,...)

με εκτίμηση / Νίκος Δ.

serviceman 14-05-10 12:18

Ευχαριστώ πολύ Νίκο δουλευει αψογα η λύση σου συγκεκριμμένα ο κώδικας που χρησιμοποίησα:

If IsNull(Me.poso2) Then

stDocName = "V1"
DoCmd.OpenReport stDocName, acPreview

Else

stDocName = "V2"
DoCmd.OpenReport stDocName, acPreview

End If

Meteora 15-05-10 18:06

Καλησπέρα !
Σταύρο -για δοκιμή- διέγραψε το περιεχόμενο στο πεδίο [poso2] και τρέξε τον κώδικα που έγραψες. Πες μας ποια αναφορά εμφανίζεται...
Φιλικά / Νίκος Δ

Υστερολόγιο : Μάλλον θα εμφανιστεί η V2 ! ...

serviceman 16-05-10 11:09

1 Συνημμένο(α)
Παράθεση:

Αρχική Δημοσίευση από Meteora (Μήνυμα 2715)
Καλησπέρα !
Σταύρο -για δοκιμή- διέγραψε το περιεχόμενο στο πεδίο [poso2] και τρέξε τον κώδικα που έγραψες. Πες μας ποια αναφορά εμφανίζεται...
Φιλικά / Νίκος Δ

Υστερολόγιο : Μάλλον θα εμφανιστεί η V2 ! ...

Καλημέρα Νίκο,

το μόνο πρόβλημα είναι αν βάλεις 0 στο ποσό2 τότε βγαζει την V2 αν δεν έχει τίποτα το πεδίο εμφανίζει την V1.

Στέλνω και την βασούλα!

Meteora 16-05-10 15:51

Καλημέρα...
Πρόσθεσε στην εντολή σου το τμήμα που εμφανίζεται έντονα 'μαυρισμένο', για να καλύψεις την περίπτωση του μηδέν...
Κώδικας:


If IsNull(Me.poso2) or me.poso2 = 0 Then

Φιλικά / Νίκος Δ.

serviceman 16-05-10 18:09

Παράθεση:

Αρχική Δημοσίευση από Meteora (Μήνυμα 2721)
Καλημέρα...
Πρόσθεσε στην εντολή σου το τμήμα που εμφανίζεται έντονα 'μαυρισμένο', για να καλύψεις την περίπτωση του μηδέν...
Κώδικας:


If IsNull(Me.poso2) or me.poso2 = 0 Then

Φιλικά / Νίκος Δ.

Τώρα δείχνει άψογο.

Υπάρχει δυνατότητα να εκτυπώνω στην κεφαλίδα της φόρμας τα στοιχεία (επωνυμία,διευθυνση τηλέφωνο ) από πίνακα, μια εγγραφή από ένα πίνακα στοιχεία υπηρεσίας, έτσι ώστε όταν αλλάξουν τα στοιχεία να αλλάζεις την εγγραφή και οχι την έκθεση;

Με εκτίμηση

Σταύρος

Meteora 17-05-10 12:00

Καλημέρα στην κοινότητα !
Αγαπητέ Σταύρο παρουσίασε με παράδειγμα τι θες να συμβεί, ώστε να γίνει σαφέστατο ο,τι επιδιώκεις να πετύχεις. Ήδη έχεις ανεβάσει δυο πίνακες που περιέχουν 2-3 record, αλλά δεν καταλαβαίνω τι εκφράζουν. Γράψε λοιπόν μια μικρή "ιστορία" του τι θες, πως σκέφτεσαι να επιλυθεί και έτσι τα μέλη του Forum να μπορέσουν να σε βοηθήσουν. Γράφεις για παράδειγμα
Παράθεση:

Υπάρχει δυνατότητα να εκτυπώνω στην κεφαλίδα...
αυτό παραπέμπει σε σκέψεις 'εκτύπωση φόρμας' αλλά και 'παρουσίασης επικεφαλίδας σε φόρμα'...
Διαβάζοντας παρακάτω, πάλι δεν ειναι - σε μένα - κατανοητό τι θες και δεν μπορώ να απαντήσω...
Φιλικά / Νίκος Δ.

serviceman 17-05-10 12:29

1 Συνημμένο(α)
Καλημέρα σε όλους,

έχω 2 πίνακες pinakas1, pinakas2 και 2 αναφορές V1, V2.
Αν έχω ποσό2 διαφορετικό από 0 εκτυπώνει έκθεση2 αλλιώς έκθεση1.
Ολα καλά μέχρι εδώ με την βοήθεια του Νίκου (Meteora).

Το νέο στοιχείο είναι ότι στον πίνακα2 έχω τα δεδομένα (όνομα ταμείου, διευθυνση, τηλέφωνο) του ταμείου. Θέλω στις αναφορές V1 και V2 να εμφανίζονται τα δεδομένα της μοναδικής εγγραφής του πίνακα2 στην επικεφαλίδα, έτσι ώστε όταν αλλάζουν τα στοιχεία να αλλάζω την εγγραφή και αυτή να εμφανίζετε αλλαγμένη στις εκθέσεις.

Ανεβάζω υλικό.

Με εκτίμηση
Σταύρος

Υ.Γ
Ευχαριστώ εκ των προτέρων

Meteora 17-05-10 18:28

1 Συνημμένο(α)
Καλησπέρα και απο εδώ ...
Σταύρο, ρίξε μια ματιά στο επισυναπτόμενο αρχείο και τα ...ξαναλέμε !

Αξίζει τον κόπο να δείτε την διαδικασία με την οποία περνάς παραμέτρους σε έκθεση :

ΒΗΜΑ 1ο
Φτιάχνουμε μια module και γράφουμε τα παρακάτω

Κώδικας:


Option Compare Database
Option Explicit
Public Titlos As String         

ΒΗΜΑ 2ο
Στην ίδια module,
Κώδικας:

Public Function FTitlos()
With CurrentDb.OpenRecordset("pinakas2", 4)      'το 4 αφορά κατάσταση ΜΟΝΟ για διάβασμα
        .MoveFirst
        FTitlos = !onomatameiou & "  " & !dieftinsi &"  "& !tilephono
End With
End Function

Αυτή η συνάρτηση βρίσκει το 1ο Record ενός πίνακα και διαβάζει τα περιεχόμενα τριών πεδίων, τα οποία και ενώνει. Θα μπορούσαμε σε αυτό το στάδιο να γράψουμε FTitlos= "Καλαμπάκα" ή ότι άλλο και να περαστεί έτσι όποια παράμετρος θέλουμε στην έκθεση.

ΒΗΜΑ 3ο Σε ένα πλαίσιο κειμένου κάπου στο Report, υπάρχει ως ‘Προέλευση στοιχείου ελέγχου’ το:
Κώδικας:

=FTitlos()
Αυτό ήταν !

Δείτε το στο επισυναπτόμενο αρχείο το οποίο αντικατέστησα...διότι δεν είχε καμιά λογική αυτό που είχα πριν. Τουλάχιστον τώρα, έστω και αν το περιεχόμενο δεν δώσει λύση στον φίλο μας Σταύρο, είναι βέβαιο οτι θα βοηθήσει άλλα μέλη & επισκέπτες
Φιλικά / Νίκος Δ.


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

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


Search Engine Optimization by vBSEO 3.3.2