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

VBA Access Discussion :

VBA et zone de texte


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Mai 2007
    Messages
    13
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2007
    Messages : 13
    Par défaut VBA et zone de texte
    Bonsoir à tous,

    C'est mon premier post et j'espère ne pas subir les foudres des modérateurs....je suis aussi novice en access et après qlq jours de recherches infrutueuses je me lance

    Depuis qlq temps j'essaye d'améliorer une saisie sur base d'un formulaire.

    Mon problème est le suivant : en posant un numéro de client celui ci fait apparaître dans les champs concernés du formulaire, le nom et le prénom de la personne mais je n'arrive pas à mettre à jour les champs correspondant dans la table principale.

    Ils s'affichent sur le formulaire mais restent blancs dans la table.

    Si vous pouvez me donner la marche à suivre, je vous en serai très reconnaissant.

    Au plaisir de vous lire et merci à tous

  2. #2
    Expert confirmé

    Homme Profil pro
    consultant développeur
    Inscrit en
    Mai 2005
    Messages
    3 045
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : consultant développeur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2005
    Messages : 3 045
    Par défaut
    Certainement, dans ton formulaire actuel les champs nom et prenom sont des champs "indépendants", càd non liés aux champs de ta table ;ils sont mis à jour dans l'évenement _AferUpdate du champ [Numero de client]

    Il y a quantité de solutions différentes.

    Dans un premier temps, sans rien changer à ta conception actuelle, quand tu modifies le nom, tu peux le mettre à jour dans la table en mettant un bout de code dans l"evenement nom_AfterUpdate
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    dim strSql as string
     
    strSql= "UPDATE tableClient SET nom=' " & me.nom "' WHERE noClient=" me.noClient
    DoCmd.RunSQL strSql
    bien entendu tu substitues tes noms de champs et valeurs à cet exemple.
    Et tu fais qqchose de similaire pour màj le prenom dans l'evt prenom_AfterUpdate

    Bonne pêche

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Mai 2007
    Messages
    13
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2007
    Messages : 13
    Par défaut
    Bonsoir à tous,
    et merci à micniv pour sa réponse, mais comme je ne pratique guère cette programmation, je n'arrive à rien pour le moment et je vais essayer de donner des explications plus précises pour cerner au mieux mon problème.

    Table principale où j'attends la mise à jour = TBFiche_enfants
    Formulaire de saisie = FormSaisie_enfants

    J'ai créé une liste déroulante (code_ateliers) qui fait apparaître les différents noms d'ateliers dans une zone de texte (=cdateliers.column(1))

    Si je clique sur un code de la liste déroulante, le nom d'atelier correspondant apparait bien dans cette zone de texte sans que ma table principale soit mise à jour

    En extrapolant l'aide de micniv, j'obtiendrais ceci :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    dim strSql as string
     
    strSql= "UPDATE TBFiche_enfants SET ateliers=' " & me.ateliers "' WHERE code_ateliers=" me.code_ateliers
     
    DoCmd.RunSQL strSql
    De nombreuses erreurs de compilation apparaissent et me laisse dans l'embarras

    Merci pour votre patience

  4. #4
    Expert confirmé

    Homme Profil pro
    consultant développeur
    Inscrit en
    Mai 2005
    Messages
    3 045
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : consultant développeur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2005
    Messages : 3 045
    Par défaut
    Je déduis que dans ton formulaire, ton champ à mettre à jour est "ateliers" et de type texte
    est-ce que le champ code_ateliers existe dans ton form, il me semble que tu l'as appelé cdateliers ...
    Attention aux espaces dans ton code : les ' doivent encadrer exactement des valeurs de texte
    la ligne debug.print te permet de voir la valeur de strSql à l'execution

    Essaie :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    dim strSql as string
     
    strSql= "UPDATE TBFiche_enfants SET ateliers='" & me.ateliers "' WHERE code_ateliers=" me.cdateliers
    debug.print strSql
    DoCmd.RunSQL strSql

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Mai 2007
    Messages
    13
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2007
    Messages : 13
    Par défaut
    Micniv,

    Effectivement le champ "Ateliers" est de type texte et un champ du formulaire porte le nom de cd_ateliers et source contrôle code_ateliers

    ca change quoi pour le code? j'ai testé ta proposition mais tjrs pas de maj le code reste en rouge

    merci pour ton aide

  6. #6
    Expert confirmé

    Homme Profil pro
    consultant développeur
    Inscrit en
    Mai 2005
    Messages
    3 045
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : consultant développeur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2005
    Messages : 3 045
    Par défaut
    as tu bien mis ce code dans l'evt "Après MAJ" du champ ateliers ?

    après modif du nom, tu fais CTL-G , ça t'ouvre la fenetre VBE, peux tu nous retourner la valeur du debug.print que tu lis dans la fenêtre "Exécution" ?

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

Discussions similaires

  1. [VBA-E] afficher les données d'une datagrid dans des zones de textes
    Par fadwa dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 12/05/2006, 13h51
  2. Réponses: 31
    Dernier message: 28/04/2006, 11h09
  3. [VBA-E]Comment vérifier qu'une zone de texte existe?
    Par Elstak dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 04/04/2006, 14h19
  4. Réponses: 3
    Dernier message: 23/01/2006, 10h10
  5. Réponses: 3
    Dernier message: 21/06/2005, 11h37

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