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 :

verification each accheckbox mais pas tous. comment en omettre certain?


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Août 2006
    Messages
    134
    Détails du profil
    Informations forums :
    Inscription : Août 2006
    Messages : 134
    Par défaut verification each accheckbox mais pas tous. comment en omettre certain?
    bonjour,

    voila j'essaye de faire un code vba de multi critère et j'aimerai qu'au click sur le bouton rechercher il m'affiche les résultats...j'ai pleins de cases a cocher qui m'affiche ou non le champs en rapport avec celui ci
    il y a une personne du forum qui ma aider et ma donner ce code pour cela le voici en partie
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    For Each ctl In Me.Controls
           'tu ne t'intéresse qu'aux cases à cocher
          If ctl.ControlType = acCheckBox Then
               If ctl.Value = True Then
                       'elle est selectionnée alors je la selectionne dans ma requête
                       'ne marche que si ton controle porte le meme nom que ta colonne
                  reqSQL = reqSQL & ctl.Name & ", "
                End If
          End If
    Next ctl
    il marche il ajoute bien dans la chaine SQL mais j'ai 3 questions et problèmes..
    1/ certaines cases a cocher sont la uniquement pour activer un control et non figurer ds mon sql...donc comment les ommettre de ma liste?
    2/ il ajoute le nom de mon controle ds la chaine sql, mais tout mes checkbox commence par chk comment lui dire d'enlever le chk?
    3/comment savoir et controler l'ordre d'insertion dans la chaine sql de chaque controle?
    voilou merci

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Citation Envoyé par doogybreton Voir le message
    1/ certaines cases a cocher sont la uniquement pour activer un control et non figurer ds mon sql...donc comment les ommettre de ma liste?
    Nommes te contrôles en conséquences, pour avoir lorsque tu les listes un test sur le nom du contrôles, avec par exemple pour ce contrôles ils pourraient commencer par chkActive..., et tu fais un test en plus des types de contrôles en disant :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If Left(ctrl.name,9) = "chkActive" then
    2/ il ajoute le nom de mon controle ds la chaine sql, mais tout mes checkbox commence par chk comment lui dire d'enlever le chk?
    Utilises la fonction Replace, en remplaçant chk par une chaine vide ("")

    3/comment savoir et controler l'ordre d'insertion dans la chaine sql de chaque controle?
    voilou merci
    Il faudrait que tes contrôles est une numérotation logique 1,2,3, etc.. et que tu fasses une boucle For i=1 to ... pour ajouter tes contrôles au fur et à mesure.
    Pour éviter de renommer tes contrôles, utilises la propriété Tag de ceux-ci, c'est une zone ou tu peux mettre du texte, et tu peux l'interroger.

    Starec

  3. #3
    Membre confirmé
    Inscrit en
    Août 2006
    Messages
    134
    Détails du profil
    Informations forums :
    Inscription : Août 2006
    Messages : 134
    Par défaut
    oki merci !!
    en résumé le plus simple comme il y a beaucoup d'exeption et que j'ai besoin d'un ordre ..je vais devoir les faire un par un je pense ..le souci que j'ai compter j'ai 118 cases a cocher sur mon formulaire dont 11 ne servant pas au code SQL et servent pour activé une combox^^ ca en fait ca ! du coup je crois que je vais faire comme ca, jai pas trop le choix:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    'tu parcours tout tes controle du formulaires (bouton, textBox,...)
    If Me.Chk_humgac Then
    reqSQL = reqSQL & "HUMGAC, "
    End If
    If Me.chk_ID2 Then
    reqSQL = reqSQL & "ID2, "
    End If
    If Me.Obssem Then
    reqSQL = reqSQL & "OBSsem, "
    End If
    If Me.Hartsem Then
    reqSQL = reqSQL & "Hartsem, "
    End If
    If Me.Humsec Then
    reqSQL = reqSQL & "Humsec, "
    End If
    '...etc etc etc

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

Discussions similaires

  1. [SQL-Server] Lenteur avec certaine requete, mais pas tous le temps
    Par guiguipeux dans le forum PHP & Base de données
    Réponses: 6
    Dernier message: 14/10/2010, 19h02
  2. Utiliser un filtre mais pas tous les filtres
    Par le.gros_v dans le forum Débuter
    Réponses: 2
    Dernier message: 16/11/2008, 21h31
  3. Requete qui reprend les champs d'un formulaire, oui, mais pas tous
    Par Arttt dans le forum Requêtes et SQL.
    Réponses: 20
    Dernier message: 23/06/2008, 16h14
  4. Réponses: 1
    Dernier message: 08/04/2008, 13h46
  5. [Mail] envois de mail en HTML mais pas tous compatible
    Par clad strife dans le forum Langage
    Réponses: 3
    Dernier message: 26/03/2007, 21h20

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