Ik heb een formulier voor het wijzigen van het wachtwoord. In VB doe ik, als de oude gebruikersnaam en het oude wachtwoord kloppen, een sql-update van de inlogtabel met het nieuwe wachtwoord. Dit werkt allemaal prima, maar ik krijg wel altijd een standaard melding bij het updaten van de tabel of ik het zeker weet dat de tabel bijgewerkt moet worden. Ik wil deze melding niet hebben of anders veranderen. Hoe kan ik dat in de code afvangen? Dit is de code:
Code:
Private Sub Afbeelding146_Click()
Dim x As Variant
Dim sCheck As String
Dim strSql As String
On Error Resume Next
Me.Txtgebruikersnaam.SetFocus
If Me.Txtgebruikersnaam.Text & "" = "" Then
MsgBox "Vul de gebruikersnaam in"
Me.Txtgebruikersnaam.SetFocus
Exit Sub
End If
Me.txtwachtwoord.SetFocus
If Me.txtwachtwoord.Text & "" = "" Then
MsgBox "Vul het oude wachtwoord in"
Me.txtwachtwoord.SetFocus
Exit Sub
End If
Me.txtwachtwoord3.SetFocus
If Me.txtwachtwoord3.Text & "" = "" Then
MsgBox "Vul het nieuwe wachtwoord in"
Me.txtwachtwoord3.SetFocus
Exit Sub
End If
sCheck = "[Gebruikersnaam]='" & Me.Txtgebruikersnaam & "' AND [Wachtwoord]='" & Me.txtwachtwoord & "'"
x = Nz(DLookup("[Gebruikersnaam]", "[Inlogtabel]", sCheck))
If Not x = vbNullString Then
strSql = "UPDATE Inlogtabel SET Inlogtabel.Wachtwoord = [Forms]![Wijzigen wachtwoord v2]![txtwachtwoord3] " & vbCrLf & _
"WHERE (((Inlogtabel.Gebruikersnaam)=[Forms]![Wijzigen wachtwoord v2]![txtgebruikersnaam]));"
DoCmd.RunSQL strSql
MsgBox "Het wachtwoord is gewijzigd!"
DoCmd.Close acForm, "Wijzigen wachtwoord v2"
Else
MsgBox "Onjuiste gebruikersnaam of wachtwoord"
Me.Txtgebruikersnaam.SetFocus
End If
End Sub