Discussion :

[guadian]

Bonjour,

Je souhaiterai savoir comment on peut insérer le contenu d'une requête dans une instruction INSERT INTO. Voici mon exemple

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 Function Exclusion_NIP()
 
    Set DB1 = DBEngine(0)(0)
    Set RS1 = DB1.OpenRecordset("essaiRequete")
    Set RS2 = DB1.OpenRecordset("essaiRequete")
 
    RS1.MoveFirst
    RS2.MoveFirst
 
    Do Until RS1.EOF
        Do Until RS2.EOF
            'Si les 2 NIP ne sont pas identiques Alors
            If Trim(RS1.Fields("NIP")) <> Trim(RS2.Fields("NIP")) Then
                    SQL = "INSERT INTO tb_Resultat_1 ( nip, ngs ) " & _
                                 "VALUES (.........)"
 
               DoCmd.RunSQL SQL
 
               'Ensuite on passe à l'enregistrement suivant
               RS2.MoveNext
 
               'Sinon Si les 2 NIP sont identiques Alors
               ElseIf Trim(RS2.Fields("NIP")) = Trim(RS1.Fields("NIP")) Then
                    SQL = "INSERT INTO tb_SauvegardeTemporaire ( [NumOperationTransfert] ) " & _
                                "VALUES ('test')"
 
                    DoCmd.RunSQL SQL
 
                    'Ensuite on passe à l'enregistrement suivant
                    RS2.MoveNext
            End If
        Loop
        RS2.MoveFirst
        RS1.MoveNext
    Loop
 
    RS1.Close
    RS2.Close
 
End Function

La ou il y a des ....., c'est la que j'ai besoin de vous
Merci d'avance

[philben]

bonjour,

une solution consiste à utiliser la cardinalité :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Exclusion_NIP()
 
SQL = "INSERT INTO tb_Resultat_1 (nip, ngs) " & _
         "SELECT ER1.NIP, ER2.NIP FROM essaiRequete as ER1, " & _ 
        "essaiRequete As ER2 WHERE ER1.NIP<>ER2.NIP;"
DoCmd.RunSQL SQL
 
SQL = "INSERT INTO tb_SauvegardeTemporaire  ([NumOperationTransfert]) " & _
        "SELECT 'test' As T FROM essaiRequete as ER1, " & _ 
        "essaiRequete As ER2 WHERE ER1.NIP=ER2.NIP;"
DoCmd.RunSQL SQL
 
End Sub

sauf erreur car écrit à la volée,

cordialement,

Philippe