Problème de filtrage des enregistrement

mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   -  
mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai de votre aide. Je suis Bloqué presque à terme d'une application. Le problème se situe
au niveau du Filtrage des enregistrements par plage entre deux dates

Mon code est comme suit :


SQLs="Select * From TableAchats where DateOp >= # " & Cdate(DTPicker1) & "# and DateOp <= # " & Cdate(DTPicker2) & "# and CodePdt = " & Cint(cmbCodePdt) & ""

if rs.state=adstateopen then rs.close
Rs.open SQLs, DB,adOpenKey,adClockPessimitic



adodcFiltrePdt.RecordSource=SQLs

set DataReportFiltrePdt.DataSource=adodcFiltrePdt


DataReportFiltrePdt.Show



Je n'arrive pas a détecter mon erreur.

Merci d'avance pour votre aide
A voir également:

1 réponse

mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   1
 
Bonjour l'Ami,

J'ai enfin trouvé la solution à mon problème de filtrage des enregistrements par dates.

je tenais à l'exposer ici sur ce forum, pour que les autres qui se trouveraient dans la même situation que la mienne trouvent la réponse :


sub cmdAfficher



dim P
P=Cint(cmbCodePdt)


SQLs = "Select * From TableAchats where DateOp >= #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "#" and DateOp <= #" & Format(DTPicker2.Value, "mm/dd/yyyy") & "#" and CodePdt =" & CInt(CmbCodePdt.Text) & ""



if rs.state=adstateopen then rs.close
Rs.open SQLs, DB,adOpenKey,adClockPessimitic



adodcFiltrePdt.RecordSource=SQLs

set DataReportFiltrePdt.DataSource=adodcFiltrePdt


DataReportFiltrePdt.Show



A plus
0