mam w BASE ustawiony jeden formularz jako startowy, który uruchamia się razem ze startem programu. Do tej pory korzystałem z poniższego skryptu, aby przy starcie pojawiał mi się jedynie formularz startowy, bez głównego okna z tabelami, kwerendami itd.
Kod: Zaznacz cały
Dim sFileName, sTitle
sFileName = "MyFile.odb"
sTitle = "ERROR"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")
If Not oFSO.FileExists(sFileName) Then
oShell.Popup sFileName & " - file not found", 10, sTitle, vbCritical + vbSystemModal
Wscript.Quit 1
End If