Re

Suite a mon premier message

http://www.developpez.net/forums/sho...d.php?t=290237

J'ai essayé de comprendre la manipulation de DAO mais je rame à mort

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
    Dim strCritere As String
    TypeDoc = "DER"
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
 
    If IsNull(Me.NumId.Value) = True Then
            If Right(Year(Date), 2) < 10 Then
                    AnneeId = Right(Year(Date), 1)
                Else
                    AnneeId = Right(Year(Date), 2)
            End If
            If Month(Date) < 10 Then
                MoisId = "0" & Month(Date)
            Else
                MoisId = Month(Date)
            End If
 
    strCritere = "NumId" & TypeDoc & " LIKE " & "33AB" & AnneeId & MoisId & "*"
    rs.FindLast strCritere
 
'C'est à partir d'ici que ça coince :/   
 
 Chaine = rs.FindLast strCritere
 
    If Me.Recordset.NoMatch Then
            'Msgbox "Aucun enregistrement n'a été trouvé"
            TermIdIc = "001"
            GoTo DebutMois
        Else
  '          TermIdBefore = Rigth(Chaine;3)
 
            TermId = TermIdBefore + 1
    End If
DebutMois:
        Me.NumIdDER.Value = "33AB" & AnneeId & MoisId & TypeDoc & TermId
    End If
C'est à dire que je ne sais pas comment "mémorisé" ou récupérer la valeur du dernier numéro (chaine) généré.

Merci de vos aides