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 :

[A 03] - Ajout enregistrement par case à cocher


Sujet :

VBA Access

  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    16
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 16
    Points : 11
    Points
    11
    Par défaut [A 03] - Ajout enregistrement par case à cocher
    Bonjour à toutes et tous !

    J'ai une table (T_A) où pour chaque enregistrement j'ai plusieurs checkboxes, chaque checkbox pouvant être activée ou non. Cette table comporte aussi un champ "Modele" qui est vierge.
    J'ai créé un formulaire à partir de cette table et ce que je voudrais c'est que pour chaque checkbox activée, un nouvel enregistrement soit créé dans une table "T_B" et pour lequel le champ "Modele" prendrait l'intitulé de la checkbox activée.
    J'ai testé avec ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    Private Sub Modele1_AfterUpdate()
     
    Dim sql As String
    If Me.Modele1 = True Then
    sql = "UPDATE T_B SET (Modele)='Modele1';"
    End If
     
    DoCmd.RunSQL sql
     
    End Sub
    Tout ce que j'obtiens c'est ceci :

    Erreur d'exécution '3144':
    Erreur de sytnaxe dans l'instruction UPDATE.

    Quelqu'un(e) aurait une idée/solution à me proposer ?
    Par avance merci

    PS : oui je suis un absolute begginer !

  2. #2
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2007
    Messages
    503
    Détails du profil
    Informations personnelles :
    Âge : 45
    Localisation : France

    Informations forums :
    Inscription : Septembre 2007
    Messages : 503
    Points : 503
    Points
    503
    Par défaut
    Salut,

    juste pour être sûr, remplace:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    sql = "UPDATE T_B SET (Modele)='Modele1';"
    par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    sql = "UPDATE T_B SET Modele = 'Modele1';"
    et il manque surement un WHERE, sans quoi tu vas modifier le champs Modele pour tous les enregistrements de ta table...

  3. #3
    Membre à l'essai
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    16
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 16
    Points : 11
    Points
    11
    Par défaut
    Merci 6ril25 !
    Ca fonctionne nickel sans les ()
    Pour le WHERE, j'y ai effectivement pensé après coup car je me doutais bien que sinon cela foutrait un peu le souk.
    Il ne me reste plus qu'à faire les corrections ad hoc pour les autres checkboxes.

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

Discussions similaires

  1. [AC-2007] Ajouter enregistrements avec cases à cocher
    Par macgyver44 dans le forum VBA Access
    Réponses: 4
    Dernier message: 13/04/2013, 21h37
  2. [AC-2003] Comparaison d'enregistrement par case à cocher
    Par ez29kiel dans le forum IHM
    Réponses: 2
    Dernier message: 24/06/2009, 13h41
  3. Impression suite à un choix par case à cocher
    Par doudoufly dans le forum VBA Word
    Réponses: 1
    Dernier message: 02/07/2008, 23h05
  4. Réponses: 5
    Dernier message: 25/10/2007, 13h23
  5. Ajout d'une case à cocher dans un message box
    Par Jahjouh dans le forum MFC
    Réponses: 1
    Dernier message: 31/08/2007, 11h46

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