Beste VBA Guru's
Ik heb op een formulier de volgende butto staan met code
Als ik in mijn formulier de textboxen invul en ik maak een vergissing met textbox Setnr dan moet de melding komen "Setnr kan alleen uit getallen bestaan" verschijnen. Dit werkt perfect. Echter als ik dan OK druk dan verschijnt toch het volgende formulier. Ik zou graag op het huidige forulier willen blijven. Om de vergissing te herstellen.
m.vr.gr. Martin
Ik heb op een formulier de volgende butto staan met code
Code:
Private Sub butVentilatielucht_Click()
' Vult 3 cellen vanuit txtbox op werkblad ventilatie
' Opent gegevens Invoer Ventilatielucht
' Vult 3 labels op frmGevensInvoer vanuit werkblad ventilatie
Worksheets("Ventilatielucht").Range("B1") = CVar(txtOpdrachtgever.Text)
Worksheets("Ventilatielucht").Range("B2") = CVar(txtSetnr.Text)
Worksheets("Ventilatielucht").Range("B3") = CVar(txtKlant.Text)
Worksheets("Ventilatielucht").Range("B8") = CVar(txtMotor.Text) & " " & (txtMotortype.Text)
Worksheets("Ventilatielucht").Range("B13") = CVar(txtGenerator.Text)
If IsNumeric(txtSetnr) Then
frmGegevensInvoer.lblSetnr.Caption = Round(Worksheets("Ventilatielucht").Range("B2").Value, 0)
Else
MsgBox "Setnr kan alleen uit getallen bestaan"
End If
frmGegevensInvoer.lblOpdrachtgever.Caption = Worksheets("Ventilatielucht").Range("B1").Value
frmGegevensInvoer.lblKlant.Caption = Worksheets("Ventilatielucht").Range("B3").Value
frmMainMenu.Hide
frmGegevensInvoer.Show
End Sub
Als ik in mijn formulier de textboxen invul en ik maak een vergissing met textbox Setnr dan moet de melding komen "Setnr kan alleen uit getallen bestaan" verschijnen. Dit werkt perfect. Echter als ik dan OK druk dan verschijnt toch het volgende formulier. Ik zou graag op het huidige forulier willen blijven. Om de vergissing te herstellen.
m.vr.gr. Martin