data type mis match

[cowboy]

I am getting a Compile error: Type-declaration character does not match declared data type


Private Sub optMH1_Click()
Call SelectMHform(1)
End Sub



Sub SelectMHform(a As Integer)
With Forms("BaseForm")
.optMH& a&.value = 1
.txtPicture.value = "MH" + Str(a)
.cmbBoxMaterial.value = ""
.txtBoxLength.value = ""
End With
End Sub

I tried some other things too but I am still getting an error due to .optMH& a&.value = 1 How do I use a variable in this situation?

[pbaldy]

Untested, but try this if I understand what you want:

.Controls("optMH" & a).value

[cowboy]

worked beautifully

[pbaldy]

Glad to hear it.