Extra validatie voorwaarde op een textbox van een userform

[Koos Voos]

Geachte,

Voor de invoer van een textbox (txtLading), heb ik 2 codes in mijn Excel userform.
Ik heb dit zo opgelost omdat het userform naar mijn mening op deze manier
(gebruikers)vriendelijker is dan door deze code te combineren.
------------------------------------------------------------------------------------
Private Sub txtLading_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Else
KeyAscii = 0
End Select
End Sub
------------------------------------------------------------------------------------
Private Sub txtLading_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Val(txtLading) > 1000 Then
txtLading.Text = ""
MsgBox "De hoeveelheid mag maximaal 1000 Kg zijn."
Cancel = True
End If
End Sub
------------------------------------------------------------------------------------
Bij deze laatste code zou ik graag nog een extra voorwaarde willen, nl het volgende:

Als de selectiekeuze uit mijn combobox (cboKlant) gelijk is aan "Klant 1", mag het ingevulde getal niet groter zijn dan 500. Bij de overige klanten mag het wel 1000 zijn.

Na veel proberen en zoeken ben ik er nog steeds niet uit, hoe dit op te lossen.

Bij voorbaat dank,

Groeten,
Koos

 

[HSV]

Misschien is het beter om je bestandje te uploaden (zonder gevoelige info uiteraard).

 

[E v R]

zoiets:?

Private Sub txtLading_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Select Case cboKlant.Value
Case "Klant 1"
If Val(txtLading) > 500 Then
txtLading.Text = 500 'of ""
MsgBox "De hoeveelheid van deze klant mag maximaal 500 Kg zijn."
Cancel = True
End If
Case Else
'eventueel aanvullen voor andere klanten
End Select
If Val(txtLading) > 1000 Then
txtLading.Text = ""
MsgBox "De hoeveelheid mag maximaal 1000 Kg zijn."
Cancel = True
End If
End Sub

 

[Koos Voos]

Ja, dat is 'm .......werkt perfect.......:thumb:

Het was mij helaas niet gelukt......
Ik begrijp nu ook wat ik fout had gedaan.

Dank u...dank u....:thumb::thumb:

Groeten,
Koos

 

[fcwiv]

Beste Koos,
Een klein tip/suggestie op je code, het gaat je regels schelen.

Private Sub txtLading_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Fred

 

[Koos Voos]

Bedankt voor de tip.

Ga ik eens proberen.

Groeten
Koos

 

[fcwiv]

Geen dank Koos.


Fred