message d'erreur "argument ou appel de procedure incorrect"

Question

message d'erreur "argument ou appel de procedure incorrect"
explication du prblème
'-----------------------------
'la premiere zone de saisie 
'-----------------------------
private sub Matricule_lostfocus()
' mat c'est un mask edit box 
  If InStr(mat.Text, " ") <> 0 Or InStr(mat.Text, "_") Then
        MsgBox "matricule non valide"
         mat.SetFocus
         mat.SelStart = 0
         mat.SelLength = 6
  Else
        txtnom.setfocus
  End If
End sub
 '-----------------------------
'la 2ème zone de saisie
'------------------------------
private sub nom_lostfocus()
 If Trim(txtnom.Text) = "" Then
     MsgBox " tu doit remplir le nom du candidat" 
     txtnom.SelStart = 0
     txtnom.SelLength = 18
     txtnom.SetFocus
  End If
 txtnom.Text = Trim(txtnom.Text)
End sub

si je tappe moin de 6 chiffres ou je laisse la zone mat.text vide le message d'erreur s'affiche [MsgBox "matricule non valide"]
mais avant ca un autre message s'affiche "argument ou appel de procedure incorrect"
le curseur ne reste pas dans la zone mat.text mais il passe a la 2ème zone puis le programme fait un exit 
il faut noté que en mode creation l'exemple s'exécute convenablement mais si en crée un executable le problème se pose .
merci pour tout ce qui pense a mon problème

cs_EBArtSoft · Answer

Cette discussion a été cloturée. Veuillez lancer une nouvelle discussion si votre question est toujours d'actualite.

Merci

Message d'erreur "argument ou appel de procedure incorrect"

1 réponse

Discussions similaires