Discussion :

[Youpikai]

Bonjour,

J'ai un petit problème que je n'arrive pas à résoudre et qui me pose énormément de soucis. J'ai une table SITES contenant des entreprises, celles-ci disposent d'un ID en auto-incrément.
Lorsqu'on crée un nouveau site, un nouvel ID se crée, jusqu'à, il n'y a aucun soucis. Je voudrais que cet ID se copie sur 3 autres tables (table RESULTAT, MEMO et CLIENT) automatiquement, sans avoir besoin de copier l'ID dedans. La relation est de 1 (SITES) à Plusieurs (RESULTAT, MEMO et CLIENT) car il peut y avoir qu'un seul site mais plusieurs résultats, mémo ou clients pour ce site.

J'ai essayé de me renseigner sur Internet mais impossible de trouver une bonne solution ( que cela soit en requête ou en VBA ). Si vous avez une solution, n'hésitez pas à m'en faire part car cela m'embête très fortement. Cela marche avec un formulaire + sous-formulaire, ce qui est logique mais il faut que cela agisse sur 3 sous-formulaires en même temps.

Merci pour vos futures réponses.

[Jean-Philippe André]

Salut,

mais tes autres tables contiennent d'autres champs, non ? Comment et avec quoi les alimente-t-on ?

Sinon pour recuperer le numero cree lors de l'insertion, j'utilise une structure de code similaire a celle-ci

Code :

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

1
2
3
4
5
6
Dim RS as New ADODB.Recordset 'ou DAO
RS.Open '...
RS.AddNew
'...
RS.Update
Msgbox "Nouvel ID : " & RS.Fields("ID").Value

[accessisgood]

Bonjour,

tu peux aussi utiliser une macro de donnees [Apres Insertion] sur la table SITE, qui creera les 3 enregistrements souhaites
Note: pour tes 3 tables, il faut que le pre-remplissage des champs obligatoire soit a jour

[Youpikai]

Salut,

mais tes autres tables contiennent d'autres champs, non ? Comment et avec quoi les alimente-t-on ?

Sinon pour recuperer le numero cree lors de l'insertion, j'utilise une structure de code similaire a celle-ci

Code :

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

1
2
3
4
5
6
Dim RS as New ADODB.Recordset 'ou DAO
RS.Open '...
RS.AddNew
'...
RS.Update
Msgbox "Nouvel ID : " & RS.Fields("ID").Value

Mes autres tables contiennent bien d'autres informations. C'est une relation père/fils entre la table sites (père) et les 3 autres tables (fils).

Pour les alimenter, il y a un formulaire (contenant les informations de la table SITES) et chacune des 3 autres tables sont des sous-formulaires du formulaire SITES.

Je n'ai pas compris le code par contre, pourrais-tu m'aiguiller dessus stp ?

Bonjour,

tu peux aussi utiliser une macro de donnees [Apres Insertion] sur la table SITE, qui créera les 3 enregistrements souhaites
Note: pour tes 3 tables, il faut que le pre-remplissage des champs obligatoire soit a jour

Cette idée me parait pas mal, quel macro permettrait de prendre un ID précis puis de le coller sur d'autres tables ?
Pour le pré-remplissage des champs, je ne vois pas du tout à quoi cela correspond,pourrais-tu m'aider sur ce côté ?


Merci de vos réponses.

[Jean-Philippe André]

Concernant le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'declaration d'une variable de type recordset (jeu d'enregistrements)
Dim RS as New ADODB.Recordset 'ou DAO
'ouverture du jeu (recuperation des enregistrements issus de la requete SQL)
RS.Open '...
'creation d'uine nouvel enregistrement
RS.AddNew
'ta tambouille  de mise a jour des enregistrements et autres calculs
'...
'validation des modifications et enregistrement
RS.Update
'affichage du champs ID qui s'est autoincremente
Msgbox "Nouvel ID : " & RS.Fields("ID").Value