Καλησπέρα σε ολους
Κώστα πρόσθεσα επι πλέον το πεδίο με το κωδικό τεμαχ, επιλέγοντας προσεκτικά τον κωδικό που είναι και συγχρόνως εξοφλημένος ή οχι κάνει την εγγραφή εκτύπωση, με μικρά προβληματάκια που ισως βοηθήσει κάποιος!!!! προσοχή στα κενά...
θανάσης

Καλησπέρα Θανάση και στο FORUM
Ευχαριστώ πολύ με το ενδιαφέρον σου για το πρόβλημα μου.
Μου έδωσες όμως ιδέες Στο επισυναπτόμενο
Έκανα κάποιες αλλαγές στα ερωτήματα και στη forma και ένα ένα τεμάχιο εξοφλείται και η εκτύπωση είναι σωστή όμως συναντώ το πρόβλημα με όλα τα τεμάχια εκεί δεν περνώ εκτύπωση εάν δεν βάλω στο κάθε ένα τεμάχιο ["DATEOUT"] στη forma που ανοίγει με το κουμπί επιλογή .
Σκέπτομαι στο κουμπί επιλογής της φόρμας θα ενημερώνω τη δεύτερη forma το [DATEOUT]από το [HMEPOM] κοιτάω κάποια παραδείγματα και από το FORUM

Κώστα καλησπέρα,

Τροποποίησα λίγο τον κώδικα του Θανάση. Στο button 'Επιλογή' στο συμβάν On Click από το πτυσσόμενο πλαίσιο επέλεξε Event Procedure και πρόσθεσε τον παρακάτω κώδικα

Dim msg As String

If IsNull(Me.ΚΩΔ_ΠΕΛ) = True Then
msg = MsgBox("Σε αυτήν την εγγραφή η τιμή στο πεδίο 'Πελάτης' είναι ΚΕΝΗ", _
vbInformation, "Η Εφαρμογή σας ενημερώνει ότι..")
Exit Sub
Else
DoCmd.OpenForm "ΚΙΝΗΣΕΙΣ17/8", _
WhereCondition:="ΚΩΔ_ΠΕΛ=" & Me.ΚΩΔ_ΠΕΛ
End If

Με τον κώδικα αυτόν όταν είναι ΚΩΔ_ΠΕΛ = Null εμφανίζετε μόνο το μήνυμα

Κώστα καλησπέρα και εσένα
Έβαλα τον κώδικα αλλά δημιουργεί διπλοτίμες και δεν δουλεύει στην έκθεση για περισσότερες διαλογές τεμαχίων
Πάντως το προσπαθώ και σε ευχαριστώ πολύ