Convert a user form TextBox input to numerical value long or date

[Kappes105]

I would like to create an array from the userform input of the TextBoxes. However, I get an error message (Type mismatch (Error 13)) when I want to convert the values from the userform TextBox into the number type clng or cdate
Can someone tell me what I am doing wrong? My array looks like this:
mFields = Array( _
Array(CStr(TextBox1), 2, vbString, "R", 0), _
Array(CStr(TextBox2), 3, vbString, "R", 0), _
Array(CDate(TextBox3), 3, vbString, "R", 0), _
Array(CLng(TextBox4), 4, vbLong, "R", 100))

many thanks!!

 

[dmt32]

Your code likely to work if values of correct data type will always exist in to your textboxes but if an expression passed to a function is outside the range of the data type to which it is to be converted you will get an error. One way to overcome this but not recommended, you could just wrap your code with On Error Resume Next to ignore the error.

Suggest consider using an appropriate Is function in your code to first determine if the value can be coerced to the required data type and only then apply the type conversion function.

Example

Option Base 1

Private Sub CommandButton1_Click()
    Dim mfields     As Variant
    mfields = Array(Array(CStr(TextBox1), 2, vbString, "R", 0), _
                    Array(CStr(TextBox2), 3, vbString, "R", 0), _
                    Array(TextBox3, 3, vbString, "R", 0), _
                    Array(TextBox4, 4, vbLong, "R", 100))
  
    If IsDate(mfields(3)(1)) Then mfields(3)(1) = CDate(mfields(3)(1))
    If IsNumeric(mfields(4)(1)) Then mfields(4)(1) = CLng(mfields(4)(1))
  
End Sub

Hope Helpful

Dave

 

[Kappes105]

I am using separate TextBox class modules and checking the TextBox Events to ensure that the correct values are entered.
The array should help me to store the data correctly in the table. Unfortunately your example does not work