[pakos]

Αγαπητοί φίλοι το βρήκα

το βάζετε στις μακροεντολές

Public Sub OpenForeignForm()
Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "C:\ssssss\sssss\ggggggggggg.accdb", vbMaximizedFocus
appAccess.RunCommand acCmdAppMaximize
appAccess.DoCmd.OpenForm "uuuuuuuuuuuuu", acNormal, "", "", acWindowNormal
Set appAccess = Nothing
End Sub



και το παίρνετε με το


call OpenForeignForm