cs_zaatout
Messages postés156Date d'inscriptiondimanche 19 novembre 2006StatutMembreDernière intervention20 novembre 2013
-
16 mai 2008 à 13:15
cs_zaatout
Messages postés156Date d'inscriptiondimanche 19 novembre 2006StatutMembreDernière intervention20 novembre 2013
-
18 mai 2008 à 14:32
lillith212
Messages postés1229Date d'inscriptionvendredi 16 novembre 2007StatutMembreDernière intervention16 juin 2009 16 mai 2008 à 13:18
Salut,
Tu veux savoir quoi? Ta question est tres vague!!!
Si tu surf un peu tu vas trouver des infos sur vb6 à coté de cela si tu as une question particuliere reviens!
SLB.
ps : Ton titre pourrait etre un peu plus clair face à cette demande
---------------------------------------------------------------
Il faut beaucoup donner pour recevoir un tout petit peu...
---------------------------------------------------------------
lillith212
Messages postés1229Date d'inscriptionvendredi 16 novembre 2007StatutMembreDernière intervention16 juin 2009 16 mai 2008 à 14:36
Re:
J'ai surfé un peu sur ton profil, j'ai constaté que ce n'était pas la première fois que tu posais la même question.
Tu connais un peu vb6 alors pourquoi cette question comme ca?
---------------------------------------------------------------
Il faut beaucoup donner pour recevoir un tout petit peu...
---------------------------------------------------------------
cs_zaatout
Messages postés156Date d'inscriptiondimanche 19 novembre 2006StatutMembreDernière intervention20 novembre 2013 16 mai 2008 à 15:50
Bonjour
voici mon message sur le filtre marche bien recordset>0 ok
Adodc1.Recordset.MoveFirst
For i = 1 To Adodc1.Recordset.RecordCount
chq = Adodc1.Recordset.Fields(3).Value
mt = Adodc1.Recordset.Fields(5).ValueAdodc2.Recordset.Filter "[che]'" & Trim(chq) & "' And [montant1] ='" & (mt) & "' "
If Adodc2.Recordset.RecordCount > 0 Then
Adodc1.Recordset.Fields(7).Value = "TROUVE"
Adodc2.Recordset.Fields(9).Value = "TROUVE"
Adodc1.Recordset.Update
Adodc2.Recordset.Update
End If
Adodc1.Recordset.MoveNext
Next
Des que j'ajout le champ p1 condition null le recordcount=0
Adodc2.Recordset.Filter "[che]'" & Trim(chq) & "' And [montant1] ='" & (mt) & "' and [p1]= '" & Null & "'"
sachant que p1 ets CHAR et contient une valeur null où blanc
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 16 mai 2008 à 16:36
même bla bla que ce que l'on rabache tous les jours sur le forum:
pas de séparateur pour les champs numériques (a caster avec Str$)
séparateur ' ou " pour les chaines de caractères
date formatées MM/DD/YYYY avec des # comme séparateur
donc :
Adodc2.Recordset.Filter "[che]'" & Trim$(chq) & "' And [montant1] = " & Str$(mt) & " and isnull([p1])"