Discussion :

[Flow56]

Bonjour,

Je cherche à numéroter mes enresgistrements dans un formulaire.

J'ai pensé à mettre ma clé primaire comme numero d'enregistrement mais quand on supprime un enregistrement, le numeros de la clé primaire associée est aussi supprimé

Quelqu'un connaît un astuce?

[francishop]

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 :

Code :

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

=NombreLigne([Formulaire];"NumEval";[NumEval])

Et dans un module :

Code :

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

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.