ΕΝΗΜΕΡΩΣΗ ΗΜΕΡΟΜΗΝΙΑΣ ΣΕ ΦΟΡΜΑ
 

καλημερα σασ και πάλι. θα χρειαστώ για πολλοστή φόρα τη βοηθεια σας. Σε μια φρομα vardies.frm" θα ήθελα στο κουμπι "ΑΠΟΘΗΚΕΥΣΗ¨,αφου αποθηκευει τα δεδομενα σton πινακα vardies.tbl, ανοιγει νεα εγγραφη (DoCmd.GoToRecord , , acNewRec
) στον πινακα "Vardies.tbl" θα ήθελα το πλαίσιο ελεγχου
date ( ημερομηνια_βαρδιας) να πηγαινει αυτοματα στην επομενη ημερα απο την ημερα που αποθηκευτηκε. πχ. σημερα 14/04 βγαζω βαρδιεσ για την 23/4 αφου πατησω το κουμπι "ΑΠΟΘΗΚΕΥΣΗ" να ανοιγει νεα εγγραφη με την επομενη ημερα(
24/4)
Ευχαριστω πολυ εκ των προτερων

Στο Click event της ΑΠΟΘΗΚΕΥΣΗΣ :
DoCmd.GoToRecord , , acNewRec

και μετά στο Current event της φορμας
If me.NewRecord then
me.[ShiftDate] = dateAdd('d',1,DMax('Shiftdate",'Vardies.tbl")
End if

ΥΠΟΨΙΝ εαν έχεις πεδίο Date...αλλαξε το σε κάτι άλλο καθώς το Date είναι reserved word και θα χτυπήσει

φίλε Γιάννη σ ευχαριστώ πολύ που για μια ακομα φορά ανταποκριθηκες στο προβλημα μου.
αντικατέστησα το πλαισιο κειμενου "date" με το "shiftdate" γιατι οπωσ είπες θα χτυπησει. εκανα copy paste τον κωδικα αλλα και πάλι χτυπάει. (κοκκινιζει) μου βγαζει μηνυμα τησ φωτο που επισυναπτω
Συνημμένο Αρχείο 11908

Συνημμένο Αρχείο 11909

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

φίλε μου καλημέρα και καλή Μεγάλη Εβδομάδα. σου επισυνάπτω δείγμα της βάσης
. Ευχαριστώ πολύ εκ των προτέρων
Συνημμένο Αρχείο 11913

Οταν δουλεύεις με πολλές γλώσσες αυτά παθαίνεις...ήθελε 2πλα quotes "
Αυτό που χρειάζεσαι είναι :
Μπερδεύεις λίγο τα ονόματα με τα Aliases .... καλυτερα να κρατάς το όνομα του πεδίου για να μην ψάχνεις..δλδ ή Imerom ή DateShift (ή μάλλον καλύτερα ShiftDate) ...το οποίο θα είναι το όνομα του πεδίου στον πίνακα και θα διατηρηθεί παντού...απο εκεί και πέρα έχουμε τα labels για να βάζουμε βολικές ονομασίες

Καλη Μεγάλη Βδομάδα.

Σ'ευχαριστω πολύ για το χρόνο σου τη βοηθεια και τισ συμβουλες. δουλεύει εν μερη. δλδ δεν πηγαινει ακριβωσ στην επομενη ημερα αλλα 2 μερεσ μετα, Συνημμένο Αρχείο 11915

αυτοσχεδίασα και βρηκα τη λυση.
If Me.NewRecord Then
Me.dateshift = DateAdd("d", 0, DMax("imerom", "ergasia")) + 1
End If
εβαλα 0 αντιθ για 1 που ειχεσ γραψει εσυ και δουλευει

σε ευχαριστω πολύ φίλε μου.
Υ.Γ σε αρκετους εδω μέσα αλλα ειδικα σε σένα χρωστάω πολλά κερασματα, τοσες πολλές φόρες που με βοήθησατε σε δίαφορα προβλήματα που αντιμετώπισα. :thumbup:

Και μια απλοποίηση του κώδικα:

Me.dateshift = DMax("imerom", "ergasia") + 1

χιλια ευχαριστω. να σαι καλα