Discussion :

[anthony_rexis]

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:

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

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.

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.

[Maxi-môme]

Pour ne pas afficher le premier message tu peux faire un

Code :

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

1
2
 
DoCmd.SetWarnings False

au debut de ta fonction.

Le deuxieme message indique que tu veux inserer des enregistrements qui ont la meme valeur pour une clé primaire, vérifie bien tes tables.