[ Φόρμες ] Νεα εγγραφή σε πίνακα με εντολή

[d_sachlikidis]

καλησπέρα

Παρακαλώ για την βοήθεια σας

Εχω μια ανοιχτή φόρμα (db παραστατικό ) στην οποία έχω ένα κουμπί εντολής (add), το οποίο τρέχει διάφορους κώδικες . Υπάρχει η δυνατότητα με το click(και στην απάντηση στο μήνυμα "ΘΑ ΓΙΝΕΙ ΝΕΑ ΦΟΡΤΩΣΗ;;" να μπορεί να δημιουργήσει νέα εγγραφή σε άλλη φόρμα "fortotiki_frm" η οποία είναι και αυτή ανοιχτή σε κατάσταση Minimaze ; ενώ με το όχι να δημιουργεί νεα εγγραφή στην φόρμα "παραστατικό";;;

[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 που είναι κρυφό.