Discussion :

[jmde]

Bonjour,

J’ai besoin d’un petit coup de main au sujet du Tutoriel formulaires pseudo continus (Repousser les limites des formulaires en mode continu)

http://cafeine.developpez.com/access...pseudocontinu/

Je voudrais utiliser le code « DemultiplierSource » pour créer une table continu mais en le modifiant le code pour que :

Dans champ Nom0 mettre tous les Noms dont le champ Code = A, dans champ Nom1 mettre tous les Noms dans le champ Code = B, et ainsi de suite.

Salutations

[cafeine]

Bonjour,

J’ai besoin d’un petit coup de main au sujet du Tutoriel formulaires pseudo continus (Repousser les limites des formulaires en mode continu)

http://cafeine.developpez.com/access...pseudocontinu/

Je voudrais utiliser le code « DemultiplierSource » pour créer une table continu mais en le modifiant le code pour que :

Dans champ Nom0 mettre tous les Noms dont le champ Code = A, dans champ Nom1 mettre tous les Noms dans le champ Code = B, et ainsi de suite.

Salutations

Hello,

merci d'avoir jeté un coup d'oeil à mon tuto ...
Sache tout d'abord que la gestion des formulaires continus a été revue dans Office 12 (2007 ?) et qu'il sera possible sans tout ce code étrange d'obtenir le même résultat.
Ensuite, je ne comprends pas ce que tu souhaites avoir ...
Mon tuto ne fait que démultiplier des enregistrements ... ce que tu souhaites ressemble plus à un tableau croisé dynamique ...

[jmde]

Bonjour,

C’est exact, mais c’est aussi et surtout pour me familiariser avec toutes ces lignes de code.

Donc sans vouloir abuser de ton temps peux-tu maider ?

J’ai réussi à faire le premier passage en fonction de l’année (en rouge les lignes ajoutées)

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
'---Premier passage recopie les champs en fonction de l'année
intNb = 4

'   Nom de l'enregistrement 1 sera Nom0 de l'enregistrement 1
    If Not recSource.EOF Then
        recSource.MoveFirst
    Do While Not recSource.EOF
            If Year(recSource!DateNaissance) = "1990" Then            
          recDest.AddNew
                For J = 0 To recSource.Fields.Count - 1
                    If Len(recSource.Fields(J)) > 0 Then
                        recDest.Fields(J) = recSource.Fields(J)
                    Else
                        recDest.Fields(J) = 0
                    End If
                Next J
            recDest.Update
            End If            
        recSource.MoveNext
        Loop

Pour le deuxième passage pas de problème et lorsque les enregistrements de premier passage sont inférieur au deuxième j’intercepte l’erreur 3021 et je rajoute les enregistrements (en rouge les lignes ajoutées)


'

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
41
42
43
44
---Passage suivants 
        For I = 1 To intNb - 1
              recSource.MoveFirst
              recSource.Move I
              recDest.MoveFirst
        Do While Not recSource.EOF
           If Year(recSource!DateNaissance) = "2000" Then
'---la méthode Edit rend modifiable l'enregistrement
    recDest.Edit
        If Not recDest.EOF Then            
        For J = 0 To recSource.Fields.Count - 1
               If Len(recSource.Fields(J)) > 0 Then
                    recDest.Fields(J + (I * recSource.Fields.Count)) = recSource.Fields(J)
        Else
             recDest.Fields(J + (I * recSource.Fields.Count)) = 0
               End If
            Next J
    Else
    recDest.AddNew
         For J = 0 To recSource.Fields.Count - 1
             If Len(recSource.Fields(J)) > 0 Then
                    recDest.Fields(J + (I * recSource.Fields.Count)) = recSource.Fields(J)
        Else
             recDest.Fields(J + (I * recSource.Fields.Count)) = 0
               End If
            Next J
    
         End If         
'---la méthode Update sauvegarde les modifications
        recDest.Update
        recDest.MoveNext
        End If
        recSource.MoveNext
        Loop
    Next I
       End If


DS01:
Select Case err.Number
    Case 3010
        Resume Next
    Case 3021
        Resume Next

Par contre pour les autres passage qui concerne l’année 2001 et 2002 je n’y arrive pas.

If Year(recSource!DateNaissance) = "2001" Then

Peux-tu stp me donner quelques explications sur cette ligne :
recDest.Fields(J + (I * recSource.Fields.Count)) = recSource.Fields(J)

Salutations.