Discussion :

[sakia]

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!!!
Pour cela j'ai essayé le code suivant mais ça marche pas!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sakia]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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'