Αποτροπή διπλοεγγραφής

[stavross]

Κώστα σε ευχαριστώ πολύ και πάλι
Όμως το κάνει μόνο μια φορά δηλαδή όταν του βάζω ένα οδηγό 2 φορές μου βγάζει το msgbox
Άν του κάνω νέα εγγραφή δεν το βγάζει
Και αν είναι δυνατόν επειδή δεν πολυκατάλαβα (οι γνώσεις μου) πώς μπορώ να το βάλω και στους
εργάτες
Φίλε μένω υπόχρεος

[ασχετος]

Αρχική Δημοσίευση από stavross

Κώστα σε ευχαριστώ πολύ και πάλι
Όμως το κάνει μόνο μια φορά δηλαδή όταν του βάζω ένα οδηγό 2 φορές μου βγάζει το msgbox
Άν του κάνω νέα εγγραφή δεν το βγάζει
Και αν είναι δυνατόν επειδή δεν πολυκατάλαβα (οι γνώσεις μου) πώς μπορώ να το βάλω και στους
εργάτες
Φίλε μένω υπόχρεος

Σταύρο,

αντικατέστησε το μέρος του κώδικα "Me.Parent.Imerominia"
με
Format(Me.Parent.Imerominia, "m/d/yyyy")
στο συμβάν BeforeUpdate του πεδίου
Driver της φόρμας frm_sub_Ipiresies_Trans

για τον εργάτη, βάλε στο συμβάν BeforeUpdate του πεδίου
Labour της φόρμας frm_sub_Ipiresies_Trans
τον παρακάτω κώδικα

    Dim sfa As Variant

    sfa = DCount("[Labour]", _
                 "tbl_Ipiresies_Trans", _
                 "[Labour]='" & Me.Labour & "'" & _
                 " AND [DateIpirTrans]=#" & Format(Me.Parent.Imerominia, "m/d/yyyy") & "#")
    
    If sfa <> 0 Then
        MsgBox "Ο Εργάτης έχει διπλοεγγραφή", vbInformation, "Προσοχή"
    Else
        Exit Sub
    End If