[kapetang]

Καλησπέρα

Αστέριε δες μια υλοποίηση στην επισυναπτόμενη ΒΔ.

Η υλοποίηση γίνεται με τον παρακάτω κώδικα που προστέθηκε στη δευτερεύουσα φάρμα

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

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