Καλησπέρα σε όλους...
Στράτο, χαίρομαι που βοήθησα να βρεις λύση σε κάποιο σημείο της εφαρμογής σου. Όμως αγαπητέ έχω κάποιες προτάσεις για σένα. Φτιάξε το προφίλ σου. (Το κυνηγός δεν είναι όνομα!) Όταν θέτεις ερώτηση φρόντισε να απευθύνεται σε όλα τα μέλη του Forum, διότι η συμμετοχή πολλών σε ένα ζήτημα αποδίδει καλύτερα αποτελέσματα. Εμφάνιση-προσθήκη-διαγραφή-αλλαγές τις κάνουμε στην ίδια φόρμα! Να αλλάξεις σιγά-σιγά (κρατώντας αντίγραφο) τα ονόματα φορμών, πινάκων πεδίων, εκθέσεων, ερωτημάτων,... Η εφαρμογή σου απορώ που "τρέχει"!
Τέλος, αν χτυπήσεις ζαρκάδι, λαγό,... σφύριξε κλέφτικα.
Στο συμβάν After Update (Μετά την ενημέρωση) της φόρμας "ΝΕΑ", πρόσθεσε τον κώδικα:
Κώδικας:
Private Sub Form_AfterUpdate()
DoCmd.GoToRecord , , acNewRec
Forms![ΑΡΧΙΚΗ]![ΜΕΛΗΣΥΛΛΟΓΟΥ].Form.Requery
End Sub
Η πρώτη εντολή πάει σε νέα εγγραφή (καθαρίζει!) και η δεύτερη ενημερώνει την υποφόρμα ΜΕΛΗΣΥΛΛΟΓΟΥ
Καλό απόγευμα σε όλους μας / Νίκος Δ.
Υστερολόγιο : βλέπεις ότι άλλαξα -
υποχρεωτικά- το όνομα στην υποφάρμα σου αφού αλλιώς δεν μπορούσα να γράψω εντολή;