u hebt meer codes nodig
Reeks oAccess = CreateObject („Access.Application“)
oAccess.OpenCurrentDatabase (strDatabasePath)
oAccess.Visible=true
oAccess.UserControl=true
Als RS („Rol“) = „Beheerder“ toen
acTable oAccess.DoCmd.SelectObject, Waar
Anders
acTable oAccess.DoCmd.SelectObject, Waar
acCmdWindowHide oAccess.DoCmd.RunCommand
Eind als
enkel steunt de post het resultaat.