Access.2007.VBA.Bibl..

Case acListBox

strPrefix = “lst”

i = ControlCS(pctl, strPrefix, blnTag)

Case acOptionGroup

strPrefix = “fra”

i = ControlCS(pctl, strPrefix, blnTag)

Case acOptionButton

strPrefix = “opt”

strControlSource = pctl.ControlSource

If blnUnbound = False Then

i = ControlCS(pctl, strPrefix, blnTag)

Else

i = ControlNA(pctl, strPrefix, blnTag)

End If

Controls with caption only

Case acToggleButton

strPrefix = “tgl”

i = ControlCA(pctl, strPrefix, blnTag)

Case acLabel

strPrefix = “lbl”

i = ControlCA(pctl, strPrefix, blnTag)

Case acCommandButton

strPrefix = “cmd”

i = ControlCA(pctl, strPrefix, blnTag)

Controls with source object only

Case acSubform

strPrefix = “sub”

i = ControlSO(pctl, strPrefix, blnTag)

Controls with none of the above

Case acObjectFrame

strPrefix = “fru”

i = ControlNA(pctl, strPrefix, blnTag)

Case acImage

strPrefix = “img”

i = ControlNA(pctl, strPrefix, blnTag)

Case acTabCtl

strPrefix = “tab”

i = ControlNA(pctl, strPrefix, blnTag)

Part III Adding More Functionality to Office