Historique et control type

Bonsoir

J'ai trouvé dans les forums les routines pour créer une table contenant
les modifications apportées dans une autre table.
Cette routine ne mémorise que les modifications sur 3 types de contrôle
, n° 106,109 et 111.

Question: Ou trouver la liste de ces numéros de controle ?

merci

-
If Me.Dirty = True Then
frmAJouterHistorique Me
End If



Sub frmAJouterHistorique(frm As Form)
'
'control type 106 checkbox
' 109 textbox
' 111 combo

On Error Resume Next


For Ctr = 0 To frm.Controls.Count - 1
If frm.Controls(Ctr).ControlType = 106 Or frm.Controls(Ctr).ControlType
= 109 Or frm.Controls(Ctr).ControlType = 111 Then

If frm.Controls(Ctr).Value <> frm.Controls(Ctr).OldValue Then
Dim T_Historique As Recordset

SetT_Historique=CurrentDb.OpenRecordset("FICHIERHISTO",DB_OPEN_TABLE)
T_Historique.AddNew
T_Historique("NomTable") = frm.RecordSource
T_Historique("NomChamp") = frm.Controls(Ctr).Name
T_Historique("AncienneValeur") = frm.Controls(Ctr).OldValue
T_Historique("NouvelleValeur") = frm.Controls(Ctr).Value
T_Historique("DateHeure") = Now
T_Historique.Update
T_Historique.Close
End If
End If
Next


End Sub
'