[ Φόρμες ] Επιλογή αναφοράς ανάλογα τιμής πεδίου

[serviceman]

Καλημέρα,

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

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

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

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

Με εκτίμηση

Σταύρος

[Meteora]

Καλημέρα.

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

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

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

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

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

[serviceman]

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

If IsNull(Me.poso2) Then

stDocName = "V1"
DoCmd.OpenReport stDocName, acPreview

Else

stDocName = "V2"
DoCmd.OpenReport stDocName, acPreview

End If

[Meteora]

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

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

[serviceman]

Αρχική Δημοσίευση από Meteora

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

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

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

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

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

[Meteora]

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

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

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

[serviceman]

Αρχική Δημοσίευση από Meteora

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

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

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

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

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

Με εκτίμηση

Σταύρος

[Meteora]

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

Υπάρχει δυνατότητα να εκτυπώνω στην κεφαλίδα...

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

[serviceman]

Καλημέρα σε όλους,

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

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

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

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

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

[Meteora]

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

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

ΒΗΜΑ 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()

Αυτό ήταν !

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