Hallo forum members alvast een gelukkig en kennisvol 2006.
Ik heb een vraagje. De volgende code heb ik gebruikt om via de main switch board de database window te openen. Echter als ik het paswrd invoer kan idereen het zien in plaats van *******. Wie kan mij helpen hiermee?? Note! die paswrd heb ik aan een label gekoppeld. Alvast bedankt.
Private Sub lblVersion_DblClick(Cancel As Integer)
Dim strPasswd
strPasswd = InputBox("Please Enter Adminisrator Password to edit the database", "Restricted:Only Admin Users!")
If strPasswd = "12345" Then
'To Unhide the Database Window
DoCmd.SelectObject acTable, , True
Else
MsgBox "The Password you entered is incorrect!" & vbCrLf & _
"Please contact your system administrator ", vbCritical, "Password Error"
Exit Sub
End If
Tucka
Ik heb een vraagje. De volgende code heb ik gebruikt om via de main switch board de database window te openen. Echter als ik het paswrd invoer kan idereen het zien in plaats van *******. Wie kan mij helpen hiermee?? Note! die paswrd heb ik aan een label gekoppeld. Alvast bedankt.
Private Sub lblVersion_DblClick(Cancel As Integer)
Dim strPasswd
strPasswd = InputBox("Please Enter Adminisrator Password to edit the database", "Restricted:Only Admin Users!")
If strPasswd = "12345" Then
'To Unhide the Database Window
DoCmd.SelectObject acTable, , True
Else
MsgBox "The Password you entered is incorrect!" & vbCrLf & _
"Please contact your system administrator ", vbCritical, "Password Error"
Exit Sub
End If
Tucka