AMA,
Added additional code that could help.
'Opening up the database for table use.
strDB = "d:\Inventory2\Inventory.M
Set db = OpenDatabase(strDB, False, False, ";pwd=password")
'For Crystal Reports.
CrystalReport1.Connect = "DSQ = " + d:\inventory2 + "\" + "Inventory.mdb" + ";pwd=password"
CrystalReport1.ReportFileN
CrystalReport1.WindowState
CrystalReport1.Destination
CrystalReport1.Connect = ""
Can be done with a little less code, but I wanted you to see what was happening.
Sorry about the omission. Good luck
Perezm
Main Topics
Browse All Topics





by: perezmPosted on 2002-03-31 at 12:14:26ID: 6909203
AMA,
DB"
This is one that I use.
The first one opens the database so that the tables can used.
The second open crystal reports for use.
'Opening up the database for table use.
strDB = "d:\Inventory2\Inventory.M
Set db = OpenDatabase(strDB, False, False, ";pwd=password")
'For Crystal Reports.
CrystalReport1.Connect = "DSQ = " + d:\inventory2 + "\" + "Inventory.mdb" + ";pwd=exorcist"
Perezm