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

[exarhos]

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

[tsgiannis]

Στο 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 και θα χτυπήσει

[exarhos]

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

[tsgiannis]

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

[exarhos]

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

[tsgiannis]

Οταν δουλεύεις με πολλές γλώσσες αυτά παθαίνεις...ήθελε 2πλα quotes "
Αυτό που χρειάζεσαι είναι :

Private Sub Form_Current()
If Me.NewRecord Then
    Me.dateshift = DateAdd("d", 1, DMax("imerom", "ergasia")) + 1
End If

End Sub

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

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

[exarhos]

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

[exarhos]

Αρχική Δημοσίευση από exarhos

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

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

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

[kapetang]

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

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

[exarhos]

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