access database password 1

[petecass]

I wish to set a database password. No problem so far.
I can open etc

My problem is that I do all the reports from access using the following code:

Public Sub Access_Report(ReportID As String)
On Error Resume Next
access.OpenCurrentDatabase Login.DatabaseLocation & Login.DatabaseDSN & "1.mdb", True
access.DoCmd.Maximize
access.DoCmd.OpenReport ReportID, acViewPreview
access.Screen.ActiveReport.OnClose = "Macro_Quit"
access.Application.Visible = True
Screen.MousePointer = vbNormal
End Sub


this will then come up with the login prompt.
how can i override this with code????

 

[Transcend]

This example uses sendkeys

http://www.vbcity.com/forums/topic.asp?tid=21314&highlight=running|access|report

I don't know of another way with the access object but you could use ADO to connect which will usw the password in the connection string.

Transcend