1 2 3 4 5 6
| If DTPDebut.Value <> Date.Today Or DTPFin.Value <> Date.Today Then
Req = "select numoperation, dateope, libelle, montantope from operations where montantope like '%" & CDec(TextMontant.Text) & "%' " _
& " and dateope between " & Format(CDate(DateDebut), gcSQLDATE) & " and " & Format(CDate(DateFin), gcSQLDATE) & " And numcompte=" & NumCompte & " "
Else
Req = "select numoperation, dateope, libelle, montantope from operations where montantope like '%" & CDec(TextMontant.Text) & "%' and numcompte=" & NumCompte & ""
End If |
Partager