Bonjour,
Je voudrais faire un enregistrement dans plusieurs tables en même temps à partir d'un seul bouton présent sur un formulaire. J'utilise le code suivant:
En cliquant sur le bouton présent sur le formulaire, après avoir remplis les différents champs, une erreur survient et je ne comprends pas pourquoi car l'ajout se fais bien dans les deux tables. Vous trouverez les messages d'erreurs en pièces jointes. Ce code fait bien ce que je veux mais les messages d'erreur sont assez génant.
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 Private Sub Commande30_Click() On Error GoTo Err_Commande30_Click DoCmd.GoToRecord , , acNewRec DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 Dim requete As String requete = "INSERT INTO JonctionMacLogic(JonctionMacLogic_nommachine, JonctionMacLogic_nomlogiciels) SELECT tblicences.tblicences_nommachines, tblicences.tblicences_nomlogiciels FROM tblicences;" DoCmd.RunSQL (requete) Exit_Commande30_Click: Exit Sub Err_Commande30_Click: MsgBox Err.Description Resume Exit_Commande30_Click End Sub
Dans le premier message d'erreur, il est écris que je veux enregistrer 4 lignes alors que l'enregistrement ne concerne qu'une seule ligne mais dans 2 tables. Si je continue de faire des enregistrements, le nombre de ligne indiqué dans le message d'erreur s'incrémente.
Par avance merci.
Partager