M
Minitman
Greetings,
I am getting a:
Run-time error '13':
Type mismatch
In this line of code:
Me.Controls(vName & vNum + 1) = _
(Me.Controls(vName & vNum) * _
CDbl(C_8)) + CDbl(C_11)
In a select case sub that looks like this:
_____________________________________________________________
Public Sub CellFormat(vName As Variant, vNum As Variant)
Select Case vName
Case "C_"
Select Case vNum
Case "I_"
Select Case vNum
Case 4, 6, 8, 10, 12, 14
'I tried to put 0's where there were vbNullString's as values, hoping
'that this would cure the problem - It did not.
If Me.Controls(vName & vNum) = _
vbNullString Then Me.Controls _
(vName & vNum) = 0
If Me.Controls(vName & vNum + 1) = _
vbNullString Then Me.Controls _
(vName & vNum + 1) = 0
'These are from a different workbook. I am getting there values ok.
If C_8 = vbNullString Then C_8 = 0
If C_11 = vbNullString Then C_11 = 0
'This is the formula to get a value into the adjacent TextBox and
'the line that debug highlighted.
Me.Controls(vName & vNum + 1) = _
(Me.Controls(vName & vNum) * _
CDbl(C_8)) + CDbl(C_11)
This is where I am changing the value 0 back to vbNullString
If Me.Controls(vName & vNum + 1) = 0 Then _
Me.Controls(vName & vNum + 1) = vbNullString
If Me.Controls(vName & vNum) = 0 Then _
Me.Controls(vName & vNum) = vbNullString
If C_8 = 0 Then C_8 = vbNullString
If C_11 = 0 Then C_11 = vbNullString
______________________________________________________________
Anyone have any ideas as to what went wrong with this code and how to
fix it?
Any help would be appreciated.
-Minitman
I am getting a:
Run-time error '13':
Type mismatch
In this line of code:
Me.Controls(vName & vNum + 1) = _
(Me.Controls(vName & vNum) * _
CDbl(C_8)) + CDbl(C_11)
In a select case sub that looks like this:
_____________________________________________________________
Public Sub CellFormat(vName As Variant, vNum As Variant)
Select Case vName
Case "C_"
Select Case vNum
Case "I_"
Select Case vNum
Case 4, 6, 8, 10, 12, 14
'I tried to put 0's where there were vbNullString's as values, hoping
'that this would cure the problem - It did not.
If Me.Controls(vName & vNum) = _
vbNullString Then Me.Controls _
(vName & vNum) = 0
If Me.Controls(vName & vNum + 1) = _
vbNullString Then Me.Controls _
(vName & vNum + 1) = 0
'These are from a different workbook. I am getting there values ok.
If C_8 = vbNullString Then C_8 = 0
If C_11 = vbNullString Then C_11 = 0
'This is the formula to get a value into the adjacent TextBox and
'the line that debug highlighted.
Me.Controls(vName & vNum + 1) = _
(Me.Controls(vName & vNum) * _
CDbl(C_8)) + CDbl(C_11)
This is where I am changing the value 0 back to vbNullString
If Me.Controls(vName & vNum + 1) = 0 Then _
Me.Controls(vName & vNum + 1) = vbNullString
If Me.Controls(vName & vNum) = 0 Then _
Me.Controls(vName & vNum) = vbNullString
If C_8 = 0 Then C_8 = vbNullString
If C_11 = 0 Then C_11 = vbNullString
______________________________________________________________
Anyone have any ideas as to what went wrong with this code and how to
fix it?
Any help would be appreciated.
-Minitman