[kapetang]

Καλημέρα

Δημήτρη, δοκίμασε τον κώδικα:

Private Sub Form_Load()
    Me.IMEROMINIA.SetFocus
    Me.TimerInterval = 100
End Sub

Private Sub Form_Timer()
    Me.TimerInterval = 0
    Imerominia_KeyDown 1, 1
End Sub

Όπως θα δεις, η διαδικασία Imerominia_KeyDown δεν καλείται άμεσα από τη διαδικασία Form_Load, αλλά εμμέσως από τη διαδικασία Form_Timer.

Κατέφυγα στη λύση αυτή, επειδή, όταν καλείται άμεσα, η γραμμή του κώδικα: DoCmd.GoToRecord , , acNewRec, προκαλεί λάθος.

Φιλικά/Γιώργος