valeur par defaut dans requête

Bonjour,

Je n'y connait pas grand chose en valeur par défaut et je me demandais si cette application pourrait résoudre mon problème.
En clair, j'ai des tables articles (Gene, Module...). Pour chaque table j'ai un coefficient par défaut (1.50,1.45...). Lorsque je saisie un devis, je sélectionne des articles de mes différentes tables articles et je les incrémentes dans des tables DétailArticles qui sont en lien avec le n° de devis. Je souhaite, lors de l'incrémentation dans les tables DétailArticles, pouvoir modifier le(s) coefficient(s) à ma guise.

La construction de ma BD :

J'ai une table paramètres devis qui comprend des coef pour différentes tables articles (Gene, Module...). J'ai écrit dans la valeur par défaut de ces champs coef, au format numérique Réel simple, une valeur par défaut (1.50, 1.45...)

J'ai des tables articles (Gene, Module...) qui comprennent un champ coef en relation avec la table paramètre devis.
Dans un premier temps j'aimerais savoir comment afficher la valeur par défaut que j'ai enregistré dans la table paramètres ? Faut-il ajouter un critère et si oui lequel ?

J'ai des tables détail articles qui enregistrent les articles que je saisie dans le devis. Ceci se fait à l'aide de requête dans lesquelles j'ai inséré le champ coef de la table paramètres devis.
Dans un premier temps... même question que précédemment et est-ce que cette méthode me permettrait de modifier le coefficient ?

Dans l'attente de vos conseils, cordialement

Salut
Il te faut supprimer GENECoef, ACCESCoef, CoefCAPTEUR des tbl ArticlesGENE, etc. et les placer dans les tbl DétailGENE, etc.

Bonjour Hyperion13,

La solution est logique, merci. En revanche, comment puis-je extraire ces coefficients de chaque table détail afin de créer un formulaire où je pourrai modifier la valeur par défaut si je décide dans 1 an d'augmenter un(des) coefficient(s) ?

Salut
Tu as cette propriété

Code:

---

CurrentDb.TableDefs("LaTable").Fields("LeChamp").DefaultValue = ???

---

Où ??? peut-être

Code:

---

1 2 3

= Me.MonChampTypeNum.Value ="#" & Me.MonChampTypeDate & "#" = """" & Me.MonChampTypeTexte.Value & """"

---

Bonjour Hyperion13,

Comment puis-je utiliser ces codes, les valeurs sont dans 8 tables et je ne peux pas faire une requête pour créer un formulaire ?

Salut
Je m'amuserai à créer un form_indépendant avec 8 textbox indépendantes pour lesquelles j'affecterai un nom par exp. txtGENECoef, txtACCESCoef, textCoefCAPTEUR et un btn de commande et tu passes ce qui suit en l'adaptant.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Commande1_Click() If Not IsNull(Me.txtGENECoef) Then CurrentDb.TableDefs("tblGENE").Fields("GENECoef").DefaultValue = Me.txtGENECoef End If If Not IsNull(Me.txtACCESCoef) Then CurrentDb.TableDefs("tblACCES").Fields("ACCESCoef").DefaultValue = Me.txtACCESCoef End If ... End Sub

---

Il y a qqchose que je n'ai pas du faire correctement car rien ne s'affiche dans le formulaire

Pièce jointe 467165

Pièce jointe 467169

Salut
Tu dois saisir le(s) nouveau(x) coef dans tes textbox puis cliquer sut le btn pour changer le(s) valeur(s) oar défaut.

D'accord, je n'avais pas compris le cheminement mais effectivement ça fonctionne.

Dans les 8 tables DETAIL... j'ai créé un champ Date de MAJ, y a t-il moyen dans le code d'ajouter dans ce champ la date du jour lors de la modification pour se souvenir quand a été changé le coef pour la dernière fois ?

C'est dommage qu'on ne puisse pas afficher sous forme de champs les valeurs par défaut dans un form et pouvoir les modifier directement.

Dans le même ordre d'idée, il y a des champs textes dans le devis. Initialement j'ai créé dans une table PARAMETRE DEVIS ces champs afin qu'ils s'incrémentent dans le devis automatiquement. La semaine dernière ma Direction m'a dit que se serait bien que ces champs soient personnalisables dans le devis saisi. Mais avec la relation Devis/Paramètre, le texte modifié dans le devis est également modifié dans les paramètres. J'ai essayé en créant ces champs directement dans le devis mais ça fait pareil. Auriez-vous une idée pour que ces champs soient modifiables dans les devis tout en restant inchangés à la base ?

Salut
Il suffit de prendre le problème à l'envers.
Si tu veux visualiser dans des textbox indépendantes les valeurs par défaut de certains champs de certaines tables

Code:

---

1 2 3 4 5 6

Private Sub Form_Load() Me.txtGENECoef = CurrentDb.TableDefs("DetailGENERATEUR").Fields("geneCoef").DefaultValue Me.txtMODCOEF = CurrentDb.TableDefs("DetailMODULEHYDRAU").Fields("MODCOEF").DefaultValue Me.txtACCESCOEF = CurrentDb.TableDefs("DetailACCESGENERATEUR").Fields("accesCOEF").DefaultValue ... End Sub

---

Bonjour,

J'ai créé un formulaire avec ta proposition et ça fonctionne, mais est-il possible de modifier les coef car j'ai essayé mais les valeurs par défaut restent identiques ?

Cordialement,

euh ... la solution est dans le Post#6 :weird:

Code:

---

1 2 3 4 5

Private Sub Form_Current() Me.txtGENECoef = CurrentDb.TableDefs("DetailGENERATEUR").Fields("GeneCoef").DefaultValue Me.txtMODCOEF = CurrentDb.TableDefs("DetailMODULEHYDRAU").Fields("MODCOEF").DefaultValue Me.txtACCESCOEF = CurrentDb.TableDefs("DetailACCESGENERATEUR").Fields("accesCOEF").DefaultValue End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Commande1_Click() If Not IsNull(Me.txtGENECoef) Then CurrentDb.TableDefs("DetailGENERATEUR").Fields("GeneCoef").DefaultValue = Me.txtGENECoef End If If Not IsNull(Me.txtMODCOEF) Then CurrentDb.TableDefs("DetailMODULEHYDRAU").Fields("MODCOEF").DefaultValue = Me.txtMODCOEF End If If Not IsNull(Me.txtACCESCOEF) Then CurrentDb.TableDefs("DetailACCESGENERATEUR").Fields("accesCOEF").DefaultValue = Me.txtACCESCOEF End If DoCmd.Close DoCmd.OpenForm "Formulaire1" End Sub

---

Désolé, j'avais oublié ce code.

Je l'ai créé sur un bouton et lorsque je clique j'ai le message suivant : "Erreur d'exécution 3422 Un autre utilisateur à ouvert la table. Impossible d'en changer la structure", est-ce à cause du code sur chargement ?

Ce n'est pas le formload formcurrent qui sont la cause de l'erreur mais l'exécution de la mise à jour du ou des coef.
Soit l'une des tbl est ouverte, ce que je doute, soit un form ayant pour source l'une des, ou toutes les tbl de la sub, qui est ouvert.
Dans ce cas fermer ledit form.