28/04/2023 - R621 ha scritto:
Buongiorno gente,
Avrei gentilmente bisogno del Vs aiuto , è possibile all'apertura di un DB far apparire solo una maschera in modo da non permettere all'utente di vedere tabelle e query?
Per questo aspetto dipende dalla versione Access che hai … (fino alla versione Access2013 funziona)
Puoi impostare la Form come Popup
Poi inserire questo vecchio codice nella Form
Option Compare Database
Option Explicit
Const SW_HIDE = 0
Const SW_NORMAL = 1
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
______________________________________________________________________________________________________________________________
' SET FORM
Private Sub Form_Load()
Dim hWindow As Long
Dim nResult As Long
Dim nCmdShow As Long
hWindow = Application.hWndAccessApp
nCmdShow = SW_HIDE
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
Call ShowWindow(Me.hwnd, SW_NORMAL)
End Sub
______________________________________________________________________________________________________________________________
' CLOSE FORM
Private Sub Form_Unload(Cancel As Integer)
DoCmd.Quit
End Sub
come risultato avrai una cosa di questo tipo dove l'applicazione Access viene nascosta del tutto:
N.B.
per aprire l'applicazione in Progettazione dovrai in questo caso tenere premuto il tasto Shift e aprire il progetto
Questo consente di non eseguire la Form ed entrare normalmente in Access.