Discussion :

[maringot]

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

[hyperion13]

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

[maringot]

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) ?

[hyperion13]

Salut
Tu as cette propriété

Code :

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

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

Où ??? peut-être

Code :

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

1
2
3
= Me.MonChampTypeNum.Value
="#" &  Me.MonChampTypeDate & "#"
= """" & Me.MonChampTypeTexte.Value & """"

[maringot]

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 ?

[hyperion13]

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 :

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

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

[maringot]

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

[hyperion13]

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.

[maringot]

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 ?

[hyperion13]

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 :

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

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

[maringot]

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,

[hyperion13]

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

Code :

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

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 :

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

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

[maringot]

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 ?

[hyperion13]

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.