Discussion :

[pierre22]

Bonjour
Voici mon code de béotien pour recopier dans une table le résultat d’une requete.
La condition d’entrée fonctionne et la copie se passe bien.
Mais à la condition de sortie j’ai un message d’erreur « impossible de mettre à jour le recordset » Le code plante sur le LOOP pourtant mon formulaire contrôle1 est à jour.
Si quelqu'un à une idée sur ce recordset.
Merci

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
 
DoCmd.OpenForm "controle1"
 
Do While Forms![controle1]![autoo] = "oui"
    DoCmd.OpenForm "source saisie"
    stDocName = "osp"
    DoCmd.RunMacro stDocName
 
    Do
      Forms![saisie1]![charge] = Forms![source saisie]![charge]
      Forms![saisie1]![mois année] = Forms![source saisie]![mois année]
      Forms![saisie1]![nom salarié] = Forms![source saisie]![nom salarié]
      DoCmd.GoToRecord acDataForm, "source saisie", acNext
      DoCmd.GoToRecord acDataForm, "saisie1", acNewRec
    Loop Until Forms![source saisie]![charge] = "stop"
 
    DoCmd.Close acForm, "source saisie"
    DoCmd.Close acForm, "saisie1"
    DoCmd.Close acForm, "controle1"
    DoCmd.OpenForm "controle1"
Loop
 
Forms![controle1]![autoo] = "non"
DoCmd.Close acForm, "controle1"
 
Exit Sub

[argyronet]

Bonjour,

Votre problème est lié à un verrouillage (impossible de mettre à jour le recordset)

Pour mettre dans une table le résultat d'une requête, il suffit d'exécuter un INSERT...

Code :

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

CurrentDB.Execute SQL, dbFailOnError

où SQL représente la chaîne SQL d'une requête soit par exemple :

Code :

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

1
2
3
4
Dim SQL As String
SQL = "INSERT INTO MaTableDestination (Champ1, Champ2, Champn) "
SQL = SQL & "SELECT Champ1, Champ2, Champn FROM MaTableSource WHERE ChampCondition =" & UneCondition & ""
CurrentDB.Execute SQL, dbFailOnError

Vous pouvez, si ce code vous fait "peur", construire une requête Action et l'exécuter avec un

Code :

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

DoCmd.OpenQuery....

Argy