IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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

IHM Discussion :

souci sur ajout de données de zone de liste


Sujet :

IHM

  1. #1
    Membre régulier
    Inscrit en
    octobre 2003
    Messages
    275
    Détails du profil
    Informations forums :
    Inscription : octobre 2003
    Messages : 275
    Points : 119
    Points
    119
    Par défaut souci sur ajout de données de zone de liste
    Bonjour

    J'ai une zone de liste avec 3 colonnes:
    colonne1 (on ne la voit): cle
    colonne2 : produit
    colonne3(on ne la voit pas): prixvente

    ma zone de liste s'appelle "idproduit"

    j'ai essayé ce code que j'ai recupéré dans la FAQ et que j'ai mis dans notinlist:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     DoCmd.SetWarnings False
        If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des désignations ?", _
                           vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
                           sql = "INSERT INTO produit ( produit, prixvente ) SELECT  " & NewData & " ," & Me!prixTTC & ";"
            DoCmd.RunSQL sql
     
            Response = acDataErrAdded
        Else
            Response = acDataErrContinue
            'Modifiable0.Undo
        End If
    En faisant ainsi je souhaite qu'il ajoute le nouveau nom du produit que j'ai mis ainsi que le prix qui est dans un textbox "prixTTC". Malheureusement cela ne fonctionne pas et je me casse la tete en vain.
    j'ai un message qui en fait reprend le nouveau produit que j'ai tapé et me demande d'entrer sa valeur de paramètre.
    et donc ca plante. un peu d'aide SVP.
    merci

  2. #2
    Membre éclairé
    Homme Profil pro
    Comptable
    Inscrit en
    mars 2005
    Messages
    511
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations professionnelles :
    Activité : Comptable

    Informations forums :
    Inscription : mars 2005
    Messages : 511
    Points : 678
    Points
    678
    Par défaut
    essaye ce code

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    DoCmd.SetWarnings False 
        If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des désignations ?", _ 
                           vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then 
                           sql = "INSERT INTO produit ( produit, prixvente ) VALUES  (" & NewData & " ," & Me![prixTTC] & ");" 
            DoCmd.RunSQL sql 
     
            Response = acDataErrAdded 
        Else 
            Response = acDataErrContinue 
            'Modifiable0.Undo 
        End If
    Il faut auss que la clé soit une numérotation automatique sinon çà va planter

  3. #3
    Membre régulier
    Inscrit en
    octobre 2003
    Messages
    275
    Détails du profil
    Informations forums :
    Inscription : octobre 2003
    Messages : 275
    Points : 119
    Points
    119
    Par défaut
    j'ai essayé plus simple en ne rentrant qu'un produit:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    DoCmd.SetWarnings False 
        If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des désignations ?", _ 
                           vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then 
                           sql = "INSERT INTO produit ( produit) VALUES  (" & NewData & " );" 
            DoCmd.RunSQL sql 
     
            Response = acDataErrAdded 
        Else 
            Response = acDataErrContinue 
            'Modifiable0.Undo
    avec ma table avec 2 champs:
    1: clé auto appelé "n"
    2: texte appelé "produit"

    cela ne marche toujours pas, il me demande de rentrer le paramètre en reprenant le nouveau produit que je viens de taper.
    pour info ma zone de liste contient 2 colonnes, la 1ere étant un colonne cachée (n) et l'autre le produit. La colonne liée est la 2.

    PS: désolé de repondre si tard, je m'étais absenté.
    merci

  4. #4
    Membre éclairé
    Homme Profil pro
    Comptable
    Inscrit en
    mars 2005
    Messages
    511
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations professionnelles :
    Activité : Comptable

    Informations forums :
    Inscription : mars 2005
    Messages : 511
    Points : 678
    Points
    678
    Par défaut
    Pour quelle raison tu mets la description de ton produit comme colonne liée?
    En général c'est justement le numéro de produit qui vient en colonne liée et c'est le nom du produit qui apparaît dans la liste déroulante
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    sql = "INSERT INTO produit ( produit) VALUES  ('" & NewData & "' );"
    il faut rajouter des' avant et après newdata pour lui montrer que c'est du texte, j'ai essayer avec une requête et c'est concluant

    A+

  5. #5
    Membre régulier
    Inscrit en
    octobre 2003
    Messages
    275
    Détails du profil
    Informations forums :
    Inscription : octobre 2003
    Messages : 275
    Points : 119
    Points
    119
    Par défaut
    magnifique, you are the best. en colonne liée j'ai mis 2 car j'ai besoin de recupéré pour un autre champ le texte correspodant.

  6. #6
    Membre éclairé
    Homme Profil pro
    Comptable
    Inscrit en
    mars 2005
    Messages
    511
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations professionnelles :
    Activité : Comptable

    Informations forums :
    Inscription : mars 2005
    Messages : 511
    Points : 678
    Points
    678
    Par défaut
    si tu dois récupérer le texte de la colonne 2 tu peux le faire de la façon suivante:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    me![mazonedeliste].colum(1)
    en sachant que (0) est la 1ère colonne

  7. #7
    Membre régulier
    Inscrit en
    octobre 2003
    Messages
    275
    Détails du profil
    Informations forums :
    Inscription : octobre 2003
    Messages : 275
    Points : 119
    Points
    119
    Par défaut
    ok merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. petit souci sur la couleur donnée à un span
    Par grinder59 dans le forum Mise en page CSS
    Réponses: 2
    Dernier message: 24/07/2012, 22h51
  2. Réponses: 7
    Dernier message: 09/01/2007, 10h36
  3. Ajout données dans Zone de liste modifiable
    Par emilie31 dans le forum Access
    Réponses: 2
    Dernier message: 08/01/2007, 17h18
  4. Réponses: 5
    Dernier message: 16/10/2006, 15h38
  5. Positionner sur un enreg. par un zone de liste
    Par fabrice518 dans le forum IHM
    Réponses: 4
    Dernier message: 02/12/2005, 16h57

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