Discussion :

[Glherbier]

Bonjour,

Je chercher à faire quelque chose de simple, à savoir une requête SQL qui recopie dans une table différente des données en evitant les doublons, en utilisant des recordset.

Je cherche pour l'instant à sélectionner une plage de données et à l'insérer dans un recordset, mais je ne comprends pas seulement la première donnée est insérée dans le recordset, qui ne contient qu'un champ!

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
 
private Sub MAJ_Demandeur()
 
Dim db As DAO.Database
Dim rst_Demandeur As DAO.Recordset
Dim SQL_Demandeur As String
Dim rcd As DAO.Recordset
 
Set db = CurrentDb
 
Set rcd = db.OpenRecordset("SELECT Pays FROM T_EBC1")
 
'Boucles de test, le second msgbox retourne le message "objet requis" !
If rcd.EOF Then MsgBox "Erreur" Else MsgBox rcd.Fields(0).Value
     rst.MoveNext
If rcd.EOF Then MsgBox "Erreur" Else MsgBox rcd.Fields(1).Value
 
rcd.Close
rcd = Nothing
 
End Sub

Merci, c'est frustrant.

[Lorenzole+bo]

Bonjour,

Voilà déjà la boucle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'On attache les tables à la variable table
Set rstTblTemp_1 = CurrentDb.OpenRecordset("TblTemp_1", dbOpenDynaset)
Set rstTblFinal_1 = CurrentDb.OpenRecordset("TblFinal_1", dbOpenDynaset)
 
    rstTblTemp_1.MoveFirst
        Do While Not rstTblTemp_1.EOF
            rstTblFinal_1.AddNew
                    rstTblFinal_1!Champ1 = rstTblTemp_1! Champ1
                    rstTblFinal_1! Champ2 = rstTblTemp_1! Champ2
                    rstTblFinal_1! Champ3 = rstTblTemp_1! Champ3
                rstTblFinal_1.Update
            rstTblTemp_1.MoveNext
        Loop

Bonne soirée

[Glherbier]

Merci, ça marche bien.

Je met mon code par la suite pour ceux qui tomberont sur le topic avec ce genre de problème.

Par contre, j'ai une question simple, comment faire une requête SELECT sur un string? Comment faut il le mettre en forme? Par exemple

Code :

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

 Set rstT_Programme = CurrentDb.OpenRecordset("SELECT * FROM T_Programme WHERE T_Programme.Nom = '" Francis "' ")

ne marche pas! Comment faut-il mettre en forme ce " T_Programme.Nom = '" Francis "' " ?

Merci beaucoup!

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
45
 Dim db As DAO.Database
Dim rstT_Demandeur, rstT_EBC1 As DAO.Recordset
Dim a As Boolean
 
Set db = CurrentDb
a = False
 
'On attache les tables à la variable table
Set rstT_EBC1 = CurrentDb.OpenRecordset("T_EBC1", dbOpenDynaset)
Set rstT_Programme = CurrentDb.OpenRecordset("T_Programme", dbOpenDynaset)
 
'Mise à jour des champs de nom
Do While Not rstT_EBC1.EOF
        ' Si le champ Nom de l'EBC est nul on passe à la case suivante, sinon
        'on parcourt la table demandeur pour voir si le nom existe déja.
        ' A noter que les colonnes de programme sont programme, origine, pays, demandeur, budget, budget oui/non,
        'les colonnes numéro 5, 3, 4, 13,
   If IsNull(rstT_EBC1.Fields(5)) = False Then
 
        If rstT_Programme.RecordCount > 0 Then
            rstT_Programme.MoveFirst
         Do While (Not rstT_Programme.EOF) And a = False
              If rstT_Programme.Fields(0).Value = rstT_EBC1.Fields(5).Value Then a = True Else rstT_Programme.MoveNext
         Loop
  End If
       'Si le nom n'existe pas, autrement dit a = False, on l'insère
         If a = False Then
           rstT_Programme.AddNew
          rstT_Programme.Fields(0).Value = rstT_EBC1.Fields(5).Value
           rstT_Programme.Fields(1).Value = rstT_EBC1.Fields(3).Value
          rstT_Programme.Fields(2).Value = rstT_EBC1.Fields(4).Value
          rstT_Programme.Fields(3).Value = rstT_EBC1.Fields(13).Value
          rstT_Programme.Update
         End If
    End If
    a = False
    rstT_EBC1.MoveNext
Loop
 
'Fermeture des objets
rstT_EBC1.Close
rstT_Programme.Close
 
Set rstT_EBC1 = Nothing
Set rstT_Programme = Nothing

[Invité]

Essaies ceci:

Code :

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

OpenRecordset ("Select * From T_Programme Where T_Programme.Nom Like 'Francis' "