Incrémenter un champ NuméroAuto par code

Salut
Je me demande comment puis je incrimenter un champ par code; mais il s'agit d'une incrémentation qui dépend du critère d'un autre champ.
ex. si je saisis dans le champ type: Table ; dans le champ numéro: 1
et si je saisis type: chaise; dans le champ numéro : 1 tjrs
jusqu'à ce que l'utilisateur saisira : type: table à la deuxième fois; le champ numéro prendra là: 2. c à d suivant le nbre de fois que le type table a été choisi.
désolé je sais pas si j'ai éclairci le problème!!!:oops:
Pour cela j'ai essayé le code suivant mais ça marche pas!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Ref_type_AfterUpdate() Dim res As Recordset Dim val As Integer Set res = CurrentDb.OpenRecordset("SELECT * FROM Equipements WHERE [Ref_type] = "" & me.Ref_type & """)   While Not res.EOF res.MoveNext Wend   MsgBox res.RecordCount val = res.RecordCount Me.Num_Serie_Mat.DefaultValue = val + 1 End Sub

---

Code:

---

1 2 3 4

Dim val As Variant val = DCount("MP_MAT", "Equipements", "MP_MAT="" & me.MP_MAT & """) + 1 MsgBox val Me.Num_Serie_Mat.Value = val

---

me reste juste comment puis-je récupérer la valeur actuel de la zone de texte 'me.MP_MAT'