Run-time error:13 Type mismatch

[Latexy]

Hi.

I have this code in sub and its getting this run-time error for some reason. While debug it shows the value for change as "0" and value for textbox could be like "23.60"
If i change the variable as string it works but then calculations wont work.

    Dim change As Double
    change = TextBoxChange.Value

 

[Latexy]

Here is the code for automatic calculation for middle textbox where the problem is

Sub kassa()
    Dim crechange As Double
    Dim katchange As Double
    Dim xchange As Double
   
    crechange = CDbl(TextBoxCredit.Value)
    katchange = CDbl(TextBoxKateinen.Value)
    xchange = crechange + katchange
    TextBoxKassa.Value = xchange
    TextBoxKassa = Format(TextBoxKassa.Value, "#,##0.00")
End Sub

here is the code for make it automatic

Private Sub TextBoxCredit_Change()
    If Not TextBoxCredit.Value = "" And Not TextBoxKateinen.Value = "" Then
        Call kassa
    Else
        TextBoxKassa.Value = ""
    End If
End Sub

Private Sub TextBoxKateinen_Change()
    If Not TextBoxCredit.Value = "" And Not TextBoxKateinen.Value = "" Then
        Call kassa
    Else
        TextBoxKassa.Value = ""
    End If
End Sub

 

[RoryA]

You'll get an error if the textbox you are referring to is empty, so you should either check for that first or use

CDbl("0" & textboxname.text)

 

[Latexy]

Tried that but still not working...

 

[RoryA]

What is the error message, on which line of code does it occur, and what is in the two textboxes at the time?

Note: using a Change event is not usually a good idea since it fires for every key stroke.

 

[Latexy]

Well i changed the code that it's not using the Change event anymore and now the problem is that if the number in textbos is given 5,5 the code changes it to 43590,00.
I think it's because the comma but can't figure it out...

 

[Latexy]

and in those textboxes could be any numbers even with decimals or without

 

[RoryA]

43590 is the numeric representation of 5th May 2019, so I think your system seems to be setup to use a comma as the date separator?

 

[Latexy]

Hi!
I tried to change the separator to dot and after that got Run-time error:13 Type mismatch when code tried to give the value to Double type variable. I really don't get this

 

[RoryA]

You need your system to use a date separator that isn’t the same as your decimal or list separators.

 

[Latexy]

Thanks. I changed the numeral separator in windows settings from comma to dot and now it works
There's still the problem if the file is used on several computers that all must be made the same changes