Userform verplicht getal groter dan 0 invullen

[carloschouw]

Goedemiddag!

Wie zou mij kunnen helpen met het verplicht invullen van een waarde groter dan 0 in een userform cel?

Voor algemene validaties (verplicht in te vullen velden) gebruik ik deze code (slechts het deel van de code waar het om gaat heb ik toegevoegd in het voorbeeld):

Sub GegevensOpslaan()

Dim iRow As Long
Dim ws As Worksheet
Dim lrow As Long
Dim lCount As Long
Set ws = Worksheets("Blad1")

If Trim(Me.TextBox1.Value) = "" Then
 Me.TextBox1.SetFocus
 MsgBox "Getal groter dan 0 invullen", vbOKOnly + vbInformation, "Getal invoeren"
         StayOpen = True
 Exit Sub
  End If

Wanneer een tekstbox leeg is werkt het allemaal prima. Maar hoe kan ik ervoor zorgen dat er gecontroleerd wordt dat het getal groter moet zijn dan 0?

Ik dacht zoeits als:

  If Trim(Me.TextBox1.Value) = "" And _
     Trim(Me.TextBox1.Value) >= 1 Then
  MsgBox "Getal groter dan 0 invullen", vbOKOnly + vbInformation, "Getal invoeren"
         StayOpen = True
 Exit Sub
  End If

Maar dat werkt goed.

Iemand een idee misschien?

 

[edmoor]

Ik zou de controle doen bij het verlaten van de TextBox:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    On Local Error Resume Next
    If Int(TextBox1.Text) = 0 Then
        Cancel = True
        MsgBox "Getal groter dan 0 invullen", vbOKOnly + vbInformation, "Getal invoeren"
        TextBox1.SetFocus
    End If
End Sub

 

[snb]

Gebruik een combobox met geldige getallen.

 

[carloschouw]

@edmoor,
Hoe kan ik dit inrichten voor meerdere verplicht in te vullen textboxen? Moet ik dan voor iedere textbox een private sub textbox opstellen?

@snb,
Dat gaat helaas niet. De getallen zijn allemaal anders, geen standaard selectiewaarde is mogelijk. Het kan n.l. 1 zijn maar ook 4599 b.v.

 

[edmoor]

Als je er een Klassenmodule voor gebruikt heb je maar 2 routines nodig.
Eentje in de Userform_Initialize en eentje in de Klassenmodule.
Zie daarvoor de website van snb:
https://www.snb-vba.eu/VBA_Userform_invoercontrole.html#L_2.3.1

 

[carloschouw]

Ik ben getriggerd door de = 0 codering van edmoor en heb de code aangepast van AND <=1 naar Or = 0 en het werkt nu prima.

  If Trim(Me.TextBox1.Value) = "" Or Trim(Me.TextBox1.Value) = 0 Then
  MsgBox "Getal groter dan 0 invullen", vbOKOnly + vbInformation, "Getal invoeren"
         StayOpen = True
 Exit Sub
  End If

 

[edmoor]

Dat moet je dan wel weer per TextBox doen op die manier.

 

[carloschouw]

Ja klopt maar hoeft in mijn geval maar in 1 textbox gebruikt te worden

 

[edmoor]

Dan had je vraag aan mij in #4 dus geen zin.

 

[VenA]

Moet er natuurlijk niet per abuis een letter ingevoerd worden.

 

[carloschouw]

Deels, begreep ik volgens mij niet zo goed. Ik dacht dat ik voor iedere textbox validatie deze methode zou moeten gaan gebruiken. Dan had ik eventjes wat werk te verzetten, zijn er n.l. redelijk wat De validatie werkt n.l. allemaal via een commandbutton dus zat een beetje in die flow te denken, vandaar.

 

[edmoor]

Wat ik al zei, als je 100 TextBoxes hebt waarvoor diezelfde controle nodig is, dan kan je daar een klassenmodule voor gebruiken en heb je maar 2 Subs nodig.

 

[snb]

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode < 48 Or KeyCode > 57 Then TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End Sub