[sarafis]

Καλησπέρα
Δεν διευκρινίζεις ποια μέθοδο θέλεις να ακολουθήσεις αν και αυτό που γράφεις παραπέμπει σε εντολή SQL.
Έτσι αν και τα δύο πεδία βρίσκονται στην φόρμα σου μπορείς να γράψεις:

Private Sub AFM_AfterUpdate()
me.AFM_FOR=me.AFM
End Sub

Αν τώρα θέλεις να γράψεις εντολή SQL θα πρέπει να γράψεις:

Private Sub AFM_AfterUpdate()
docmd.runsql "INSERT INTO [FOROLOGIKA_STOIXEIA] ([AFM_FOR]) VALUES ([AFM])"
End Sub

Αν δεν σε καλύπτουν αυτά δώσε μας περισσότερες πληροφορίες