Recherche avec adodc 2 éléments

apprendrevb6.0 - 16 mai 2018 à 12:21 - Dernière réponse : vb95 1684 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 18 octobre 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

Merci d'avance
Afficher la suite 

Votre réponse

14 réponses

vb95 1684 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 18 octobre 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 

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 à 15:22
De la façon suivante:

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
vb95 1684 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 18 octobre 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 !
apprendrevb6.0 - 17 mai 2018 à 15:23
Je n'ai pas essayé les tableaux de controle
apprendrevb6.0 - 17 mai 2018 à 15:28
Je me déconnecte pour déplacement à une formation
Merci pour votre volonté
Je réessayerai plus tard. Bonne journée et que le
Bon Dieu vous bénisse
vb95 1684 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 18 octobre 2018 Dernière intervention > apprendrevb6.0 - 17 mai 2018 à 15:31
Si tu n'essayes pas ce que l'on te dit ………………;
Un lien pour des explications : http://www.zdnet.fr/actualites/vb6-simplifier-votre-codage-grace-aux-groupes-de-controles-39186911.htm
Commenter la réponse de vb95

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.