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

Ok. Each message box returned all control names on the form including the List Box

Answer 3

Thats why i wrote that you have to copy this code into a form module and not a normal module.

---

Cheers, Jörn Bosse

Microsoft Studentpartner

Answer 4

The 'Set frm = Me' triggers an 'Invalid use of the Me keyword' in a procedure outside a form.

James

Answer 5

Okay i just tried the following:

Public Sub ListBoxProperties(frm As Form)

     Dim ctl As Control

    Set frm = Me

     For Each ctl In frm.Controls

         MsgBox ctl.Name

     Next ctl

End Sub

Private Sub Form_Load()

Call ListBoxProperties(Me)

End Sub

Copy this code to your Form and tell me if it worked.

---

Cheers, Jörn Bosse

Microsoft Studentpartner