Bonjour !
Première question : pourquoi apprendre VB 6 qui n'est plus mis à jour depuis 1998 ? il y a VB Net qui est bien plus performant actuellement . Maintenant c'est ton choix et je le respecte .
Secundo : ton code entre balises aurait été bien plus lisible
Private Sub Rechercher_Click()
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Recordset.Find “id=“ & Val(Text_nombre1.Text)
If Adodc1.Recordset.EOF= True Then
MsgBox “Ce numéro n’existe pas“, VbExclamation, ““
Text_Nombre1.Text=““
Text_Nombre1.Enabled=True
End if
End Sub
voir https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche
Tertio : tu parles de 2 nombres. Dans ton code il n'y en a qu'un seul qui est écrit dans la TextBox Text_Nombre1 .
Private Sub Rechercher_Click()
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Recordset.Find “id=“ & Val(Text_nombre1.Text)
Adodc1.Recordset.Find “id=“ & Val(Text_nombre2.Text)
If Adodc1.Recordset.EOF= True Then
MsgBox “Ce numéro n’existe pas“, VbExclamation, ““
Text_Nombre1.Text=““
Text_Nombre1.Enabled=True
Text_Nombre2.Text=““
Text_Nombre2.Enabled=True
End if
End Sub
Il n' y a pas de recherche pour nombre2 mais uniquement nombre1
Dis-mo ce qui as été écrit !
Merci pour votre volonté
Je réessayerai plus tard. Bonne journée et que le
Bon Dieu vous bénisse
Un lien pour des explications : http://www.zdnet.fr/actualites/vb6-simplifier-votre-codage-grace-aux-groupes-de-controles-39186911.htm