Discussion :

[Ataturk]

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

[Lou Pitchoun]

Salut,

Tu n'as pas déclaré chaine. Tu veux y conserver quoi ?

Une fois que tu fais ton

Code :

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

rs.FindLast strCritere

Il faut que tu fasses :

Code :

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

ValeuraRecuperer = rs![NomChamp]

[Ataturk]

Oui c'est ce que l'erreur m'as dis lors que j'ai "bricolé" le code.

J'ai continué à chercher le soir...

...Et j'ai pu trouvé mon bonheur avec plusieurs exemple.

le code final donne ça
Je le post au cas où cela pourrait etre utile à d'autre

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
39
40
 
Private Sub Form_Load()
    Dim rs As DAO.Recordset
    TypeDoc = "DER"
 
'Test si c'est un nouvel enregistrement (Clef NumAuto "vide")
    If IsNull(Me.NumId.Value) = True Then
'Initialisation de l'entête de codification
            AnneeId = Right(Year(Date), 1)
            If Month(Date) < 10 Then
                    MoisId = "0" & Month(Date)
                Else
                    MoisId = Month(Date)
            End If
        DepartId = "33AB" & AnneeId & MoisId
'Recherche du dernier N° d'identification 
       Set rs = CurrentDb.OpenRecordset(Me.RecordSource, dbOpenSnapshot)
        rs.MoveLast
'Test si changement de mois ou année si oui départ à 1 sinon incrément
        If DepartId = Left(rs!NumIdDER, 7) Then
                TermId = Right(rs!NumIdDER, 3) + 1
                Select Case Len(TermId)
                    Case 1
                        TermId = "00" & TermId
                    Case 2
                        TermId = "0" & TermId
                    Case 3
                        TermId = TermId
                    End Select
            Else
                TermId = "001"
        End If
 
'Enregistrement final dans le contrôle
        Me.NumIdDER.Value = DepartId & TypeDoc & TermId
        Me.Refresh
        rs.Close
        Set rs = Nothing
    End If
End Sub

Merci de votre aide @+