[gianniskar]

Καλημερα.Εκανα οσα μου εγραψες.Αφου βαλω τον user κανω login στην access μου βγαζει τωρα "error 3020,Update η CancelUpdate χωρις Editnew η Edit.

Aλλαξα την γραμμη

.Fields("WinUser") = Environ("USERNAME")
.Fields("AppUser") = "Tasos"
End If
.Update
.Close
End With

βαζωντας τα μεσα στην if και δεν μου βγαζει error.Απλα στο tblog δεν καταχωρουνται τιμες στο πεδιο "CloseDateTime"

.Fields("WinUser") = Environ("USERNAME")
.Fields("AppUser") = "Tasos"

.Update
.Close
End If
End With