Sujet Précédent Sujet Suivant

Recherche avec adodc 2 éléments

apprendrevb6.0 - 16 mai 2018 à 12:21
vb95 Messages postés 3407 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 30 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

Merci d'avance

A voir également:

1 réponse

Réponse 1 / 1

vb95 Messages postés 3407 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 30 mars 2023 165
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

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 .

apprendrevb6.0
17 mai 2018 à 13:57

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és 3407 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 30 mars 2023 165
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

apprendrevb6.0
17 mai 2018 à 14:27

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és 3407 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 30 mars 2023 165 > 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é ?

apprendrevb6.0
17 mai 2018 à 14:49

Cela n'a pas donné

Compile error:

Block if without End if

Votre réponse