DSum With Visual Basic

[edderic]

Hello,

i open and run a Access report from Visual Basic :

Public Sub ToonVanDatum()
Dim sVanDatum As Date
Dim sTotDatum As Date
On Error GoTo fout
sVanDatum = FormatDateTime(DTPvanDatum.Value, vbShortDate)
sVanDatum = Format(sVanDatum, "mm,dd,yyyy&quot
sTotDatum = FormatDateTime(DTPtotDatum.Value, vbShortDate)
sTotDatum = Format(sTotDatum, "mm,dd,yyyy&quot
Set ac = New Access.Application
ac.OpenCurrentDatabase App.Path & "\Cycle.mdb"
ac.DoCmd.Maximize
ac.DoCmd.OpenReport &quot;Kasboek&quot;, acViewPreview, , &quot;DatumCorrectie >=#&quot; & sVanDatum & &quot;#&quot; & &quot; And DatumCorrectie <=#&quot; & sTotDatum & &quot;#&quot;
ac.DoCmd.RunCommand acCmdZoom100
ac.Visible = True
Exit Sub
fout:
Set ac = Nothing
End Sub

I will no the access function DSum on the Where connections !?

acc.DSum etc... Where &quot;DatumCorrectie < #&quot; & sVanDatum & &quot;#&quot;

ho fix ik that?

Thanks

Belgium programmer.

Eric De Decker
eric.de.decker@pandora.be

 

[paulbent]

See thread222-658362

Paul Bent
Northwind IT Systems

http://www.northwindit.co.uk

 

[edderic]

its not the same question !

i open a report with access automation and not whit DAO.

Eric De Decker
eric.de.decker@pandora.be