[AccessD] Iterating Thorugh Controls

Hi Rocky

I use this code to make my form in multiple user languages.
Id do iterate trough tabs but not subforms.
A subform, in my case, runs this procedure also when loading...
Look in the code for the case "tabstrip"

Greetz
Erwin


For Each ctl In varFrm.Controls
        'Set ctl.Font = fnt
        
        strSCtlType = TypeName(ctl)
        Select Case strSCtlType
            Case "Label"
                ctl.Caption = LoadResString(CLng(ctl.Tag), ,
varLanguage_Lid)
                ctl.ControlTipText =
LoadResString(CLng(ctl.ControlTipText), , varLanguage_Lid)
                
            Case "Menu"
                ctl.Caption = LoadResString(CLng(ctl.Caption), ,
varLanguage_Lid)
                
            Case "TabStrip"
                For Each obj In ctl.Tabs
                    obj.Caption = LoadResString(CLng(obj.Tag), ,
varLanguage_Lid)
                    obj.Tooltiptext =
LoadResString(CLng(obj.Tooltiptext), , varLanguage_Lid)
                    obj.StatusBarText =
LoadResString(CLng(obj.StatusBarText), , varLanguage_Lid)
                Next
                
            Case "Toolbar"
                For Each obj In ctl.Buttons
                    obj.Tooltiptext =
LoadResString(CLng(obj.Tooltiptext), , varLanguage_Lid)
                Next
                
            Case "ListView"
                For Each obj In ctl.ColumnHeaders
                    obj.text = LoadResString(CLng(obj.Tag), ,
varLanguage_Lid)
                Next
                
            Case Else
                lngNVal = Val(ctl.Tag)
                If lngNVal > 0 Then
                    ctl.Caption = LoadResString(lngNVal, ,
varLanguage_Lid)
                End If
                lngNVal = 0
                lngNVal = Val(ctl.Tooltiptext)
                If lngNVal > 0 Then
                    ctl.Tooltiptext = LoadResString(lngNVal, ,
varLanguage_Lid)
                End If
                lngNVal = Val(ctl.ControlTipText)
                If lngNVal > 0 Then
                    ctl.ControlTipText = LoadResString(lngNVal, ,
varLanguage_Lid)
                End If
                lngNVal = Val(ctl.StatusBarText)
                If lngNVal > 0 Then
                    ctl.StatusBarText = LoadResString(lngNVal, ,
varLanguage_Lid)
                End If
        End Select
        
        'Check for unfilled tags  or missing in resource
        ctl.Caption = LoadResString(CLng(ctl.Tag), , varLanguage_Lid)
        ctl.ControlTipText = LoadResString(CLng(ctl.ControlTipText), ,
varLanguage_Lid)
        
    Next
     

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Saturday, June 12, 2004 6:48 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Iterating Thorugh Controls

Never mind.  Figured it out.

Rocky

----- Original Message -----
From: "Rocky Smolin - Beach Access Software" <bchacc at san.rr.com>
To: <AccessD at databaseadvisors.com>
Sent: Saturday, June 12, 2004 9:03 AM
Subject: [AccessD] Iterating Thorugh Controls


Dear List:

I am iterating through the control collection on a form in a public
procedure to which I pass the name of the form.  The form has a tab form
on
it and the controls don't seem to come up. Same with the sub-form on a
page
of the tab control.

Is there a particular syntax I need to iterate these controls?

MTIA,

Rocky Smolin
Beach Access Software
http://www.e-z-mrp.com


-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com