apprendrevb6.0
-
16 mai 2018 à 12:21
vb95
Messages postés3407Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention30 mars 2023
-
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
vb95
Messages postés3407Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention30 mars 2023165 17 mai 2018 à 13:41
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.
Merci, je songerai à travailler avec VB NET
Cordialement
vb95
Messages postés3407Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention30 mars 2023165 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
Ce que je veux dire Recherche avec code comme suit:
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
Else
Adodc1.Recordset.Find “id=“ & Val(Text_nombre2.Text)
If Adodc1.Recordset.EOF= True Then
MsgBox “Ce numéro n’existe pas“, VbExclamation, ““
Text_Nombre2.Text=““
Text_Nombre2.Enabled=True
End if
End Sub
Excuse, je ne me retrouve pas dans les codes sources.
vb95
Messages postés3407Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention30 mars 2023165
>
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é ?
17 mai 2018 à 13:57
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.
Merci, je songerai à travailler avec VB NET
Cordialement
17 mai 2018 à 14:09
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
17 mai 2018 à 14:27
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
Else
Adodc1.Recordset.Find “id=“ & Val(Text_nombre2.Text)
If Adodc1.Recordset.EOF= True Then
MsgBox “Ce numéro n’existe pas“, VbExclamation, ““
Text_Nombre2.Text=““
Text_Nombre2.Enabled=True
End if
End Sub
Excuse, je ne me retrouve pas dans les codes sources.
17 mai 2018 à 14:32
As-tu essayé ce que je t'ai indiqué ?
17 mai 2018 à 14:49
Compile error:
Block if without End if