Posez votre question Signaler

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
Visual Basic 6 Posez votre question Signaler
<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

Répondre au sujet

14 réponses

Signaler Commenter la réponse de vb95
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 .
Afficher les 13 commentaires
Signaler Commenter la réponse de apprendrevb6.0
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
Signaler Commenter la réponse de vb95
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 !
Signaler Commenter la réponse de apprendrevb6.0
apprendrevb6.0 - 17 mai 2018 à 15:23
Je n'ai pas essayé les tableaux de controle
Signaler Commenter la réponse de apprendrevb6.0
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
Signaler Commenter la réponse de vb95
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

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

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.

Les tops du mois