Διπλές εγγραφές σε Ερώτημα και Έκθεση
 

Καλησπέρα σε όλο το FORUM
Για άλλη μια φορά ζητάω τη βοήθεια σας
Έχω δημιουργήσει μία έκθεση που τα δεδομένα της βασίζονται σε ερώτημα
Στο ερώτημα υπάρχει ένα πεδίο AEXOF που παίρνει τιμή ΝΑΙ ΟΧΙ και έχει κριτήριο ψευδές επειδή το ερώτημα και η έκθεση τη χρησιμοποιώ ως απόδειξη εάν διαλέξω ένα (code1= τεμάχιο) AEXOFL στο ίδιο πελάτη σε άλλη ημερομηνία μου δημιουργεί διπλές εγγραφές επισυνάπτω τη βάση
Ευχαριστώ

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

Θανάση καλησπέρα
Η καταχώριση είναι μόνο ο κωδικός πελάτη στη ημερομηνία στη forma απόδειξη μέχρι εδώ μου δίνει η έκθεση και τα ρώτημα για όλα εντάξει όμως εάν θελήσω να μερικά τα τεμάχια [code1] σε περισσότερες ημερομηνίες χρησιμοποιώντας ναι k όχι [AEXOFL] τότε μου δίνει διπλές εγγραφές
επειδή είμαι αρχάριος η σκέψη μου είναι a: να χρησιμοποιηθούν κριτήρια στο ερώτημα η "να φτιάξω" ένα νέο ερώτημα για forma θα χρειαστεί κώδικας VB και δεν έχω ιδέα .Ευχαριστώ για το ενδιαφέρον σου

Καλησπέρα
Κώστα 1οπρόσθεσα στα ερωτήματα την εξόφληση Ν/Ο ή 0 / -1 και 2ο πέρασα ως μεταβλητή στην έκθεση απο την 3η φόρμα, ελπίζω να λύθηκε το πρόβλημα ..
θανάσης

Θανάση ευχαριστώ πολύ έστω και με καθυστέρηση.
Για το θέμα της εκτύπωσης δουλεύη μια χαρά
Δημιουργεί όμως διπλοεγγραφή στο ΣΥΓ_ΑΠΥΔΕ
Ευχαριστώ

Καλησπέρα
"Δημιουργεί όμως διπλοεγγραφή στο ΣΥΓ_ΑΠΥΔΕ" ,που χρησιμοποιείται το ερώτημα αυτό; αν είναι για το συνολικό άθροισμα δεν μπορεί να συμπεριληφθεί, γιατί τα αθροίσματα βγαίνουν τα παραπάνω στοιχεία, της εκτύπωσης με άλλα λόγια είναι περιττό.
θανάσης

Θανάση επειδή χρειαζόμουνα το ΣΥΓ_ΑΠΥΔΑ πρόσθεσα τη συνάρτηση στο ερώτημα ΚΙΝΗΣΕΙΣ_ΑΠΟΔΕΙΞΗ_ΠΑΡΟΧΗΣ_ ΥΠΗΡΕΣΙΩΝ_ΔΕΛΤΙΟ_ ΑΠΟΣΤΟΛΗΣ
AutoNum: DCount("Id";"ΑΠΟΔΕΙΞΗ _ΠΑΡΟΧΗΣ_ ΥΠΗΡΕΣΙΩΝ_ΔΕΛΤΙΟ_ ΑΠΟΣΤΟΛΗΣ";"Id<" & [Id])+1 και το έλυσα.
Σε ευχαριστώ πολύ και το FORUM για τη πολύτιμη βοήθεια που μου έχει δώσει

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

Καλησπέρα
Σου πρόσθεσα μια εντολή διαγραφής, για να περνάς όσες εγγραφές θες πες μας αν σε κάνει
Θανάσης

Καλησπέρα Θανάση και στο FORUM
ευχαριστώ για το ενδιαφέρον Τώρα στο θέμα η εντολή διαγραφής μου διαγραφή την εγγραφή και στα ερωτήματα
η βάση είναι ένα τμήμα της όλης τα ερωτήματα τα χρειάζομαι εάν εκτελέσω τη διαγραφή θα διαγράψω την προηγούμενη και θα χαλάσει το πεδίο [autonum] έτσι θα εκδίδω διπλή απόδειξη.
Eγώ προσανατολίζομαι σε μια forma επιλογής όπως στο επισυναπτόμενο (δεν είναι και δεσμευτικό όποια πρόταση είναι καλοδεχούμενη)
Εάν έχει ημερομηνία το [CODE1] τότε να εκτελείται η αναφορά και τα ερώτημα ανάλογα

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

Καλησπέρα Θανάση και στο 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 εμφανίζετε μόνο το μήνυμα

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