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