Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre habitué
    Profil pro
    Inscrit en
    octobre 2009
    Messages
    426
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : octobre 2009
    Messages : 426
    Points : 131
    Points
    131

    Par défaut 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

  2. #2
    Membre émérite Avatar de hyperion13
    Homme Profil pro
    Calot120 - Enseignant Post Bac
    Inscrit en
    octobre 2007
    Messages
    1 473
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France

    Informations professionnelles :
    Activité : Calot120 - Enseignant Post Bac
    Secteur : Enseignement

    Informations forums :
    Inscription : octobre 2007
    Messages : 1 473
    Points : 2 256
    Points
    2 256

    Par défaut

    Salut
    Il te faut supprimer GENECoef, ACCESCoef, CoefCAPTEUR des tbl ArticlesGENE, etc. et les placer dans les tbl DétailGENE, etc.
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    GMT+4 - 21°19'18" S - 055°25'32" E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse est pertinente. N'oubliez pas svp de clôturer le sujet en cliquant sur

  3. #3
    Membre habitué
    Profil pro
    Inscrit en
    octobre 2009
    Messages
    426
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : octobre 2009
    Messages : 426
    Points : 131
    Points
    131

    Par défaut

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

  4. #4
    Membre émérite Avatar de hyperion13
    Homme Profil pro
    Calot120 - Enseignant Post Bac
    Inscrit en
    octobre 2007
    Messages
    1 473
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France

    Informations professionnelles :
    Activité : Calot120 - Enseignant Post Bac
    Secteur : Enseignement

    Informations forums :
    Inscription : octobre 2007
    Messages : 1 473
    Points : 2 256
    Points
    2 256

    Par défaut

    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 & """"
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    GMT+4 - 21°19'18" S - 055°25'32" E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse est pertinente. N'oubliez pas svp de clôturer le sujet en cliquant sur

  5. #5
    Membre habitué
    Profil pro
    Inscrit en
    octobre 2009
    Messages
    426
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : octobre 2009
    Messages : 426
    Points : 131
    Points
    131

    Par défaut

    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 ?

  6. #6
    Membre émérite Avatar de hyperion13
    Homme Profil pro
    Calot120 - Enseignant Post Bac
    Inscrit en
    octobre 2007
    Messages
    1 473
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France

    Informations professionnelles :
    Activité : Calot120 - Enseignant Post Bac
    Secteur : Enseignement

    Informations forums :
    Inscription : octobre 2007
    Messages : 1 473
    Points : 2 256
    Points
    2 256

    Par défaut

    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
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    GMT+4 - 21°19'18" S - 055°25'32" E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse est pertinente. N'oubliez pas svp de clôturer le sujet en cliquant sur

  7. #7
    Membre habitué
    Profil pro
    Inscrit en
    octobre 2009
    Messages
    426
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : octobre 2009
    Messages : 426
    Points : 131
    Points
    131

    Par défaut

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

    Nom : 1.jpg
Affichages : 53
Taille : 103,4 Ko

    Nom : 11.jpg
Affichages : 51
Taille : 9,2 Ko

  8. #8
    Membre émérite Avatar de hyperion13
    Homme Profil pro
    Calot120 - Enseignant Post Bac
    Inscrit en
    octobre 2007
    Messages
    1 473
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France

    Informations professionnelles :
    Activité : Calot120 - Enseignant Post Bac
    Secteur : Enseignement

    Informations forums :
    Inscription : octobre 2007
    Messages : 1 473
    Points : 2 256
    Points
    2 256

    Par défaut

    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.
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    GMT+4 - 21°19'18" S - 055°25'32" E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse est pertinente. N'oubliez pas svp de clôturer le sujet en cliquant sur

  9. #9
    Membre habitué
    Profil pro
    Inscrit en
    octobre 2009
    Messages
    426
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : octobre 2009
    Messages : 426
    Points : 131
    Points
    131

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

  10. #10
    Membre émérite Avatar de hyperion13
    Homme Profil pro
    Calot120 - Enseignant Post Bac
    Inscrit en
    octobre 2007
    Messages
    1 473
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France

    Informations professionnelles :
    Activité : Calot120 - Enseignant Post Bac
    Secteur : Enseignement

    Informations forums :
    Inscription : octobre 2007
    Messages : 1 473
    Points : 2 256
    Points
    2 256

    Par défaut

    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
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    GMT+4 - 21°19'18" S - 055°25'32" E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse est pertinente. N'oubliez pas svp de clôturer le sujet en cliquant sur

  11. #11
    Membre habitué
    Profil pro
    Inscrit en
    octobre 2009
    Messages
    426
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : octobre 2009
    Messages : 426
    Points : 131
    Points
    131

    Par défaut

    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,

  12. #12
    Membre émérite Avatar de hyperion13
    Homme Profil pro
    Calot120 - Enseignant Post Bac
    Inscrit en
    octobre 2007
    Messages
    1 473
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France

    Informations professionnelles :
    Activité : Calot120 - Enseignant Post Bac
    Secteur : Enseignement

    Informations forums :
    Inscription : octobre 2007
    Messages : 1 473
    Points : 2 256
    Points
    2 256

    Par défaut

    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
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    GMT+4 - 21°19'18" S - 055°25'32" E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse est pertinente. N'oubliez pas svp de clôturer le sujet en cliquant sur

  13. #13
    Membre habitué
    Profil pro
    Inscrit en
    octobre 2009
    Messages
    426
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : octobre 2009
    Messages : 426
    Points : 131
    Points
    131

    Par défaut

    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 ?

  14. #14
    Membre émérite Avatar de hyperion13
    Homme Profil pro
    Calot120 - Enseignant Post Bac
    Inscrit en
    octobre 2007
    Messages
    1 473
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France

    Informations professionnelles :
    Activité : Calot120 - Enseignant Post Bac
    Secteur : Enseignement

    Informations forums :
    Inscription : octobre 2007
    Messages : 1 473
    Points : 2 256
    Points
    2 256

    Par défaut

    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.
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    GMT+4 - 21°19'18" S - 055°25'32" E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse est pertinente. N'oubliez pas svp de clôturer le sujet en cliquant sur

Discussions similaires

  1. Valeur par defaut dans ActiveX de type Calendar
    Par Sam 069 dans le forum Access
    Réponses: 3
    Dernier message: 30/11/2006, 10h42
  2. Valeur par defaut dans un champ file
    Par benkunz dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 24/10/2006, 11h40
  3. Réponses: 6
    Dernier message: 06/09/2006, 14h50
  4. Valeur par defaut dans ALTER TABLE
    Par uskiki85 dans le forum Access
    Réponses: 7
    Dernier message: 19/06/2006, 13h16
  5. [interbase 6]probleme valeur par defaut dans lookupcombobox
    Par macadam314 dans le forum Bases de données
    Réponses: 1
    Dernier message: 09/05/2005, 14h24

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo