Discussion :

[lacsaphumble2012]

Bonjour à l'ensemble des membres du forum,
J’ai créé un identifiant qui fait la concaténation du numéro utilisateur qu’il ajoute plus 1 à chaque enregistrement après avoir vérifié ce que contient la table tblOP.
Ci-joint en image le résultat obtenu :

ID	NumUtil
101020202011	10102020201
101020202012	10102020201
101020202013	10102020201
101020202014	10102020201

Le code utilisé pour obtenir le résultat en image est

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
 
Private Sub txtOP1_Change()
    Dim lgne As Recordset
    Dim bd As Database
    Dim i As Long
    Set bd = Application.CurrentDb
    Set lgne = bd.OpenRecordset("SELECT * FROM tblOP", dbOpenDynaset)
    If lgne.EOF Then
        FindRecordCount = 0
        i = FindRecordCount + 1
        Me.IDOP = Me.NumUtil & i
    Else
        lgne.MoveLast
        FindRecordCount = lgne.RecordCount
        i = FindRecordCount + 1
        Me.IDOP = Me.NumUtil & i
    End If
    lgne.Close
    bd.Close
    Set lgne = Nothing
    Set bd = Nothing
End Sub

Tout se passe bien, mais lorsque nous venons à supprimer un enregistrement les difficultés commencent à surgir avec des cas de doublons et les enregistrements ne marchent plus.
Je viens vers vous pour m’aider à résoudre ce problème.

[loufab]

Bonjour,

Tu devrais commencer par l'indenter (c'est un minium avant de poster)

Ton code fait réellement ce que tu décris ? Je suis perplexe.
Que contient tblOp ?

Cordialement,