[nasos23]

Καλησπέρα σε όλους.
Δημήτρη δες μια προσέγγιση στο ζητούμενο.

If MsgBox("ΘΑ ΓΙΝΕΙ ΝΕΑ ΦΟΡΤΩΣΗ;;", vbYesNo + vbQuestion) = vbYes Then

DoCmd.SetWarnings False
 DoCmd.RunSQL "INSERT into Fortotiki_tbl (NoFortotikis, Ημερομηνια, Αριθ_Κυκλοφορίας) VALUES (NoFort,Ημερομηνια,cbotransporter);"
DoCmd.OpenForm "Fortotiki_frm", acNormal, , "NoFortotikis=" & NoFort

DoCmd.SetWarnings True
End If

όπου το NoFort είναι κρυφό πεδίο στη φόρμα "ΠΑΡΑΣΤΑΤΙΚΟ" που αντλεί δεδομένα
από =Nz(DMax("[NoFortotikis]";"Fortotiki_tbl");0)+1
Επίσης έχω κάνει αλλαγές στη φόρμα "Fortotiki_frm" γιατί όταν άνοιγε στο παρασκήνιο
ο αριθμός φορτωτικής δεν ήταν +1 αλλά +2
Επίσης η φόρμα "Fortotiki_frm" μπορεί να λειτουργήσει και ανεξάρτητα.
Σ΄ αυτή την περίπτωση σε κάθε νέα εγγραφή μετά την ενημέρωση του πεδίου ημερομηνία
εμφανίζεται και ο αριθμός στο πεδίο NoFortotikis που είναι κρυφό.