[ασχετος]

καλό απόγευμα στο forum.

Παύλο,
στο πεδίο cbo_barcode και στο συμβάν cbo_barcode_AfterUpdate() μετά την εντολή
On Error GoTo cbo_barcode_AfterUpdate_Err_AfterUpdate() και πριν την εντολή
cbo_barcode_AfterUpdate_Exit:
δηλαδή ενδιάμεσα αυτών των εντολών αντικατέστησε τον υπάρχοντα κώδικα με τον παρακάτω:

    Dim v_response As Variant
    Dim response As Variant
    
    DoCmd.SearchForRecord , "", acFirst, "[barcode] = " & "'" & Screen.ActiveControl & "'"
    
    v_response = DLookup("[barcode]", "Itemdb", "barcode='" & Me.cbo_barcode & "'")
    
    If IsNull(v_response) Or v_response = "" Then
     response = MsgBox("Η εγγραφή δεν υπάρχει." & vbNewLine & vbNewLine & _
                  "Θέλετε να δημιουργηθεί" & vbNewLine & _
                  "νέα εγγραφή;", _
                  vbInformation + vbYesNo, "Η εφαρμογή σας ενημερώνει ότι...")
        If response = vbYes Then
            DoCmd.GoToRecord , , acNewRec
        Else
            Exit Sub
        End If
    End If

Για το 3 “SecondCode” και διπλοτυπα, πρέπει να καταλάβω τι είναι το “SecondCode” και σε ποιό πίνακα βρίσκεται.
ΔΕΝ ΕΧΕΙΣ βάλει κλειδιά στους πίνακες και πάμε ΤΥΦΛΑ.

Στείλε μία διορθωμενη DB, με τα ερωτήματα σου.