Início
![[Resolvido]Vba Recordset, virgula não aceita? Empty](https://2img.net/i/empty.gif)
Clebergyn 25/1/2014, 17:40neste recorsset da erro de não aceitar virgula e eu ja sei que são os campos t1 e t1 que vem
com virgala tipo 8,5 e o certo seria 8.5
então tem como converter o 8,5 para 8.5 ? ou seja converter o t1 e t2
troquei 8,5 por 8.5 e ele aceita
Set Rs = CurrentDb.OpenRecordset("SELECT AluguelCampo.Cliente, AluguelCampo.horainicio FROM AluguelCampo " & _
"WHERE Not Isnull(AluguelCampo.cliente) And AluguelCampo.data=#" & [Forms]![AluguelCampo]![dia] & "# AND AluguelCampo.campo='" & [Forms]![AluguelCampo]![camp] & "' AND (Left([horainicio],2) + Right([horainicio],2)/60)>=" & CDbl(t1) & " And (Left([horafim], 2) + Right([horafim], 2)/60)<= " & CInt(t2) & "")
valeu galera, consegui usando o Replace(t1.",",".") mas é muito estranho o Access nao ter conversão pra isso
com virgala tipo 8,5 e o certo seria 8.5
então tem como converter o 8,5 para 8.5 ? ou seja converter o t1 e t2
troquei 8,5 por 8.5 e ele aceita
Set Rs = CurrentDb.OpenRecordset("SELECT AluguelCampo.Cliente, AluguelCampo.horainicio FROM AluguelCampo " & _
"WHERE Not Isnull(AluguelCampo.cliente) And AluguelCampo.data=#" & [Forms]![AluguelCampo]![dia] & "# AND AluguelCampo.campo='" & [Forms]![AluguelCampo]![camp] & "' AND (Left([horainicio],2) + Right([horainicio],2)/60)>=" & CDbl(t1) & " And (Left([horafim], 2) + Right([horafim], 2)/60)<= " & CInt(t2) & "")
valeu galera, consegui usando o Replace(t1.",",".") mas é muito estranho o Access nao ter conversão pra isso
