MS ACCESS: controls type code

 Dim ctlControlloCorrente As Control
Set ctlControlloCorrente = Screen.ActiveControl
 ctlControlloCorrente.ControlType


'126 - acAttachment
  
'108 - acBoundObjectFrame
  
'106 - acCheckBox
  
'111 - acComboBox
  
'104 - acCommandButton
  
'119 - acCustomControl
  
'103 - acImage
  
'100 - acLabel
  
'102 - acLine
  
'110 - acListBox
  
'114 - acObjectFrame
  
'105 - acOptionButton
  
'107 - acOptionGroup
  
'124 - acPage
  
'118 - acPageBreak
  
'101 - acRectangle
  
'112 - acSubform
  
'123 - acTabCtl
  
'109 - acTextBox
  
'122 - acToggleButton