Aποσφαλμάτωση φόρμας σε βάση
 

Καλημέρα και πάλι στην παρέα

Ενω πίστευα ότι τελείωσα τελικά δεν το απέφυγα.Στην φόρμα Ταμείο Ημέρας στον κώδικα δεν είχα υπολογίσει το Εξώφλησε σαν Παράμετρο(περιορισμό) με αποτέλεσμα όταν εγώ τσεκαριζα Εξώφληση σε ένα πελάτη στη φόρμα ΚινήσειςΠελάτη και υπήρχαν αλλοι 5 που διέμεναν στο ξενοδοχείο τότε γινόταν πρόσθεση των τιμών σε όλα τα πεδία όλων των πελατών. με το (ΠοσόΠληρωμών ,ΠοσόΔιαμονής ,ΠοσόΠαροχών)
Βάζοντας τον παρακάτω κώδικα

If tbl2![Εξώφλησε] = -1 And tbl1![CustomerID] = tbl2![CustomerID] And tbl1![ΗμερΠληρωμής] >= tbl2![StartDate] And tbl1![ΗμερΠληρωμής] <= tbl2![EndDate] Then

μου βγάζει σφάλμα κάνοντας Debug το σφάλμα είναι με το Loop
To μήνυμα με το σφάλμα είναι ; Loop Without Do

Τι διορθωση κάνουμε στην περίπτωση αυτή.Στέλνω την βάση για βοήθεια.

Φιλικά
Αλεξανδρος

Καλημέρα Αλέξανδρε!

Πριν από το tbl2.MoveNext που υπάρχει μερικές γραμμές παρακάτω, βάλε ένα End If για να είναι σωστή η σύνταξη του If και κατά συνέπεια του Loop.

Φιλικά

Τάσος

Καλημέρα Τάσο

Ευχαριστώ Τάσο!!!!

Φιλικά/Αλέξανδρος