gladiator1024
Messages postés65Date d'inscriptionvendredi 4 janvier 2008StatutMembreDernière intervention 1 février 2011
-
17 févr. 2010 à 17:33
gladiator1024
Messages postés65Date d'inscriptionvendredi 4 janvier 2008StatutMembreDernière intervention 1 février 2011
-
18 févr. 2010 à 14:38
SALUT
j'ai un base de donnée en vb6 et accès reliée avec contrôle recordset
et je besoin d'un solution de cettr code
cette code pour recherche
If Option1.Value False And Option2.Value False Or Text1.Text = "" Then
MsgBox "vous devez choisir une option ou remplir la zone du texte "
End If
Dim recherche 'As String
'Recherche
If Option1.Value = True Then
recherche = " [nom] like " & "'" & Text1.Text & "*" & "'"
rsop.FindFirst recherche
Do While Not rsop.NoMatch
Exit Sub
rsop.FindNext recherche
Loop
MsgBox " Il n'y a plus d'enregistrement répondant au critère spécifié!", vbOKOnly, "Recherche"
rsop.MoveFirst
Text1.Text = ""
Text1.SetFocus
Else
'Recherche d'un client a partir de son nom
recherche = " [nom com] like " & "'" & Text1.Text & "*" & "'"
rsop.FindFirst recherche
Do While Not rsop.NoMatch
Exit Sub
rsop.FindNext recherche
Loop
MsgBox " Il n'y a plus d'enregistrement répondant au critère spécifié!", vbOKOnly, "Recherche"
rsop.MoveFirst
Text1.Text = ""
Text1.SetFocus
End If
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 17 févr. 2010 à 19:58
Salut
Et quel est ton problème ?
De quel type est ton RecordSet ? DAO ou ADODB ?
Pour info, DAO est obsolète (à ne plus utiliser) et, de surcroit, les méthodes FindFirst fonctionnent mal.
Je te recommande fortement de basculer en ADODB. Ce n'est pas trop compliqué de passer de l'un à l'autre.
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)