AJUDA A LEMBRAR SELECTIONFORMULA VB6 + CR 8.5

 Tópico anterior Próximo tópico Novo tópico

AJUDA A LEMBRAR SELECTIONFORMULA VB6 + CR 8.5

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#482730 - 04/07/2018 10:47:55

OVERDIE

Cadast. em:Março/2005


 Anexos estao visíveis somente para usuários registrados

Bom dia a todos em uma galáxia muito muito distante   eu criei um pequeno sistema para ajudar meu irmão e por anos sem ter que mexer no mesmo, agora ele teve que me pedir um novo relatório e tenho que usar um AND no  SelectionFormula e vou ser sincero não sei o que estou errando na sintaxe deem uma olhada:

With CR
.ReportFileName = App.Path & "\PontosTotal.rpt"
.WindowState = crptMaximized
.SelectionFormula = "{Pontos.DataR} in Date (" & Format$(dataI.Value, "yyyy,mm,dd") & ") to Date (" & Format$(dataF.Value, "yyyy,mm,dd") & ") And {Pontos.CPF}= '" & txtCPF.Text & "'"""
.Destination = crptToWindow
.Action = 1
End With

Ele retorna o erro da mensagem em anexo.

The Mind is The Power

Resposta escolhida #482736 - 04/07/2018 11:57:20

FUTURA
.
Cadast. em:Maio/2004


segue exemplo...

cr1.SelectionFormula = "{caixa.data} >= Date(" & Format(dt2.value, "yyyy, mm, dd") & ") and {caixa.data} <= Date(" & Format(dt3.value, "yyyy, mm, dd") & ")  and {caixa.empresa} = " & Mid(mdiapolo.StatusBar1.Panels(1).Text, 1, 2) & " and {caixa.tipo}='C' "



#482737 - 04/07/2018 12:18:30

OVERDIE

Cadast. em:Março/2005


Obrigado FUTURA a partir do seu exemplo enxerguei a minha burrice onde eu não estava fechando corretamente a sintaxe e ficou assim:

.SelectionFormula = "{Pontos.DataR} in Date (" & Format$(dataI.Value, "yyyy,mm,dd") & ") to Date (" & Format$(dataF.Value, "yyyy,mm,dd") & ") And {Pontos.CPF}= '" & txtCPF.Text & "'"

Obrigado 2X uma por me ajudar a resolver isso e poder voltar as minhas ferias ...

The Mind is The Power

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por OVERDIE em 04/07/2018 12:18:54