Hoe krijg ik bij MS ACCESS 2000 de tab zover dat als hij aangeroepen een wachtwoord dialog box produceert voordat hij de tab laat zien. On_click lijkt niet te werken aangezien deze pas aangeroepen word als er op de form zelf geklikt word.
Hieronder de password code. Let niet op het feit dat het ww in de code staat. Komt nog verandering in.
Hieronder de password code. Let niet op het feit dat het ww in de code staat. Komt nog verandering in.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Dim strPassword As String
Dim strEnterPassword As String
Dim intPasswordCount As Integer
intPasswordCount = 1
strPassword = "cfspass"
strEnterPassword = InputBox("Enter Password to view/add sensitive information", "Enter Password")
Do While intPasswordCount <= 3
If strPassword <> strEnterPassword Then
MsgBox "You have entered an incorrect password. You have " & 3 - intPasswordCount & " attempts remaining.", vbRetryCancel + vbCritical, "Incorrect password"
intPasswordCount = intPasswordCount + 1
Else
MsgBox "blah"
intPasswordCount = 5
End If
Loop |