waarde textbox tussen 1000 en 5000

[W Bloemendal]

Hoe kan ik het maken dat in een textbox allen een waarde ingegeven kan worden tussen 1000 en 5000.

ik heb nu het volgende ingegeven

Private Sub TextBox1_Change()
  If TextBox1 < 1000 Then MsgBox "Materiaal nummer niet goed,", vbExclamation
  End Sub

Maar als ik nu 1 cijfer in getoets heb krijg ik direct msgbox

Wim

Of gaat dat beter met een combobox

 

[gast0660]

Waarschijnlijk zo:

 If TextBox1[COLOR="#FF0000"].Value[/COLOR]  <[COLOR="#FF0000"] "1000" [/COLOR]Then MsgBox "Materiaal nummer niet goed,", vbExclamation

Edit:
gebruik :

Private Sub TextBox1_Click()

 

[HSV]

Gebruik een ander event dan de change().

De te gebruiken events staan in het rechter validatielijstje in de vb-editor als je in de linker lijstje op Textbox1 klikt.

 

[W Bloemendal]

Philiep
Als ik bij

Private Sub TextBox2_Click()
If TextBox2.valeu < "1000" Then MsgBox "Materiaal nummer niet goed,", vbExclamation
End Sub

99 in geef krijg ik geen MSGBOX

mvg

Wim

 

[edmoor]

Zoiets:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Val(TextBox1) < 1000 Or Val(TextBox1) > 5000 Then
        MsgBox "Materiaal nummer niet goed,", vbExclamation
        Cancel = True
    End If
End Sub

 

[HSV]

Ik had in gedachten om Ts. het zelf te laten ontdekken waar die events staan.

Ik zou kiezen voor AU() (afkorting om het nog een beetje geheim te houden).

 

[W Bloemendal]

Hsv

ik had de events wel gevonden maar mijn programmeer kunsten en engels zijn niet zo bijzonder zeg maar SLECHT.

Mvg

Wim

 

[HSV]

Je kan ook een beetje testen wat ze allemaal doen natuurlijk Wim.

 

[W Bloemendal]

EEN KOMT NIET ALLEEN

Het is niet alleen _ EXIT er moet dan toch nog meer achter


Mvg

Wim

 

[edmoor]

#5 al gezien?

 

[HSV]

Hsv

ik had de events wel gevonden maar mijn programmeer kunsten en engels zijn niet zo bijzonder zeg maar SLECHT.

Mvg

Wim

Volgens mij heb je ze nog niet gevonden.
Zie #3 van 19:27 uur.

 

[W Bloemendal]

Edmoor

Precies wat ik nodig heb.

mvg

Wim

 

[HSV]

Druk nu eens op de 'annuleer' knop zonder iets in te vullen, heb je dat ook nodig?

Suggestie.

Private Sub TextBox1_AfterUpdate()
 If Val(TextBox1) < 1000 Or Val(TextBox1) > 5000 Then 
   MsgBox "Materiaal nummer niet goed,", vbExclamation
   textbox1 = ""
end if
End Sub

 

[W Bloemendal]

dat zal ik morgen proberen ik ga nu werken.

#5 had ik al in gevoerd

#3 zat ik verkeerd bij objectenoverzicht maar nu heb ik het gevonden zoals ik al vermelde in #7

je bedoelde dat met annuleer knop de msgbox te voorschijn kwam, nee dat is niet nodig.
Zag dat het in je code opgelost was


mvg

Wim