Discussion :

[Gabrieel]

Bonjour,

jessaie de faire une vérification de doublon. si le doublon est trouvé un message d'alerte est transmis à l'utilisateur.

voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Chassis_AfterUpdate()
 
    'l'user est user system
    Users = Environ("USERNAME")
 
    'Message d'erreur si un chassis est saisi une 2ème fois.
    Dim TextAlert As String
 
    TextAlert = DLookup("[DateRemise]", "tblSuivis", "[Chassis]='" & Me!Chassis & "'")
    textMsg = "Vous avez déja donné cette radio le " & TextAlert
    If IsNull(TextAlert) = False Then Message = MsgBox(textMsg, vbSystemModal, "Alerte") Else End

ça marche bien quand il y a un doublon, par contre si il y a pas de doublon j'ai l'erreur 94.

voyez vous une piste de solution?

merci de votre aide.

bien à vous,

Gabrieel

[Jean-Philippe André]

salut,
tu peux combiner avec Dlookup la fonction Nz()
tu détectes ainsi l'absence de doublons
par exemple

Code :

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

1
2
3
4
5
TextAlert = Nz(DLookup("[DateRemise]", "tblSuivis", "[Chassis]='" & Me!Chassis & "'"),"Pioupiou")
 
if TextAlert = "Pioupiou" Then
MsgBox "pas de doublon"
end if