Error on forms

[Juliame9]

Hi guys,

I have a userform and sometimes if you don't input a value in one of the textboxes, you get and error.
I want that when there's an error, a messagebox will disply "Please fill in the missing fields" and then go back to the form for the client to continue using it.

I tried:
On Error GoTo ErrMsg
ErrMsg:
MsgBox ("Please fill in the missing fields"), , "Error"
Resume Next

but it just makes the messagebox pop multiple times and you need to press ok several times until it closes.

Any ideas how I can solve this?

Thanks!

 

[Norie]

Can you post the code where the error occurs?

 

[Juliame9]

Can you post the code where the error occurs?

What do you mean "post the code where the error occurs"?
Basically it happens when the user doesn't put a value that needed for a calculation in a textbox. So I have a button "Calculate" that runs calculations on several textboxes in the form, but if the user missed any textbox, then there's an error because the code can't run when it has not values.

Hope this is what you meant...

 

[Norie]

Isn't there a line of code highlighted when you get the error and click Debug?

 

[Juliame9]

There is but it's always a different line depending on the data that's missing..

 

[Norie]

Why not just add Exit Sub to the code you posted earlier?

That would return you do the form.

 

[Juliame9]

Because it does return me to the form, but then even if I fill in the missing fields, I still get the error message (in this case the messagebox I defined)

 

[Norie]

Sorry but without seeing the rest of the code I can't really help any further.

 

[Juliame9]

this is the entire code:

Private Sub CmdCalc_Click()
If InStr(TxtCapital, "%") > 0 Then
    TxtCapital = Replace(TxtCapital, "%", "")
End If
Payoff = Application.WorksheetFunction.Pmt(TxtCapital / 1200, TxtAmort, -TxtHW) + TxtService
ClickCost = CDbl(TxtIMP.Value) * CDbl(TxtClick.Value) * 10000
If TxtColors <> "" Then
Fixed.Visible = True
Variable.Visible = True
Label21.Visible = True
Label26.Visible = True
Label35.Visible = True
Total2.Visible = True
Fixed = CDbl(TxtLabor.Text) + Payoff
Variable = CDbl(TxtSubs.Text) * CDbl(TxtIMP.Text) * 10000 / CDbl(TxtColors.Text) + CDbl(ClickCost.Text)
Total2 = CDbl(Fixed.Text) + CDbl(Variable.Text)
End If
If TxtMargin <> "" Then
Label42.Visible = True
Label44.Visible = True
Margin.Visible = True
Revenue.Visible = True
Revenue = CDbl(Total2.Text) * (1 + CDbl(TxtMargin.Text) / 100)
Margin = Total2 * (1 + TxtMargin / 100) - Total2
End If
Total1 = CDbl(Payoff.Text) + CDbl(ClickCost.Text)
If TxtEPMClick <> "" Then
Label27.Visible = True
Label28.Visible = True
Label39.Visible = True
Label40.Visible = True
EPMClickCost.Visible = True
EPMVariable.Visible = True
TotalEPM1.Visible = True
TotalEPM2.Visible = True
Label57.Visible = True
EPMMargin.Visible = True
End If
If TxtColors > 3 And TxtEPMClick <> "" Then
EPMClickCost = CDbl(TxtIMP.Value) * 1000000 * (CDbl(TxtColors.Text) - 1) / CDbl(TxtColors.Text) * TxtEPMClick / 100
EPMVariable = CDbl(EPMClickCost.Value) + CDbl(TxtSubs.Text) * CDbl(TxtIMP.Value) * 10000 / CDbl(TxtColors.Value)
TotalEPM1 = CDbl(Payoff.Text) + CDbl(EPMClickCost.Text)
TotalEPM2 = CDbl(Fixed.Text) + CDbl(EPMVariable.Text)
EPMMargin = Total2 * (1 + TxtMargin / 100) - TotalEPM2
End If
If InStr(TxtMargin, "%") > 0 Then
    TxtMargin = Replace(TxtMargin, "%", "")
End If
End Sub

 

[Juliame9]

Any ideas? anyone?