Access VBA: this application has requested the Runtime - ms-access

Question

Running a VBA macro, sometimes it works well. But in some cases, I get the following error.
I have debugged the code but I don't get any error. The code is the following.
Public Sub Adjust_ComboBox()
On Error GoTo Adjust_ComboBox_Err
Dim mes As Form
Set mes = [Form_Treatment Details]
Dim count As Long
On Error Resume Next
For Each ctl In mes.Detail.Controls
If TypeName(ctl) = "ComboBox" Then
Dim comboitems() As Variant
count = 1
comboitems = ctl.Value
count = UBound(comboitems) + 1
ctl.Height = (300 * count)
Erase comboitems
End If
Next
Adjust_ComboBox_Exit:
Exit Sub
Adjust_ComboBox_Err:
MsgBox Error$
Resume Adjust_ComboBox_Exit
End Sub
How can it be possible to get this error?

Answer 1

This whole block of code looks odd to me.
Dim comboitems() As Variant
count = 1
comboitems = ctl.Value
count = UBound(comboitems) + 1
ctl.Height = (300 * count)
Erase comboitems
My questions are:
Why are you DIMing and ERASEing the combotems in a loop?
Why are you setting your array to the control's value?
Are you trying to set the height based on the number of items?
Why are you setting count=1 when it just gets overwritten two lines
later?
If I am guessing right on the answers to the questions I think you'd eliminate a few possible crashes by slimming down your loop code and using ListCount:
count = ctl.ListCount
if count > 0 then
ctl.Height = (300 * count)
else
ctl.Height = 300
end if