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