beveiliging op formulier

[marceagle]

Besten,

Er staat best veel uitleg over het beveiligen van een formulier, maar is allemaal zo complex .
Bestaat er geen eenvoudige oplossing ?
Ik heb bvb een tabel met diverse namen en wachtwoorden. Vanuit deze tabel moet er gekeken worden of al dan niet een formulier mag geopend worden.
Ik heb er maar een voorbeeldje bijgedaan. Ik denk (hoop) dat mijn uitleg moeilijker is dan de oplossing.

Met dank.

 

[marceagle]

toch moeilijker dan gedacht ?

 

[elagas]

toch moeilijker dan gedacht ?

Waarom doe je het niet met vba.
Je maakt een module met bv de naam "inlognaam" met de code:


Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX <> 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function


In het opstartformulier vul je bij on current in:

If fOSUserName = "inlognaam van persoon die alleen de knop ingave mag zien" Then
knop1.visible = true
knop2.visible = false
end if
If fOSUserName = "inlognaam van persoon die alleen de knop beheer mag zien" Then
knop1.visible = false
knop2.visible = true
end if
If fOSUserName = "inlognaam van persoon die beide knoppen mag zien" Then
knop1.visible = true
knop2.visible = true
end if

Ik hoop je hiermee voldoende te hebben geholpen.