15-04-22, 11:17
|
| Όνομα: Γιάννης Έκδοση λογισμικού Office: Ms-Office 2016 Γλώσσα λογισμικού Office: Αγγλική | | Εγγραφή: 08-12-2020
Μηνύματα: 153
| |
Στο 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 και θα χτυπήσει
|