[kapetang]

Καλησπέρα

Παναγιώτη δοκίμασε τον κώδικα:

Private Sub RunSaveParap2_Click()
    'Υπέθεσα ότι μόνο τα πεδία ArMel και DateMeletis μπορούν να είναι Null.
    'Αν μπορεί και άλλα πεδία να είναι Null θα πρέπει να προσαρμοστεί ο κώδικας
    
    Dim strV As String
    
    strV = " VALUES ('" & Me.AA & "', '" & Me.KAEK & "', '" & Replace(Me.Titlos, "", """") & "'"
   
    If IsNull(Me.ArMel) Then
        strV = strV & ", Null"
    Else
        strV = strV & ", '" & Me.ArMel & "'"
    End If

    If IsNull(Me.DateMeletis) Then
        strV = strV & ", Null )"
    Else
        strV = strV & ", #" & Format(Me.DateMeletis, "mm/d/yyyy") & "#)"
    End If

    CurrentDb.Execute "INSERT INTO ERGA2 (AA, KAEK, Titlos, ArMel, DateMeletis) " & strV
End Sub