trouble opening switchboards

[mejia.j88]

hello all,



I have a database that tracks my wafer inventory; and I'm needing to use it on different computers.

my problem/question:

I want my database to open a different switchboard depending on the computer that is used. 


this is what i have so far:


Private Sub Form_Open(Cancel As Integer)
    Call Get_ComputerName

    If computername = VMI081 Then
    DoCmd.OpenForm "SwitchBoard-StandardRecovery", acNormal
    Else
    DoCmd.OpenForm "Switchboard", acNormal
    End If
    
End Sub


Private Function Get_ComputerName()
    ' Get Host Name / Get Computer Name
    Get_ComputerName = Environ$("computername")

End Function

but i can't make it open as the MAIN switchboard, it opens behind the original main switchboard.

any help would be nice,
thanks,
jorge

[pdebaets]

Try this:

If computername = VMI081 Then
DoCmd.OpenForm "SwitchBoard-StandardRecovery", acNormal
on error resume next
docmd.close acform. "Switchboard"
Else
DoCmd.OpenForm "Switchboard", acNormal
on error resume next
docmd.close acform. "SwitchBoard-StandardRecovery"
End If
on error goto 0