foutafhandeling lege txtboxen op formulier

[Doohan]

Geachte Helper,

Ik heb een formulier met meedere txtboxen er zijn 4 txtboxen die niet leeg mogen blijven. In de onder staande code probeerde ik een msgbox te laten verschijnen met de if isempty functie als deze nog leeg zijn maar ik krijg een foutmelding.
Wie kan me helpen.

CODE:

Private Sub butBerekenExhaust_Click()
    
    'Bereken Button voert berekening uit van werkblad EXHAUST
    'De ingevulde txtboxen vullen bepaalde cellen op blad EXHAUST
    'Een aantal labels haalt info uit bepaalde cellen op blad EXHAUST
    
        
   
      If txtExhaustGasFlow <> vbNullString Then
        ExhaustFlowCombox.Visible = True
    
    With Sheets("EXHAUST")
        Select Case ExhaustFlowCombox.Text
      
            Case "m³/s"
             
              GasFlow = txtExhaustGasFlow * 60
            
            Case "m³/min"
             
              GasFlow = txtExhaustGasFlow
            
            Case "m³/hr"
             
              GasFlow = txtExhaustGasFlow / 60
                                   
              
        End Select
      End With
     Else
    End If
    
    If IsEmpty(txtExhaustGasFlow) Then
    
    MsgBox "Tekstvak Uitlaatgassen Volumestroom dient ingevuld te zijn"
    
    End If
    
    If IsEmpty(txtExhaustgasTemperature) Then
    
    MsgBox "Tekstvak Uitlaatgassen Temperatuur dient ingevuld te zijn"
    
    End If
    
    If IsEmpty(txtUiltaatLeidingLengte) Then
    
    MsgBox "Tekstvak Uitlaat Leiding Lengte dient ingevuld te zijn"
    
    End If
    
    If IsEmpty(txtAantalBochten) Then
    
    MsgBox "Tekstvak Aantal Bochten dient ingevuld te zijn"
    
    End If
    
    Worksheets("EXHAUST").Range("E12") = Format(GasFlow, "0.00")
    Worksheets("EXHAUST").Range("E44") = CDbl(txtExhaustgasTemperature.Text)
    Worksheets("EXHAUST").Range("E50") = CDbl(txtUiltaatLeidingLengte.Text)
    Worksheets("EXHAUST").Range("E48") = CDbl(txtAantalBochten.Text)
    Me.lblVExhaust.Caption = Round(Worksheets("EXHAUST").Range("E17").Value, 1)
    Me.lblVExhaust1.Caption = Round(Worksheets("EXHAUST").Range("E17").Value, 1)
    

    
End Sub

Alvast vriendelijk dank,
Groet Martin

 

[snb]

Maak de 'vervolg' knop (on)zichtbaar afhankelijk van de volledigheid van de invoer.
Dan ziet de gebruiker meteen of zijn/haar invoer volledig is.

Private Sub TextBox1_Change()
    M_leeg
End Sub

Private Sub TextBox2_Change()
    M_leeg
End Sub

Private Sub TextBox3_Change()
    M_leeg
End Sub

Private Sub TextBox4_Change()
    M_leeg
End Sub

Sub M_leeg()
   knop_vervolg.Visible = 0 + (TextBox1.Text <> "") + (TextBox2.Text <> "") + (TextBox3.Text <> "") + (TextBox4.Text <> "") = -4
End Sub

 

[Doohan]

Dank je SNB,

Helaas kan ik maandag pas weer testen. dus dan word dit lijntje waarschijnlijk weer gesloten.

Gr.Martin