[mousatos]

Καλησπέρα στα μέλη,
Επισυνάπτω τμήμα βάσης. Έχω μετατρέψει τις μακροεντολές σε κώδικα . Στη φόρμα TOPOS_PROSTHIKI_TEL στο πεδίο ΚΤ έχει μετατραπεί η μακροεντολή σε :
Option Compare Database

Private Sub KT_AfterUpdate()
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenQuery "5_B_EN_TEL_EX", acViewNormal, acEdit
DoCmd.RunCommand acCmdSaveRecord


End Sub

Στην ανάλυση απόδοσης μου βγάζει ότι Να χρησιμοποιηθεί η πρόταση Optio Explicit
Πράγματι κάτι έχω παραλείψει.
Ευχαριστώ εκ των προτέρων για τη βοήθεια
Καλό βράδυ