Beste forum
Nog enkele probleempjes waar ik tegen aan loop. Deze code loopt goed op een paar dingen na.
1° als ik onderaan de code Me.txtZoekwaardeNum.Value = " " wil vervangen door Zoekwaarde1=" " wordt de waarde niet gewist (echter op de eerste regel (If) werkt dit wel).
2° onderaan de code Me.txtZoekwaardeNum.SetFocus werkt ook niet, focus gaat naar volgende tap
3° als de opzoeking mislukt komt er een msgbox. Geen probleem maar als je nadien een juiste waarde ingeeft blijft de msgbox zich herhalen
Wat is hier fout aan? Waar zie ik het mis?
Hartelijk dank
PS: "H5_ZoekOpNum" verwijst naar een 'named range' in een sheet. Deze heb ik elders ook nodig maar werkt verder perfect
Nog enkele probleempjes waar ik tegen aan loop. Deze code loopt goed op een paar dingen na.
1° als ik onderaan de code Me.txtZoekwaardeNum.Value = " " wil vervangen door Zoekwaarde1=" " wordt de waarde niet gewist (echter op de eerste regel (If) werkt dit wel).
2° onderaan de code Me.txtZoekwaardeNum.SetFocus werkt ook niet, focus gaat naar volgende tap
3° als de opzoeking mislukt komt er een msgbox. Geen probleem maar als je nadien een juiste waarde ingeeft blijft de msgbox zich herhalen
Wat is hier fout aan? Waar zie ik het mis?
Hartelijk dank
PS: "H5_ZoekOpNum" verwijst naar een 'named range' in een sheet. Deze heb ik elders ook nodig maar werkt verder perfect
Code:
Private Sub cmdZoekOpNum_Click()
Dim Zoekwaarde1 As String
Zoekwaarde1 = Me.txtZoekwaardeNum.Value
If Not Range("H5_ZoekOpNum").Find(Zoekwaarde1) Is Nothing Then
Range("H5_ZoekOpNum").Find(Zoekwaarde1).Select
Me.txtCursistCode = ActiveCell.Cells(, 0).Value
Me.txtCursistNum = ActiveCell.Cells(, 1).Value
Me.txtCursistNum.Value = Format(txtCursistNum.Value, "0000")
Me.txtVoornaam = ActiveCell.Cells(, 4).Value
Me.txtFamilienaam = ActiveCell.Cells(, 5).Value
Else
MsgBox "Waarde komt niet voor in range"
Me.txtZoekwaardeNum.Value = " " '(Zoekwaarde1 = " ") werkt niet
Me.txtZoekwaardeNum.SetFocus '(werkt niet, ook niet op de manier hoe het er staat)
End If
End Sub