i urgently need help,as i have to present the new system to management.I actually want to view an access report then print it from VB, or directly print the report
this is the code i used:
Const normal = 0
Const preview = 2
Const axit = 2
Const dbname = "c:\customer care system\customer care.mdb"
Const rname = "fault"
Const app = "asset manager"
On Error Resume Next
Dim Access As Object
Set Access = CreateObject("Access.Application")
where$ = "((Date1=DateSerial(08,11,2002)) and (Date2=DateSerial(08,11,2002)))"
Access.DoCmd.OpenReport rname, acViewNormal, , where$
Access.Action = 1
Set Access = Nothing
if possible please respond before monday the 18/11/02.I appreciate your transfere of knowledge.