Verifica codice per controllo duplicati

Question

Salve a tutti,

mi servirebbe un aiutino, ho fatto un codice ( copiato più che fatto) per controllo duplicati:

If Not IsNull(DLookup("[ORDINE DI ACQUISTO N°]" And "[VARIANTE N°]", "Ordini", _

    "[ORDINE DI ACQUISTO N°] And [VARIANTE N°] = " & Chr$(34) & Me![ORDINE DI ACQUISTO N°] And [VARIANTE N°] & Chr$(34))) _

    And Me![ORDINE DI ACQUISTO N°] And [VARIANTE N°] <> Nz(Me![ORDINE DI ACQUISTO N°] And [VARIANTE N°].OldValue) Then

  MsgBox Me![ORDINE DI ACQUISTO N°] And [VARIANTE N°] & " Ordine esistente", vbOKOnly, "Duplicato!"

  Cancel = True

End If

con una sola casella (la prima) funziona se ne metto due mi dice err. 13 tipo non corrispondente, forse dovrei mettere gli apostrofi perché sono numeri e testo , le ho provate tutte ma non funziona. C'è qualcuno che mi da una mano?

Grazie

Ciao

Cavillo

Answer 1

ciao Cavillo,

valuta un indice univoco composto dai due campi oggetto di potenziale duplicazione e la gestione errore nel dbEngine.

prova su evento prima di aggiornare del controllo variante se intuisco bene :

If Not IsNull(DLookup("[ORDINE DI ACQUISTO N°] And [VARIANTE N°]", "Ordini", _

  "[ORDINE DI ACQUISTO N°] ='" & Me![ORDINE DI ACQUISTO N°] & "' and [VARIANTE N°]='" & me![VARIANTE N°] & "'")) then

Ciao, Sandro.

Answer 2

Ciao Sandro,

grazie per l'aiuto, funziona perfettamente.

Ciao

Cavillo