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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Φόρμες ] Νεα εγγραφή σε πίνακα με εντολή (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/6275-nea-eggrafi-se-pinaka-me-entoli.html)

Νεα εγγραφή σε πίνακα με εντολή

καλησπέρα

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

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

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

Κώδικας:

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