Beste helper,
in de bijlage heb ik een bestandje.toegevoegd waarin een frmTegendrukVentilatie(userform) zit.
Als ik de code erachter run. en mijn textboxen invul krijg ik ongeldige kwalificatie. Na een ochtendje zoeken en proberen zie ik de fout niet.
de code is:
wie ziet de fout en zou mij willen vertellen wat ik verkeerd doe.
m vr gr Martin
in de bijlage heb ik een bestandje.toegevoegd waarin een frmTegendrukVentilatie(userform) zit.
Als ik de code erachter run. en mijn textboxen invul krijg ik ongeldige kwalificatie. Na een ochtendje zoeken en proberen zie ik de fout niet.
de code is:
Code:
Private Sub butTegendruk_Click()
Dim IntakeAir As Double
Dim VentAir As Double
Dim VentFlowTot As Double
If Trim(txtlQKoelluchtuittrede.Text) = "" Then
MsgBox "Volumestroom Ventilatielucht dient ingevuld te zijn"
txtlQKoelluchtuittrede.SetFocus
Exit Sub
End If
If Trim(txtComstionFlowQ.Text) = "" Then
txtComstionFlowQ.Value = 0
Exit Sub
End If
Select Case cboComstionFlowQ.Text
Case "m3/hr"
IntakeAir = txtComstionFlowQ / 3600
Case "m3/min"
IntakeAir = txtComstionFlowQ / 60
Case "m3/s"
IntakeAir = txtComstionFlowQ
End Select
Select Case cboQKoelluchtuittrede.Text
Case "m3/hr"
VentAir = txtlQKoelluchtuittrede / 3600
Case "m3/min"
VentAir = txtlQKoelluchtuittrede / 60
Case "m3/s"
VentAir = txtlQKoelluchtuittrede
End Select
VentFlowTot = VentAir.Value + IntakeAir.Value
Me.lblvK1.Caption = Round(VentFlowTot / (txtBK1.Value * txtHK1.Value), 2)
End Sub
Private Sub txtComstionFlowQ_Change()
txtComstionFlowQ = Replace(txtComstionFlowQ, ",", ".")
End Sub
Private Sub txtlQKoelluchtuittrede_Change()
txtlQKoelluchtuittrede = Replace(txtlQKoelluchtuittrede, ".", ",")
End Sub
Private Sub UserForm_Initialize()
With cboQKoelluchtuittrede
.AddItem "m³/s"
.AddItem "m³/min"
.AddItem "m³/hr"
.Visible = True
End With
Me.cboQKoelluchtuittrede.Text = Me.cboQKoelluchtuittrede.List(0)
Me.cboComstionFlowQ.List = Me.cboQKoelluchtuittrede.List
Me.cboComstionFlowQ.Text = Me.cboComstionFlowQ.List(0)
End Subwie ziet de fout en zou mij willen vertellen wat ik verkeerd doe.
m vr gr Martin
