Runtime Error 2465

Question

I'm trying to set the FontName of the list boxes that I have on several of my forms by calling a public function from the OnLoad of my forms.

The following code is recieving a "Run-time error 2465: Application-defined or object-defined error"

Public Function ListBoxProperties(frm As Form)

     Dim ctl As Control

     For Each ctl In frm.Controls

         If frm.ControlType = acListBox Then

            ctl.FontName = "Arial"

         End If

     Next ctl

End Function

The For Each line is being highlighted. The forms contain only 1 listbox. I'm callong the finction form the OnLoad- Call ListBoxProperties(Me)

James

Answer 1

Public Sub ListBoxProperties(frm As Form)

    Dim ctl As Control

     For Each ctl In frm.Controls

         If ctl.ControlType = acListBox Then

            ctl.FontName = "Arial"

         End If

     Next ctl

End Sub

---

Cheers, Jörn Bosse

Microsoft Studentpartner

Answer 2

finally we made it :D

---

Cheers, Jörn Bosse

Microsoft Studentpartner

Answer 3

Yeah. I eliminated the 'Set frm' line and it appears to be working fine now.

Thanks much,

James