Bonjour !
Voici d'abord mon code ...
' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
' Charger les Types de champs
' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
CboTypeChamps.AddItem "dbBoolean" ' 1 Oui/Non
CboTypeChamps.AddItem "dbByte" ' 2 Octet
CboTypeChamps.AddItem "dbInteger" ' 3 Entier
CboTypeChamps.AddItem "dbLong" ' 4 Entier long
CboTypeChamps.AddItem "dbCurrency" ' 5 Monétaire
CboTypeChamps.AddItem "dbSingle" ' 6 Réel Msg
CboTypeChamps.AddItem "dbDouble" ' 7 Réel double
CboTypeChamps.AddItem "dbDate" ' 8 Date
CboTypeChamps.AddItem "dbBinary" ' 9 Binaire
CboTypeChamps.AddItem "dbText" ' 10 Texte 1
CboTypeChamps.AddItem "dbLongBinary" ' 11 Binaire long(OLE Object)(Image)
CboTypeChamps.AddItem "dbMemo" ' 12 Mémo
CboTypeChamps.AddItem "" ' 13
CboTypeChamps.AddItem "" ' 14
CboTypeChamps.AddItem "dbGUID" ' 15 GUID
CboTypeChamps.AddItem "dbBigInt" ' 16 Numérique HP
CboTypeChamps.AddItem "dbVarBinary" ' 17 Binaire Var
CboTypeChamps.AddItem "dbChar" ' 18 Texte 2
CboTypeChamps.AddItem "dbNumeric" ' 19 Numérique
CboTypeChamps.AddItem "dbDecimal" ' 20 Décimal
CboTypeChamps.AddItem "dbFloat" ' 21 Flottant
CboTypeChamps.AddItem "dbTime" ' 22 Heure
CboTypeChamps.AddItem "dbTimeStamp" ' 23 heure
CboTypeChamps.ListIndex = 10
Ma question !
Deux inconnus, le 13 et le 14 !
Qui saura comblé ce trou ...
seul celui qui reconnait ses fautes, Progress ..._bar
Galactus le Vrai !