Bonjour à tous, je suis débutant, je précise.
Je cherche depuis plusieurs jours, un peu partout d'ou vient le probleme dans mon code VBA.
Mon cheminement est le suivant:
* A chaque enregistrement je copie les données dans une table "T_Commandes"
* Ensuite je supprime la Table sur laquelle est basée mon sous formulaire, pour la remplir de nouveau avec les nouvelles données (sans les données copiées sur la table "T_commandes".
* Et enfin j'essaye de mettre à jour les enregistrements de mon formulaire/sous formulaire et la paf , erreur, il me dit qu'il n y a pas d'enregistrement.
Si je fais afficher tous les enregistrements tout redevient nickel.
Voici le code que j'utilise :
Merci pour votre aide
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 Private Sub Commande61_Click() 'sauvegarde dans T_commandes_stables_a_valider DoCmd.RunCommand acCmdSaveRecord 'exectute la RQ ajout dans T_commandes Dim db As DAO.Database Dim ess As DAO.Recordset Dim rqMaQuery As QueryDef Dim i As Integer Set db = CurrentDb Set rqMaQuery = db.QueryDefs("A_RQ_Commandes") 'Nom de ta requête ajout rqMaQuery.Execute 'Maj Sous formulaire CurrentDb.Execute "DELETE * FROM [T_Commandes_stables_a_valider];" Set rqMaQuery = db.QueryDefs("A_Commandes_stables_a_valider") 'Nom de ta requête ajout rqMaQuery.Execute 'raffraichi le formulaire Forms("F_Commandes_stables_a_valider").Controls("FS_Commandes_stables_a_valider").Form.Requery End Sub
Partager