Discussion :

[delcroixf]

Bonjour,
J'ai parcouru les logs déjà existant mais pas de solutions précises.

J'ai une table "T_Devis" que je renseigne par un formualire "F_Devis" contenant entre autres des champs, "N°Devis", "Régulateur", "Société", "Montant"...
Si le devis est accepté ("Bouton_OK"), il ouvre un formulaire "F_Missions" sur un nouvel enregistrement (acnew) basé sur une table "T_Missions" totalement indépendante de la table T_Devis.
Outrele n° de devis je souhaiterais recopier les champs précédents dans ce formulaire sans avoir à les renseigner. comment faire ?
j'ai volontairement séparé les deux tables car la plupart des missions ne fait pas l'objet d'un devis et par ailleurs peu de devis débouche sur une mission.
de plus, dans la table devis il existe un nombre important de champs "monétaires" qui ne se retrouveront pas dans le formualire de mission. seul le montant final est intéressant à reprendre.
Merci pour votre aide.

[galtitou]

Une solution serait peut être de créer une requête Ajout qui serait déclenchée par un bouton sur ton formulaire devis et copierait les champs de "T_Devis"
dans"T_Missions".
Il faut mettre une condition pour que la copie ne se fasse que sur l'enregistrement actif sur ton formulaire.
Après tu complètes ça avec une macro qui ferme le formulaire devis et ouvre le formulaire Missions.
J'ai fait ça pour moi car j'étais dans une configuration semblable.

[Mr T 94]

Salut,
Si tu dois recopier les champs de la table Devis dans la table Missions, c'est qu'elles ne sont pas si indépendantes que cela.
Moi, je procéderais plutôt avec une requête liant les 2 tables ou avec un Form et un SF liés (père-fils).
Revois peut-être l'analyse de ta base pour bien démarrer.

[pier.antoine]

Bonjour à tous.

Comme Mr T 94, je suis étonné qu'il faille recopier les données. Même si une mission ne reprends pas toutes les données des devis, elle en reprend certaines, elle est liée. Et un devis peut déboucher sur une mission, donc il y a bien un lien.

Si vraiment il faut faire de la recopie, la piste du recodrdset peut peut-être solutioner le problème.

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
 
 
'créer des variables publiques 
public donnee1, donnee2
 
 
 
 
Private Sub cmd_SUJET_nv_Click()
 
 
donnee1=me.MonControle1.value
donnee2=me.MonControle2.value
'...
 
Dim rs as recordset
 
Set rs = CurrentDb.OpenRecordset("T_Missions")
 
'-- Ajoute un enregistrement dans la Tbl
rs.AddNew
'-- Copie les données dans la Tbl
rs![champ01] = donnee1
rs![champ02] = donnee2
'...
 
'-- MàJ des champs
rs.Update
'-- Ferme la Tbl
rs.Close
Set rs = Nothing
End Sub

ATTENTION !
Ce code est du pompage, alors je n'en garantis pas l'exactitude ...

Pierre

[delcroixf]

Merci pour vos contributions... Revoir la conception de ma base... oui je veux bien mais peut-être fais je une erreur de raisonnement ?
Bien sûr mes deux tables ont des champs communs du type "Société" par exemple. En fait quand je fais un devis (donc remplissage du formulaire F_Devis basé sur la T_Devis) je ne veux pas remplir la T_Mission car il n'est pas encore accepté. C'est seulement quand le devis est accepté que je veux "incrémenter" une ligne dans la T_Missions reprenant certains champs de la T_Devis.
Or je fais près de 800 devis par an dont 50 débouchent sur des missions...
J'ai l'impression de faire une erreur de raisonnement mais je ne vois pas la conception...

[Sefrou]

tu peux tout simplement affecter les valeurs champs de T_Devis qui t'intéressent comme 'valeur par défaut' aux contrôles des champs de T_Missions à l'ouverture de F_Mission

sur le bouton de F_Devis qui ouvre F_Missions tu mets

Code :

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

1
2
3
4
5
Private Sub OuvrirMission_Click()
DoCmd.OpenForm "F_Mission"
Forms!F_Mission!IDCompte.DefaultValue = "Forms!F_Devis!IDCompte.Value"
Forms!F_Mission!AdresseBureau.DefaultValue = "Forms!F_Devis!Addresse.Value"
Forms!F_Mission!VilleBureau.DefaultValue = "Forms!F_Devis!Ville.Value"

et au nouvel enregistrement, les champs seront pré-rempli ...

[delcroixf]

Parfait. Hormis deux petits détails techniques de MAJ liées à des listes déroulantes, mes champs sont bien recopiés.
Merci
F

[Sefrou]

pour les listes déroulantes il faut savoir ce que tu veux copier, la clé primaire que l'on voit pas à l'écran, en principe la 'colonne liée' :
nomliste.column(0)

ou ce qui s'affiche
nomliste.column(1)

les listes sont mise à jour avec

nomliste.requery