Do command

[Amateur]

I am opening with a command button a Form in a databese like:
Private Sub Abrir_balanzas_Click()
On Error GoTo Err_Abrir_balanzas_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Balanzas BIE30P"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Abrir_balanzas_Click:
Exit Sub

Err_Abrir_balanzas_Click:
MsgBox Err.Description
Resume Exit_Abrir_balanzas_Click

End Sub


How can I change this Do Command that it is insead of opening a Form opening
another Database.
The name of the database which I would like to open is "trading.mdb
Thanks
Klaus

 

[Daniel Pineault]

If you google the subject you'll find a couple way to approach the problem.
Below are 2 of them

http://www.mvps.org/access/modules/mdl0005.htm

http://www.access-programmers.co.uk/forums/showthread.php?t=129779

for the later jaydwest has a OpenDB function that you could call as needed
(about 1/3 way down in the postings)

 

[fredg]

I am opening with a command button a Form in a databese like:
Private Sub Abrir_balanzas_Click()
On Error GoTo Err_Abrir_balanzas_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Balanzas BIE30P"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Abrir_balanzas_Click:
Exit Sub

Err_Abrir_balanzas_Click:
MsgBox Err.Description
Resume Exit_Abrir_balanzas_Click

End Sub

How can I change this Do Command that it is insead of opening a Form opening
another Database.
The name of the database which I would like to open is "trading.mdb
Thanks
Klaus

Don't need a 'Do'.

Application.FollowHyperlink "c:\Path to Your Folder\Trading.mdb"

 

[Amateur]

Sorry Fred - I don't understand where I should insert your line:
Application.FollowHyperlink "c:\cps208\Trading.mdb"
Please specify
Thanks
Klaus

 

[fredg]

Sorry Fred - I don't understand where I should insert your line:
Application.FollowHyperlink "c:\cps208\Trading.mdb"
Please specify
Thanks
Klaus

The same place you already have the example code you posted, or if you
are using a different button, in that buttons Click event.

Private Sub Abrir_balanzas_Click()
On Error GoTo Err_Abrir_balanzas_Click

Application.FollowHyperlink "c:\cps208\Trading.mdb"

Exit_Abrir_balanzas_Click:
Exit Sub

Err_Abrir_balanzas_Click:
MsgBox Err.Description
Resume Exit_Abrir_balanzas_Click

End Sub