Hoi,
Ik ben bezig met het maken van een database. In die database hebik een knop die naar een formulier leidt. Deze knop wil ik afschermen met een wachtwoord.
Ik heb al geprobeerd met een InputBox, maar hier kreeg ik niet van die leuke sterretjes die je normaal altijd ziet. Dus heb ik een formulier gemaakt met daarin een tekstvak met het InputMask: Wachtwoord. Daaronder heb ik een knop gezet met de volgende code:
(code)
Private Sub Button1_Click()
Dim stLinkCriteria As String
Dim stDocName As String
Dim Wachtwoord As String
If Password = "MIJN WACHTWOORD" Then
DoCmd.Close acForm, "Login", acSaveNo
DoCmd.Close
stDocName = "rapporten_intro"
DoCmd.OpenForm stDocName,,, stLinkCriteria
Else
MsgBox "Sorry. Wrong password!"
End If
End Sub
(/code)
Maar als ik deze code uit wil voeren krijg ik dit te zien:
Compileerfout:
Een variabele is niet gedefineerd
Kan iemand mij helpen?
Gaarne duidelijke uitleg (ben NewBie wat betreft dit soort zaken
)
Mijn Dank hebben jullie alvast
MajinBuu
Ik ben bezig met het maken van een database. In die database hebik een knop die naar een formulier leidt. Deze knop wil ik afschermen met een wachtwoord.
Ik heb al geprobeerd met een InputBox, maar hier kreeg ik niet van die leuke sterretjes die je normaal altijd ziet. Dus heb ik een formulier gemaakt met daarin een tekstvak met het InputMask: Wachtwoord. Daaronder heb ik een knop gezet met de volgende code:
(code)
Private Sub Button1_Click()
Dim stLinkCriteria As String
Dim stDocName As String
Dim Wachtwoord As String
If Password = "MIJN WACHTWOORD" Then
DoCmd.Close acForm, "Login", acSaveNo
DoCmd.Close
stDocName = "rapporten_intro"
DoCmd.OpenForm stDocName,,, stLinkCriteria
Else
MsgBox "Sorry. Wrong password!"
End If
End Sub
(/code)
Maar als ik deze code uit wil voeren krijg ik dit te zien:
Compileerfout:
Een variabele is niet gedefineerd
Kan iemand mij helpen?
Gaarne duidelijke uitleg (ben NewBie wat betreft dit soort zaken
Mijn Dank hebben jullie alvast
MajinBuu