Bonsoir,
J'ai vu quelques postes a ce sujet mais ne n'arrive pas à comprendre comment cela fonctionne.
J'utilise 1 formulaire (avec un contrôle d'onglet, 3 onglets) afin de créer des enregistrements en rapport avec ce que je vais saisir dans le formulaire.
Derrière ce formulaire il y a 6 tables reliées entre elles par des relations 1 à plusieurs (quasi-normal).
Onglet 1 : fiche cliente
Onglet 2 : fiche montre (avec ses différentes caractéristiques)
Onglet 3 : fiche SAV (Numero dossier, lieux d'intervention, etc, etc)
ce que je n'arrive pas a comprendre c'est, comment en saisissant toutes les informations dans chacun des 3 onglets, on va comprendre que tel N° de dossier est lié avec telle montre et lié avec tel client.
Pour vous donner un état d'ou j'en suis, dans mon bouton (en 3eme onglet) pour valider ma saisie, j'ai fais cela : (vba)
Cela rempli bien les tables consécutivement mais aucun lien entre elles.
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42 Dim DataClient As Recordset Dim DataMontre As Recordset Set DataClient = CurrentDb.OpenRecordset("t_Clients", DB_OPEN_DYNASET) Set DataMontre = CurrentDb.OpenRecordset("t_Montre", DB_OPEN_DYNASET) With DataClient .AddNew .Fields!NomCli = Me.txt_nom .Fields!Prenom = Me.txt_prenom .Fields!Adresse = Me.txt_adresse .Fields!Code_Postal = Me.txt_cp .Fields!Ville = Me.txt_ville .Fields!Pays = Me.txt_ville .Fields!Tel_mobile = Me.txt_telmobile .Fields!Tel_fixe = Me.txt_telfixe .Fields!Email = Me.txt_email .Fields!Email2 = Me.txt_email2 .Update .Close End With With DataMontre .AddNew .Fields!Num_serie_montre = Me.txt_NumSerieMontre .Fields!Calibre = Me.txt_calibre .Fields!Marque = Me.Lst_Marque .Fields!Modele = Me.txt_modele .Fields!Genre = Me.lst_genre .Fields!Mouvement = Me.lst_mouvement .Fields!Boite = Me.lst_boite .Fields!Bracelet = Me.lst_bracelet '.Fields!Photo = Me.pj_photo .Update .Close End With
merci pour vos lumières
Stéphane
Partager