Formulier beveiligen

[daan1974]

Hallo,

Ik heb een vraagje met betrekking tot een Access database die we aan het opzetten zijn.

Het is een database waarin een groep gebruikers toegang heeft tot formulieren om gegevens te bekijken.

Er is 1 formulier wat alleen toegankelijk mag zijn voor de beheerders van de database, deze mag niet worden geopend door andere gebruikers.

Is er hier een eenvoudige optie voor te verzinnen (evt. met wachtwoord)

Groet,

Daan

 

[Joep Meloen]

Ook dat kan....................

Daan, dat kan!
Ik los dit meestal op door het netwerkwachtwoord af te vangen als volgt:

Option Compare Database
Option Explicit

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function dUserName() As String
Dim strBuffer As String
Dim lngLen As Long
strBuffer = Space(20)
lngLen = Len(strBuffer)
If CBool(GetUserName(strBuffer, lngLen)) Then dUserName = Left$(strBuffer, lngLen) Else dUserName = ""
End Function.

Gebruik de uitkomst in de voorwaarde van een macro waarmee je het formulier kan openen.


Succes!

Joop

 

[daan1974]

`Gaan we proberen, ik laat wel even weten of het gelukt is