Πρόβλημα με αυτόματη καταχώρηση πεδίου φόρμας

[smasak]

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

[smasak]

Ποιά εντολή πρέπει να ενσωματώσω στο κουμπί "έξοδος" σε μία φόρμα ώστε όταν το πεδίο π.χ. ΧΡΕΩΣΗ είναι μηδέν να μην δίνει (σώζει) την τιμή στον αντίστοιχο πίνακα;Ίσως την If, αλλά πως μπορώ να την συντάξω;

[Tasos]

Καλημέρα!

Στο κουμπί "Έξοδος" δεν θα χρειαστεί να τροποποιήσεις κάτι.

Πρόσθεσε απλά τον παρακάτω κώδικα στη φόρμα:

Option Compare Database
Option Explicit

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If IsNull(Me.Price) Then
        Cancel = True
        Me.Undo
    End If
End Sub

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

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If DataErr = 2169 Then
        Response = acDataErrContinue
    End If
End Sub

Καλή συνέχεια!

Τάσος

[smasak]

Τάσο χίλια ευχαριστώ,τροποποίησα λίγο τον κώδικα ώστε να δουλεύει με 0 και όχι με Null.

[smasak]

(Τάσο πως μπορώ κλικάροντας το κουμπί της "εξόδου" να μην αποθηκεύει τιμή;Έχω κουμπί αποθήκευση και θέλω με αυτό να βγαίνω χωρίς αποθήκευση.Κάτι σαν ESC δηλαδή.
Προσπάθησα να προσαρμόσω την εντολή της φόρμας στο κουμπί αλλά δεν δουλεύει.)

ΤΟ ΕΦΤΙΑΞΑ , ΟΚ

[smasak]

Τάσο ή όποιος μπορεί να βοηθήσει έχω ένα πρόβλημα με την βάση και δεν μπορώ να βρω από που προέρχεται.Ενώ οι πίνακες ενημερώνονται σωστά, στην αναλυτική εκτύπωση "rptPliromes" μου εμφανίζει διπλές εγγραφές όπως και στο qryPelates.Δηλαδή αν περάσω μία χρέωση θα εμφανίσει το ποσό και στην πληρωμή στην εκτύπωση και ανάποδα.
Ανεβάζω την βάση .

[Tasos]

Καλημέρα!

Σάκη, στη θέση του πεδίου "[ΗΜΕΡΟΜΗΝΙΑ ΠΛΗΡΩΜΗΣ]" επικόλλησε το παρακάτω:
PaymentDate: DLookUp("[ΗΜΕΡΟΜΗΝΙΑ ΠΛΗΡΩΜΗΣ]";"tblPliromes";"ID=" & [tblPelates].[ID])

και στη θέση του πεδίου "[ΠΛΗΡΩΜΗ]" επικόλλησε το παρακάτω:
Payment: DLookUp("ΠΛΗΡΩΜΗ";"tblPliromes";"ID=" & [tblPelates].[ID])

Κατόπιν αφαίρεσε από το ερώτηματης έκθεσης τον πίνακα "tblPliromes".

Το πεδίο "[ID ΠΛΗΡΩΜΩΝ]" θα φύγει αφού αφαιρέσεις τον πίνακα.

Φιλικά

Τάσος

[smasak]

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

[Tasos]

Αφαίρεσες από το ερώτημα της έκθεσης τον πίνακα "tblPliromes";

Δοκίμασε σε ένα νέο ερώτημα τον παρακάτω κώδικα SQL:

SELECT DLookUp("ΠΛΗΡΩΜΗ","tblPliromes","ID=" & [tblPelates].[ID]) AS Payment, 
DLookUp("[ΗΜΕΡΟΜΗΝΙΑ ΠΛΗΡΩΜΗΣ]","tblPliromes","ID=" & [tblPelates].[ID]) AS PaymentDate, 
tblPelates.ΕΠΩΝΥΜΟ, tblPelates.ID, tblPelates.ΟΝΟΜΑ, tblXreoseis.ΧΡΕΩΣΗ, tblXreoseis.[ΗΜΕΡΟΜΗΝΙΑ ΧΡΕΩΣΗΣ], 
tblPelates.ΔΙΕΥΘΥΝΣΗ, tblXreoseis.[ΑΙΤΙΟΛΟΓΙΑ ΧΡΕΩΣΗΣ], tblXreoseis.id_Xreoseis
FROM tblPelates INNER JOIN tblXreoseis ON tblPelates.ID = tblXreoseis.ID;

Τάσος

[smasak]

Τάσο αφαίρεσα τον πίνακα, δημιούργησα και ένα νέο qry με τον SQL που μου πρότεινες αλλά πάλι η διπλή εγγραφή εμμένει.
Όπως θα δεις και στα αρχεία που ανεβάζω έχω διαγράψει όλες τις κινήσεις, κάνω δύο νέες χρεώσεις και μία πληρωμή η οποία όμως φαίνεται δύο φορές και όσες χρεώσεις και να κάνω τόσες αντίστοιχα θα είναι και οι πληρωμές.