Problème requête SELECT condition WHERE string
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:
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.
Problème requête SELECT [basique]
Bonjour,
Voilà déjà la boucle :
Code:
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 ;)
