DATA REPORT INVERTENDO DATA MES E DIA
Ola pessoal eu novamenete venho pedir uma juda de vcs estou passondo um parametro pra um data report e sua origem e uma sql aki esta funcionando bem mas qdo chega no data report
as label mostram as datas invertidas ex
eu consulto
01/06/2009 a 10/08/2009
ele mostra na label do data report
isso 06/01/2009 a 08/10/2009
o codigo usado e este
dptsaidadata.Sections([Ô]Section4[Ô]).Controls([Ô]Label5[Ô]).Caption = Data1 [ô]inicial
dptsaidadata.Sections([Ô]Section4[Ô]).Controls([Ô]Label8[Ô]).Caption = Data2 [ô]final
o estranho q a data sistema do codigo abaixo funciona perfeito
dptsaidadata.Sections([Ô]Section4[Ô]).Controls([Ô]Label11[Ô]).Caption = Date [ô]data do sistema
obrigado pessoal ate mais
as label mostram as datas invertidas ex
eu consulto
01/06/2009 a 10/08/2009
ele mostra na label do data report
isso 06/01/2009 a 08/10/2009
o codigo usado e este
dptsaidadata.Sections([Ô]Section4[Ô]).Controls([Ô]Label5[Ô]).Caption = Data1 [ô]inicial
dptsaidadata.Sections([Ô]Section4[Ô]).Controls([Ô]Label8[Ô]).Caption = Data2 [ô]final
o estranho q a data sistema do codigo abaixo funciona perfeito
dptsaidadata.Sections([Ô]Section4[Ô]).Controls([Ô]Label11[Ô]).Caption = Date [ô]data do sistema
obrigado pessoal ate mais
A variável DATA1 é do tipo DATE ou STRING?
Já tentou FORMATAR ao passar para o REPORT?
Faça um teste, deixe as variáveis como STRING e depois FORMATE ao passar:
Já tentou FORMATAR ao passar para o REPORT?
Faça um teste, deixe as variáveis como STRING e depois FORMATE ao passar:
dptsaidadata.Sections([Ô]Section4[Ô]).Controls([Ô]Label5[Ô]).Caption = Format(Data1, [Ô]dd/mm/yyyy[Ô])
dptsaidadata.Sections([Ô]Section4[Ô]).Controls([Ô]Label8[Ô]).Caption = Format(Data2, [Ô]dd/mm/yyyy[Ô])
OI Tecla desculpe a demora , e string vou testar ja retorno, brigado tecla
Dim Data1 As String
Dim Data1 As String
tecla nao funcionou
se formatarmos a a data no datareport
tentei isso nada, nao funiconou
Private Sub DataReport_Activate()
Label5.Caption = Format([Ô]dd/mm/yyyy[Ô])
End Sub
Private Sub DataReport_Activate()
Label5.Caption = Format([Ô]dd/mm/yyyy[Ô])
End Sub
tecla fiz confome vc ensinou nao deu, ai inverti a formatacao na passagem de parametro e deu certo
mas nao esta correto
dptentradadata.Sections([Ô]Section4[Ô]).Controls([Ô]Label1[Ô]).Caption = Format(Data1, [Ô]mm/dd/yyyy[Ô]) [ô]inicial
dptentradadata.Sections([Ô]Section4[Ô]).Controls([Ô]Label8[Ô]).Caption = Format(Data2, [Ô]mm/dd/yyyy[Ô]) [ô]final
depois disso no relatorio ele mostra
dd/mm/yyyy
e agora deixo assim?
mas nao esta correto
dptentradadata.Sections([Ô]Section4[Ô]).Controls([Ô]Label1[Ô]).Caption = Format(Data1, [Ô]mm/dd/yyyy[Ô]) [ô]inicial
dptentradadata.Sections([Ô]Section4[Ô]).Controls([Ô]Label8[Ô]).Caption = Format(Data2, [Ô]mm/dd/yyyy[Ô]) [ô]final
depois disso no relatorio ele mostra
dd/mm/yyyy
e agora deixo assim?
tecla deu certo vlw
Tópico encerrado , respostas não são mais permitidas