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

Σελίδα 1 από 3

Εμφάνιση 40 μηνυμάτων αυτού του θέματος σε μία σελίδα

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/3056-problima-me-aytomati-kataxorisi-pedioy-formas.html)

smasak

11-03-14 11:28

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

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

smasak

12-03-14 10:59

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

Tasos

13-03-14 05:31

Καλημέρα!

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

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

Κώδικας:

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

13-03-14 06:58

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

smasak

13-03-14 07:33

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

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

smasak

15-03-14 09:19

1 Συνημμένο(α)

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

Tasos

15-03-14 10:13

Καλημέρα!

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

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

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

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

Φιλικά

Τάσος

smasak

15-03-14 13:38

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

Tasos

15-03-14 16:26

Αφαίρεσες από το ερώτημα της έκθεσης τον πίνακα "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

15-03-14 19:27

2 Συνημμένο(α)

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

Η ώρα είναι 18:53.

Σελίδα 1 από 3

Εμφάνιση 40 μηνυμάτων αυτού του θέματος σε μία σελίδα

Search Engine Optimization by vBSEO 3.3.2