Hallo,

In een textbox moet een waarde ingevuld worden tussen 1 en 7. Bij een foutieve waarde wordt een boodschap gegeven en de cursor moet naar de textbox wijzen. Dit laatste werkt niet, het geeft een fout. Wie weet raad?

Mijn code:
Private Sub txtDagnr_Change()
   If txtDagnr = "" Then txtDagnr = 0
   Dim intdummy
   If txtDagnr = 0 Or txtDagnr > 7 Then
      Msg = "De dagnummer moet een nummer zijn van 1 tot 7!"
      intdummy = MsgBox(Msg, vbOKOnly + vbCritical, "Opgelet")
      txtDagnr.SetFocus               <==== Geeft fout
   End If
End Sub

Guido

zet na je lijn setfocus  SendKeys "{Home}+{End}" dan zou het normaal werken laat iets weten als het werkt.

Hoi,

Mijn excuus dat ik hier nier eerder op gereageerd heb. Het probleem zal wel opgelost zijn. Ik weet ook niet meer in welk programma dat het was.

Dit zal mij hopelijk niet meer overkomen.

Guido