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

I was just getting ready to paste this 'cause it worked. I was checking one of my Access books.

Now, how might apply this to all my forms using a Public Function. That is however my goal.

Public Sub ListBoxProperties(frm As Form)

    Dim ctl As Control

    Set frm = Me

     For Each ctl In frm.Controls

         If ctl.ControlType = acListBox Then

            ctl.FontName = "Arial"

         End If

     Next ctl

End Sub

Answer 3

omg i´m so sorry!

If ctl.ControlType = acListBox Then

            ctl.FontName = "Arial"

         End If

you want to check the controltype so you have to use ctl.ControlType

Sorry, i should have seen this at the beginning.

---

Cheers, Jörn Bosse

Microsoft Studentpartner

Answer 4

Same error message (2465). If frm.ControlType... is highlighted.

Answer 5

Now use this code instead of msgbox ctl.cname

         If frm.ControlType = acListBox Then

            ctl.FontName = "Arial"

         End If

---

Cheers, Jörn Bosse

Microsoft Studentpartner