Discussion :

[Nephyline]

Bonjour,

Je cherche à envoyer un message à l'utilisateur lorsqu'il veut saisir un numéro d'inventaire qui existe déjà dans la base, pour le site donné.

Pourriez-vous me dire comment corriger mon erreur, s'il vous plaît ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub N°Inventaire_AfterUpdate()
 
    'Vérification si présence de doublons
    If Not IsNull([N°Inventaire]) Then
        If Not IsNull(DLookup("N°Inventaire", "CeramProtoR", "[Site]='" & Me.cbo_Site & "'" And [N°Inventaire] = Me.N°Inventaire)) = True Then
            MsgBox "Ce numéro d'inventaire a déjà été saisi", vbCritical + vbOKOnly, "Saisie de doublon"
            [N°Inventaire].SelStart = 0
            [N°Inventaire].SelLength = Len([N°Inventaire])
            Cancel = True
        End If
    End If
    Exit Sub
 
End Sub

Le N°Inventaire a la forme : ####.###.####

[Jean-Philippe André]

salut,
esasie avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub N°Inventaire_AfterUpdate()
 
    'Vérification si présence de doublons
    If Not IsNull([N°Inventaire]) Then
        If Not IsNull(DLookup("N°Inventaire", "CeramProtoR", "[Site]='" & Me.cbo_Site & "' And [N°Inventaire] = " & Me.N°Inventaire )) = True Then
            MsgBox "Ce numéro d'inventaire a déjà été saisi", vbCritical + vbOKOnly, "Saisie de doublon"
            [N°Inventaire].SelStart = 0
            [N°Inventaire].SelLength = Len([N°Inventaire])
            Cancel = True
        End If
    End If
    Exit Sub
 
End Sub

[Nephyline]

J'ai un message d'erreur 3464 : Type de données incompatible dans l'expression du critère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub N°Inventaire_AfterUpdate()
 
    'Vérification si présence de doublons
    If Not IsNull([N°Inventaire]) Then
        If Not IsNull(DLookup("N°Inventaire", "CeramProtoR", "[Site]='" & Me.cbo_Site & "' And [N°Inventaire] = " & Me.N°Inventaire )) = True Then
            MsgBox "Ce numéro d'inventaire a déjà été saisi", vbCritical + vbOKOnly, "Saisie de doublon"
            [N°Inventaire].SelStart = 0
            [N°Inventaire].SelLength = Len([N°Inventaire])
            Cancel = True
        End If
    End If
    Exit Sub
    
End Sub

Edit : Erreur de ma part... ça fonctionne avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub N°Inventaire_AfterUpdate()
 
    'Vérification si présence de doublons
    If Not IsNull([N°Inventaire]) Then
        If Not IsNull(DLookup("N°Inventaire", "CeramProtoR", "[Site]='" & Me.cbo_Site & "' And [N°Inventaire]='" & Me.N°Inventaire & "'")) = True Then
            MsgBox "Ce numéro d'inventaire a déjà été saisi", vbCritical + vbOKOnly, "Saisie de doublon"
            [N°Inventaire].SelStart = 0
            [N°Inventaire].SelLength = Len([N°Inventaire])
            Cancel = True
        End If
    End If
    Exit Sub
 
End Sub

Merci jpcheck de m'avoir mise sur la voie