<Rech></Rech>Bonjour,
j'ai un problème de recherche avec deux ou trois numéros
Avec un numéro, je n'ai pas de problème. J'écris:
Private Sub Rechercher_Click()
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Recordset.Find “id=“ & Val(Text_nombre1.Text)
If Adodc1.Recordset.EOF= Then
MsgBox “Ce numéro n’existe pas“, VbExclamation, ““
Text_Nombre1.Text=““
Text_Nombre1.Enabled=True
End if
End Sub
Mais recherche avec deux numéros (numéro1 et numéro2)
une erreur se signale
J'ai utilisé Or ou And, mais aucune solution
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
Je m'explique:
Ce code n'a pas de problème pour la recherche d'un nombre.
mais pour pouvoir faire une recherche de choix (utiliser un textbox au choix pour recherche parmi un ou deux textbox, j'ai des difficultés.
Bonjour !
Il y a longtemps que je ne fais plus de VB 6 mais je crois me souvenir que VB 6 gère les tableaux de contrôles
Je m'explique :
Tu déposes une TextBox sur la form
Tu fais un clic droit sur cette Textbox et tu fais copier
Tu recliques sur la form ( clic droit ) et tu fais coller
Une seconde TeXtBox apparait
Tu as donc TextBox(1) et TextBox(2) : comme un tableau de Textbox
tu peux répéter l'opération pour 3, 4 , et plus de Textbox
Tu doubles-cliques ensuite sur une des Textbox : une procédure TextBox_Click s'affiche dans le code
Cette procédure est la même pour toutes les Textbox et te permet avec un seul code de gérer toutes les Textbox ( une seule à la fois évidemment : celle que tu as choisis)
Regarde dans l'aide de VB 6 : je ne puis t'en dire plus
tu as un bloc If sans End If
Connais -tu les bases du langage Vb 6 ?
Peux-tu mettre ton code avec les balises de code : voir le lien que je t'ai donné !
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
- Messages postés
-
2171
- Date d'inscription
- samedi 11 janvier 2014
- Statut
- Contributeur
- Dernière intervention
- 11 juillet 2020
110 > apprendrevb6.0Dis-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
- Messages postés
-
2171
- Date d'inscription
- samedi 11 janvier 2014
- Statut
- Contributeur
- Dernière intervention
- 11 juillet 2020
110 > apprendrevb6.0Un lien pour des explications : http://www.zdnet.fr/actualites/vb6-simplifier-votre-codage-grace-aux-groupes-de-controles-39186911.htm