Olá;
Não use a palavra Data, que é uma palavra reservada do Access.
- Código:
Dim iData as Date
Dim caixa as String
Dim res as Integer
iData = CDate(Format$(Date, "dd/mm/yyyy"))
caixa = "Select * from Tbl_FluxoCaixa where cddata =#" & iData & "#"
Set caixaret = CurrentDb.OpenRecordset(caixa)
res = caixaret.RecordCount
Se não der, tem de colocar a formatação para data americana, assim:
- Código:
Dim iData as Date
Dim caixa as String
Dim res as Integer
iData = CDate(Format$(Date, "mm-dd-yyyy"))
caixa = "Select * from Tbl_FluxoCaixa where cddata =#" & iData & "#"
Set caixaret = CurrentDb.OpenRecordset(caixa)
res = caixaret.RecordCount
Início
percoski 21/3/2019, 17:28
