[kapetang]

Καλημέρα

Αστέριε άλλαξε τον κώδικα με τον παρακάτω:

Private Sub Form_AfterInsert()
    Dim strSQL As String, ergID As Long, raouloID As Long
    
    ergID = DMax("[ErgasiaID]", "[tblErgasies]")
    raouloID = DLookup("[RaouloID]", "[tblErgasies]", "[ErgasiaID]=" & ergID)
    strSQL = "UPDATE tblErgasies SET tblErgasies.Enero = 'όχι' WHERE " & _
    "tblErgasies.ErgasiaID<>" & ergID & " AND tblErgasies.RaouloID=" & raouloID
    
    CurrentDb.Execute (strSQL)
    Me.Requery
End Sub

Φιλικά/Γιώργος