Solved: Combo Boxes

[pico]

I equate a combo box value to a integer variable in my userform. If i leave the combo box field empty and equate i get run-time error 13. How can i get rid of this problem?

examaple code :

Dim Temp as integer

Temp=CmbBox1.value

[moa]

Temp=int(CmbBox1.value) or Temp=val(CmbBox1.value). Can't remember which it is in VBA.

CmbBox1.value is a string.

Sorry, misread your post. Please ignore

[CBrine]

[vba]
Dim Temp as integer

Temp=iif(CmbBox1.value="",0,cmbBox1.value)
[/vba]

or
[vba]
if len(cmbbox1.value)=0 then
temp = 0
else
temp = cmbbox1.value
End if
[/vba]

HTH
Cal

[malik641]

Hi pico,

moa's code would work, particularly:

[VBA]
Temp=val(CmbBox1.value)
[/VBA]

If it is empty it will default to 0.

Or you could do a preliminary check to see if there's any text in the combo box to begin with:

[VBA]If CmbBox1.Value <> "" Then Temp = CmbBox1.Value[/VBA]

[Bob Phillips]

[vba]

If CmbBox1.ListIndex = -1 Then
Temp = 0
Else
Temp = CmbBox1.Value
End If
[/vba]

[pico]

Thank you All