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 :

Gérer groupe d'options dans un formulaire [AC-97]


Sujet :

VBA Access

  1. #1
    Membre du Club
    Femme Profil pro
    Analyste-Développeur BI
    Inscrit en
    Mai 2011
    Messages
    61
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Analyste-Développeur BI

    Informations forums :
    Inscription : Mai 2011
    Messages : 61
    Points : 67
    Points
    67
    Par défaut Gérer groupe d'options dans un formulaire
    Bonjour à tous,

    Je voudrai modifier un formulaire dynamiquement.
    En fait, j'ai un premier formulaire où quand l'utilisateur saisi une valeur dans un textbox (exemple : fruit), un second formulaire s'ouvre et là il faudrait que le groupe d'option se mette à jour en fonction de la valeur saisie (par exemple : fraise, banane, poire).

    Et donc pour celà, je voudrai savoir comment ajouter des bouton d'option dans un groupe d'options en vba? En définissant la valeur et le nom?

  2. #2
    Futur Membre du Club
    Homme Profil pro
    Architecte de base de données
    Inscrit en
    Juin 2012
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Congo-Kinshasa

    Informations professionnelles :
    Activité : Architecte de base de données
    Secteur : Service public

    Informations forums :
    Inscription : Juin 2012
    Messages : 4
    Points : 7
    Points
    7
    Par défaut ESSAIE CE CODE VBA
    salut ton problème n'est pas très compliqué
    crée un evenement on exit() sur le nom partenaire

    met y ce code:

    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
    18
    Private Sub PARTENAIRE_Exit(Cancel As Integer)
    Dim wPOURCENTAGE As String (ou integer....)
     
    If IsNull(Me!PARTENAIRE) Then
    Else
     Set db = CurrentDb
     Set rs = db.OpenRecordset("LISTEDEPARTENAIRE", dbOpenDynaset)
     rs.MoveFirst
     
     Do While rs.EOF = False
       If UCase(Me!PARTENAIRE) = UCase(rs.Fields("PRTENAIRE").Value) Then
       Me!POURCENTAGE = UCase(rs.Fields("POURCENTAGE").Value)
       End If
       rs.MoveNext
       Loop
       rs.Close
     End If
    End Sub
    EXUZ pr la forme

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Architecte de base de données
    Inscrit en
    Juin 2012
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Congo-Kinshasa

    Informations professionnelles :
    Activité : Architecte de base de données
    Secteur : Service public

    Informations forums :
    Inscription : Juin 2012
    Messages : 4
    Points : 7
    Points
    7
    Par défaut DESOLE
    le message que j'ai envoyé est la réponse à une autre préoccupation pas à cele-ci
    exusez moi pour cette grossière erreur

  4. #4
    Futur Membre du Club
    Homme Profil pro
    Architecte de base de données
    Inscrit en
    Juin 2012
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Congo-Kinshasa

    Informations professionnelles :
    Activité : Architecte de base de données
    Secteur : Service public

    Informations forums :
    Inscription : Juin 2012
    Messages : 4
    Points : 7
    Points
    7
    Par défaut DESOLE
    le message que j'ai envoyé est la réponse à une autre préoccupation pas à cele-ci
    exusez moi pour cette grossière erreur

  5. #5
    Membre habitué
    Inscrit en
    Janvier 2005
    Messages
    152
    Détails du profil
    Informations forums :
    Inscription : Janvier 2005
    Messages : 152
    Points : 143
    Points
    143
    Par défaut
    Bonjour,

    C'est ça que tu veux faire?

  6. #6
    Membre expert
    Avatar de FreeAccess
    Homme Profil pro
    Un monde ou prendre est plus facile qu'apprendre.
    Inscrit en
    Mars 2006
    Messages
    2 745
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Un monde ou prendre est plus facile qu'apprendre.

    Informations forums :
    Inscription : Mars 2006
    Messages : 2 745
    Points : 3 834
    Points
    3 834
    Par défaut
    Bonjour,

    Ta demande n'est pas très claire . .
    ...le groupe d'option se mette à jour en fonction de la valeur saisie (par exemple : fraise, banane, poire)
    1)- si tu utilises un groupe d'options, cela signifie que tu ne souhaites pouvoir sélectionner qu'une seule option (ou banane ou poire ou fraise)
    2)- en fonction de la valeur saisie dans Form_1, as tu toujours le même nombre d'options qui s’afficheront (dans ton cas trois (3))

    Sauf contraintes ou désirs personnels, la solution proposée par BornToBe (utilisation de 2 Zones de liste déroulantes) est plus simple de mise en place....

    Si tu souhaites vraiment faire une modification dynamique (création d'un groupe d'options), la répond en partie à ta question..:
    Comment créer dynamiquement un contrôle dans un formulaire
    FreeAccess
    "Petit à petit l'araignée tisse sa toile"

  7. #7
    Membre du Club
    Femme Profil pro
    Analyste-Développeur BI
    Inscrit en
    Mai 2011
    Messages
    61
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Analyste-Développeur BI

    Informations forums :
    Inscription : Mai 2011
    Messages : 61
    Points : 67
    Points
    67
    Par défaut
    Bonjour et merci pour vos réponses!

    Je n'avais pas du tout pensé faire une deuxième lise mais ça pourrait être une bonne solution. Seulement mon problème est un peu plus complexe que celui de l'exemple.

    Ta demande n'est pas très claire . .
    Je vais donc essayer d'expliquer un petit peu mieux.

    J'ai donc un formulaire où dans un textbox, l'utilisateur va saisir un nom d'objet.
    Il a la possibilité, s'il ne connait pas le nom exact, de mettre une étoile. Par exemple, pour "porte fenêtre" il écrira "porte*".
    Lorsqu'une étoile est saisie, j'ai une fonction "RechercheEtoile" qui s'exécute et qui recherche dans une table, tous les noms d'objet correspondants.
    (Pour le moment la liste des noms correspondants s'affiche dans un MsgBox.)

    Et c'est donc à ce moment là que je pensais afficher un formulaire avec un groupe d'option, où on aurait au moins les 10 premières réponses trouvées. L'utilisateur n'aurait qu'à sélectionner le bon et on reviendrait au formulaire précédent.

    Je ne sais pas si c'est la solution la plus simple, mais c'est la seule qui m'ait venue.
    Je vais quand même chercher du côté de la seconde liste, mais si quelqu'un à une meilleur idée à me suggérer, je reste ouverte aux propositions

  8. #8
    Membre du Club
    Femme Profil pro
    Analyste-Développeur BI
    Inscrit en
    Mai 2011
    Messages
    61
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Analyste-Développeur BI

    Informations forums :
    Inscription : Mai 2011
    Messages : 61
    Points : 67
    Points
    67
    Par défaut
    Je me suis finalement débrouillée avec le lien de BornToBe mélangé à quelques sujets de la FAQ Access!

    Et tout fonctionne comme je le voulais
    Merci beaucoup.

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

Discussions similaires

  1. [AC-2010] Groupe d'options dans un formulaire
    Par dubdub1 dans le forum IHM
    Réponses: 10
    Dernier message: 17/04/2014, 15h56
  2. [AC-2010] Groupe d'options dans un formulaire
    Par dubdub1 dans le forum IHM
    Réponses: 10
    Dernier message: 11/04/2014, 14h01
  3. Réponses: 2
    Dernier message: 11/06/2008, 17h05
  4. Réponses: 12
    Dernier message: 07/02/2007, 16h12
  5. Insertion bouton d'option dans un formulaire
    Par Le Rebel dans le forum Langage
    Réponses: 1
    Dernier message: 09/02/2006, 09h36

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