With d6 If t1.Text <> "" Then m = t1.Text .RecordSource "select count(*) as Compte from echeancier where num_adher " & m & " ;" Else .RecordSource = "select count(*) as Compte from echeancier;" End If .Refresh t8.Text = .Recordset!Compte End With
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionhello Hello2
With d6 If t1.Text <> "" Then m = t1.Text .RecordSource "select count(*) as Compte from echeancier where num_adher " & m & " ;" Else .RecordSource = "select count(*) as Compte from echeancier;" End If .Refresh t8.Text = .Recordset!Compte End With