[kapetang]

Καλησπέρα
Δάφνη, δοκίμασε να προσαρμόσεις τον παρακάτω κώδικα.

Private Sub cmdAddRecord_Click()
    Dim CtlNames As Variant, j As Integer, numCtl As Integer

    On Error GoTo Err_cmdAddRecord_Click

    'Εδώ πρέπει να αναγραφούν τα ονόματα των στοιχείων ελέγχου της φόρμας
    'που θα αντιγραφούν.
    CtlNames = Array("Αιτιολογια", "Ποσό", "Τυπος")

    numCtl = UBound(CtlNames)
    ReDim CtlValues(numCtl) As Variant
    For j = 0 To numCtl
        CtlValues(j) = Me.Controls(CtlNames(j))
    Next

    DoCmd.GoToRecord , , acNewRec
    For j = 0 To numCtl
        Me.Controls(CtlNames(j)) = CtlValues(j)
    Next

Exit_cmdAddRecord_Click:
    Exit Sub

Err_cmdAddRecord_Click:
    MsgBox Err.Description
    Resume Exit_cmdAddRecord_Click
End Sub

Γιώργος