[cerealkiller17]

Private Sub cmdcalculate2_Click()
Dim total2 As Currency
Dim cufee1 As Currency
Dim med2 As Currency
Dim labexam1 As Currency

cufee1 = Me.txtcufee1.Text
[b]med2 = Me.txtmed2.Text[/b]
labexam1 = Me.txtlabexam1.Text

If cufee1 >= 0 And med2 >= 0 And labexam1 >= 0 Then
total2 = Val((Me.txtcufee1.Text) + (Me.txtmed2.Text) + (Me.txtlabexam1.Text))
labeltotal2.Caption = total2
Exit Sub
ElseIf cufee1 >= 0 And med2 >= 0 Then
total2 = Val((Me.txtcufee1.Text) + (Me.txtmed2.Text))
labeltotal2.Caption = total2
Exit Sub
ElseIf cufee1 >= 0 And labexam1 >= 0 Then
total2 = Val((Me.txtcufee1.Text) + (Me.txtlabexam1.Text))
labeltotal2.Caption = total2
Exit Sub
ElseIf cufee1 >= 0 Then
labeltotal2.Caption = total2
Exit Sub
End If

End Sub

i have this code and the error is type mismatch and it points to the one that is in bold text .. can anyone help me in this ? please.. TNX :*

This post has been edited by Atli: 29 August 2012 - 11:57 PM
Reason for edit:: Use [code] tags when posting code.

[maj3091]

Give an example of what you have in txtmed2.

Seeings how you doing exactly the same thing in the line above, just using a different variable and textbox (assuming they are textboxes), then it should work.

[cerealkiller17]

maj3091, on 29 August 2012 - 11:57 PM, said:

Give an example of what you have in txtmed2.

Seeings how you doing exactly the same thing in the line above, just using a different variable and textbox (assuming they are textboxes), then it should work.

what example do you mean ? im sorry im just a beginner

[maj3091]

What do you have entered in the textbox.

i.e.: what is the value of txtmed2.text

[cerealkiller17]

maj3091, on 30 August 2012 - 12:09 AM, said:

What do you have entered in the textbox.

i.e.: what is the value of txtmed2.text

it has no value .. i just type a random number in the first textbox .. (txtcufee1.text) then the rest has no value ..

[maj3091]

cerealkiller17, on 30 August 2012 - 08:11 AM, said:

maj3091, on 30 August 2012 - 12:09 AM, said:

What do you have entered in the textbox.

i.e.: what is the value of txtmed2.text

it has no value .. i just type a random number in the first textbox .. (txtcufee1.text) then the rest has no value ..

Then it needs to have a value...you can't convert an empty string to a currency, hence the Type Mismatch error.

You really should check the contents of the textbox before trying to change types.

For example:

' Check if something is entered.
if len(txtmed2.text)>0 then
  'carry on
else
  'textbox is empty
endif

' check if it's a number
if isnumeric(txtmed2.text) then
  'carry on
else
  'textbox doesn't contain a number
endif

This post has been edited by maj3091: 30 August 2012 - 12:21 AM

[cerealkiller17]

maj3091, on 30 August 2012 - 12:20 AM, said:

cerealkiller17, on 30 August 2012 - 08:11 AM, said:

maj3091, on 30 August 2012 - 12:09 AM, said:

What do you have entered in the textbox.

i.e.: what is the value of txtmed2.text

it has no value .. i just type a random number in the first textbox .. (txtcufee1.text) then the rest has no value ..

Then it needs to have a value...you can't convert an empty string to a currency, hence the Type Mismatch error.

You really should check the contents of the textbox before trying to change types.

For example:

' Check if something is entered.
if len(txtmed2.text)>0 then
  'carry on
else
  'textbox is empty
endif

' check if it's a number
if isnumeric(txtmed2.text) then
  'carry on
else
  'textbox doesn't contain a number
endif

ill try this .. thanks !! :*

[cerealkiller17]

thank you so much !! yay !!

[maj3091]

Glad you sorted it.

Can you post your modified code using the [ CODE] tags from the toolbar.

This allows others to see how you solved your problem in the future.

[cerealkiller17]

Private Sub cmdcalculate2_Click()
Dim total2 As Integer
Dim cufee1 As Integer

cufee1 = Me.txtcufee1.Text



If Len(Me.txtcufee1.Text) >= 0 And Len(Me.txtmed2.Text) >= 0 And Len(Me.txtlabexam1.Text) >= 0 Then
total2 = CSng(Me.txtcufee1.Text) + CSng(Me.txtmed2.Text) + CSng(Me.txtlabexam1.Text)
txttotal2.Text = total2
Else
txttotal2.Text = ""
End If

If Len(Me.txtcufee1.Text) >= 0 And Len(Me.txtmed2.Text) >= 0 And Len(Me.txtlabexam1.Text) = "" Then
total2 = CSng(Me.txtcufee1.Text) + CSng(Me.txtmed2.Text)
txttotal2.Text = total2
Else
txttotal2.Text = ""
End If

If Len(Me.txtcufee1.Text) >= 0 And Len(Me.txtmed2.Text) = "" And Len(Me.txtlabexam1.Text) >= 0 Then
total2 = CSng(Me.txtcufee1.Text) + CSng(Me.txtlabexam1.Text)
txttotal2.Text = total2
Else
txttotal2.Text = ""
End If

If Len(Me.txtcufee1.Text) >= 0 And Len(Me.txtmed2.Text) = "" And Len(Me.txtlabexam1.Text) = "" Then
txttotal2.Text = cufee1
Else
txttotal2.Text = ""
End If
End Sub

ihave this problem again .. huhuhu .. my if statement is kinda wrong.. it needs to be calculated even if i do not enter a value to one of the textbox .. for example i entered a value in txtcufee1 and txtmed2 and it'll execute the command .. but my if statement seems wrong .. can someone help me ?