VB 7 Looping thru Controls

Question

I am running Win 7 (64-bit) with Office 2010 (VB 7).

I have some code that loops thru all controls in a form and does some stuff. 

This was working fine in XP with Office 2007. 

This code now throws type mismatch error at the For each.... line. 

    For Each ctlControl In Controls
        If TypeName(ctlControl) = "CheckBox" Then
            If ctlControl.Name <> chkAll.Name Then
                If ctlControl.Value = True Then
                    Call doProc(ctlControl.Caption)
                End If
            End If
        End If
    Next ctlControl

I have not included any dependencies except remove DAO and added Microsoft Access 14.0 Object Library.

I am at a loss to understand why this would not work. Any help would be greatly appreciated. 

Thanks.

Answer 1

This forum is about the .Net based standalone versions of Visual Basic. Please have a look at this forum instead:
http://social.msdn.microsoft.com/Forums/en-US/worddev/threads

(I think there you should also mention how ctlControl is declared. If it's CheckBox, if fails if there are not only checkboxes on the Form)

EDIT: Sorry, doesn't have to be Word. Can be any other Office product, too, but I think you find it from the given link.

---

Armin

Answer 2

If you were looking for a .Net solution:

        For Each FormControl As Control In Me.Controls
            If TypeOf (FormControl) Is CheckBox Then
                If Not (FormControl.Name = chkAll.Name) Then
                    If DirectCast(FormControl, CheckBox).Checked = True Then
                        'Do Your Stuff Here
                    End If
                End If
            End If
        Next

Answer 3

I am running Win 7 (64-bit) with Office 2010 (VB 7).

I have some code that loops thru all controls in a form and does some stuff. 

This was working fine in XP with Office 2007. 

This code now throws type mismatch error at the For each.... line. 

Dim ctlControl As Control

    For Each ctlControl In Controls
        If TypeName(ctlControl) = "CheckBox" Then
            If ctlControl.Name <> chkAll.Name Then
                If ctlControl.Value = True Then
                    Call doProc(ctlControl.Caption)
                End If
            End If
        End If
    Next ctlControl

I have not included any dependencies except remove DAO and added Microsoft Access 14.0 Object Library.

I am at a loss to understand why this would not work. Any help would be greatly appreciated. 

Thanks.

• Reply 
• Quote

Answer 4

Thanks, I posted it in the right place. Sorry I did not realize it.

Answer 5

Thanks, it is not .NET.

I had posted in the wrong forum. My bad.

Answer 6

The declaration ... As Control has become ambiguous because Control is a Forms object, but also an Access object.

To remove the ambiguity, declare ctlControl as follows:

Dim ctlControl As MSForms.Control

---

Regards, Hans Vogelaar

Answer 7

Thanks Hans that worked.