When the following procedure runs, if the Relationships database is not open, it does get opened. However, the Relationships’ Initialize procedure runs on the calling database, effecting that file’s window and menus.
If dbcheckopen(“Relationships”)= 0
RememberWindow
OpenFile “Resources/Relationships”
If Error nop EndIf
OriginalWindow
EndIf
The Relationships .Initialize procedure:
Local a,b,c,d
GetMaxWindow a,b,c,d
a = c-100
windowmenubar “basic -none”,“”Zoomwindow a,5,100,315,“noToolBar NoScroll”
I get this error notification:
