'Michael Red 10/1/02 Tek-Tips thread705-371815
'mstrmage1768 a.k.a. Robert L. Johnson III
Dim strAccDB As String
Dim strAccLoc As String
Dim strPrompt As String
Dim intResponse As Integer
strPrompt = "Are you sure you wish to enter the " & MyDB & " database?"
intResponse = MsgBox(strPrompt, vbYesNo + vbQuestion, "Database Entry")
If intResponse = vbNo Then
Else
strAccDB = Chr(34) & MyDB & Chr(34)
strAccLoc = SysCmd(acSysCmdAccessDir) & "MsAccess.Exe"
Call Shell(strAccLoc & " " & strAccDB)
End If
End Function
[code]
This example opens different databases, rather that just other forms in the same db. To open a form, the LAST procedure would be replaced wit a routine which did the open method with the new form name, and the table would JUST have the form names in it.
I'm a bit tired so will not attempt to do this at the moment, but perhaps I could do one at some other time (or date).
MichaelRed
m.red@att.net
Searching for employment in all the wrong places