[Tasos]

Καλησπέρα!

Απόστολε, δοκίμασε τον παρακάτω κώδικα (χωρίς ρουτίνα αποσφαλμάτωσης):

Option Compare Database
Option Explicit

Private Sub Εντολή14_Click()
    Dim dbs As DAO.Database
    Dim rs1 As DAO.Recordset
    Dim rs2 As DAO.Recordset
    Dim strSQL As String
    Dim ID As Long
    Set dbs = CurrentDb

    strSQL = "INSERT INTO ΑΡΧΕΙΟΕΝΤΟΛΗΣΠΕΛ ( ΚΩΔΙΚΟΣΕΝΤΟΛΗΣ, ΚΩΔΙΚΟΣΠΕΛΑΤΗ, " & _
             "ΕΠΩΝΥΜΟ, ΟΜΟΜΑ, ΑΦΜ, ΗΜΕΡΟΜΗΝΙΑ ) VALUES( " & _
             Nz(Me.ΚΩΔΙΚΟΣΕΝΤΟΛΗΣ, 0) & ", " & _
             Nz(Me.ΚΩΔΙΚΟΣΠΕΛΑΤΗ, 0) & ", '" & _
             Nz(Me.ΕΠΩΝΥΜΟ, "") & "', '" & _
             Nz(Me.ΟΜΟΜΑ, "") & "', '" & _
             Nz(Me.ΑΦΜ, "") & "', #" & _
             Format(Nz(Me.ΗΜΕΡΟΜΗΝΙΑ, 0), "m\/d\/yyyy") & "#)"

    dbs.Execute strSQL, dbFailOnError
    ID = DMax("ΑΑΑΕ", "ΑΡΧΕΙΟΕΝΤΟΛΗΣΠΕΛ")

    strSQL = "SELECT * FROM [ΕΝΤΟΛΗ ΕΡΓΑΣΙΩΝ ΑΝΤΑΛ] WHERE ΚΩΔΙΚΟΣΕΝΤΟΛΗΣ=" & Me.ΚΩΔΙΚΟΣΕΝΤΟΛΗΣ
    Set rs1 = dbs.OpenRecordset(strSQL, dbOpenSnapshot)
    If rs1.RecordCount Then
        Set rs2 = dbs.OpenRecordset("ΑΡΧΕΙΟΕΝΤΟΛΗΣΑΝΤΑΛ", dbOpenDynaset)
        While Not rs1.EOF
            rs2.AddNew
            rs2![Κωδικός προιόντος] = rs1![Κωδικός προιόντος]
            rs2![ΟΝΟΜΑΣΙΑ] = rs1![ΟΝΟΜΑΣΙΑ]
            rs2![ΕΙΔΟΣ] = rs1![ΕΙΔΟΣ]
            rs2![Μονάδα μέτρησης] = rs1![Μονάδα μέτρησης]
            rs2![ΠΟΣΟΤΗΤΑ] = rs1![ΠΟΣΟΤΗΤΑ]
            rs2![ΑΑΑΕ] = ID
'           rs2![ΑΙΤΙΟΛΟΓΙΑ] = rs1![ΑΙΤΙΟΛΟΓΙΑ]
            rs2.Update
            rs1.MoveNext
        Wend
        rs2.Close
        Set rs2 = Nothing
    End If
    rs1.Close
    Set rs1 = Nothing
    Set dbs = Nothing
End Sub

Με εκτίμηση

Τάσος