apprendrevb6.0 -
16 mai 2018 à 12:21 - Dernière réponse : vb951634
Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut
21 août 2018
Dernière intervention
- 17 mai 2018 à 15:31
<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
vb951634
Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut
21 août 2018
Dernière intervention -17 mai 2018 à 13:41
0
Merci
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.
vb951634
Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut
21 août 2018
Dernière intervention -17 mai 2018 à 14:09
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
vb951634
Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut
21 août 2018
Dernière intervention
>
apprendrevb6.0-17 mai 2018 à 14:32
C'est bien cela que j'ai compris rassures-toi
As-tu essayé ce que je t'ai indiqué ?
vb951634
Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut
21 août 2018
Dernière intervention -17 mai 2018 à 14:54
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é !
vb951634
Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut
21 août 2018
Dernière intervention
>
apprendrevb6.0-17 mai 2018 à 15:27
Fais un double-click sur une des TestBox et regarde la Sub qui s'est écrite toute seule !
Dis-mo ce qui as été écrit !
vb951634
Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut
21 août 2018
Dernière intervention
>
apprendrevb6.0-17 mai 2018 à 15:31
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