Bonsoir,
Le champ clef répond au doux nom de :NumEval
Alors dans un formulaire, qu'il soit au sommet ou en qualité de sous formulaire, on ajoute un champ avec pour source :
=NombreLigne([Formulaire];"NumEval";[NumEval])
Et dans un module :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Function NombreLigne(Frm As Form, NomClef As String, _
ClefValue As Variant) As Long
Dim Rs As Object
Dim ComptLigne As Integer
On Error GoTo Err_NombreLigne
Set Rs = Frm.Recordset.Clone
Select Case Rs.Fields(NomClef).Type
Case dbText, dbMemo, dbChar, dbByte
Rs.FindFirst "[" & NomClef & "] = '" & ClefValue & "'"
Case Else
Rs.FindFirst "[" & NomClef & "] = " & ClefValue
End Select
Do Until Rs.BOF
ComptLigne = ComptLigne + 1
Rs.MovePrevious
Loop
Sortie_NombreLigne:
NombreLigne = ComptLigne
Exit Function
Err_NombreLigne:
ComptLigne = 0
Resume Sortie_NombreLigne
End Function |
Cordialement.
Partager