ACCESS / VBA probleme requete combobox
Résolu
Bonjour,
je développe une application sous ACCESS en VBA.
Dans un formulaire je veux afficher les résultats d'une requete dans un combobox mais j'arrive pas a le faire.
Merci.
je développe une application sous ACCESS en VBA.
Dans un formulaire je veux afficher les résultats d'une requete dans un combobox mais j'arrive pas a le faire.
Merci.
Configuration: Windows XP Internet Explorer 7.0
9 réponses
-
Bonjour,
Dans ton code VBA, met ta requête SQL dans une variable
et ensuite configure 2 champs de ta combobox.
ma_requete_sq="select ... from ...";
cmboNames.RowSourceType = "Table/Query"
cmboNames.RowSource = ma_requete_sql
Ensuite fait un Requery pour calculer le résultat de ta requête.
Ta combo sera remplie automatiquement avec tes valeurs.
Cdlt. -
Merci pour ta réponse mais j'ai déja essayer cette cette solution.
en fait j'ai 2 combobox dans le 1er il ya des valeurs à partir d'une table et je veux en choisissant une valeur,le 2eme combo contenira les valeurs correspondant à cette valeur à partir d'une autre table.
avec cette solution lorsque je change la valeur du 1er combobox les valeurs du 2eme ne change pas.-
d'abord tu dois ecrire la requete dans combobox 1(on double cliquant sur combo1), par exemple:
Imports System.Data.OleDb
Public Class Form1
Inherits System.Windows.Forms.Form
Dim command As OleDbCommand
Dim cnx As OleDbConnection
Dim dr As OleDbDataReader
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
command = New OleDbCommand("select champ1 from table where champ='" & ComboBox1.Text & "'", cnx)
dr = command.ExecuteReader
While dr.Read
ComboBox2.Items.Add(dr(0))
End While
dr.Close()
cnx.Close()
End Sub
End Class -
@IsmèneeC'est ça mais c'est beacoup trop compliqué comme code pour le même résultat.
Mon idée (et je l'ai appliqué) est de construire tes interfaces avec tes combobox, de définir pour chacune les requête en mettant comme critère la valeur du champs précédent.
Ensuite pour chaque evenement 'AfterChange' des combos tu places dans le code combo_de_la_prochaine combobox.requery.
Ceci indiquera de réévaluer la requête de la combo suivante et tu auras tes valeurs automatiquement. -
-
-
J'ai fait ce genre d'interface.
Dans ta combo1 tu mets ta requête principale.
Dans ta combo2 tu crées ta requête avec comme critères la valeur de la combo1:
Exemple de sélection d'un lieu depuis un nom de societe (traduction en SQL du constructeur de requête):
SELECT lieu
FROM Societe
WHERE (((nom)=[combo1]));
Sur l'évènement 'AfterUpdate' de combo1 tu mets: combo2.Requery
Et ceci marche très bien
Cdlt. -
Merci bcp mais j'ai un message d'erreur : Microsoft Office Access ne peut pas trouver la macro combo2.requery
:-( -
oui bien sur jai mi le nom de mon combo,c'etai juste pour t'expliquer l'erreur
-
Dans combo1 'RowSource' :(Modifiable7 est le nom du 1er combo)
SELECT FONCIER.TITRE FROM FONCIER ORDER BY [TITRE];
Dans combo2 'RowSource' : (Modifiable38 est le nom du 2eme combo)
SELECT NUMP FROM PARCELLE WHERE TITRE=Modifiable7;
Dans Combo1 'AfterUpdate' :
Modifiable38.Requery -
Meme si j'ai ajouté [],le meme message d'ereur s'affiche.
le probleme est dans Modifiable7.Requery
Car la requete donne pour la 1ere fois les valeurs correspondant au combo1 mai lorsque je veu changer la valeur du 1er combo ça marche pa :-( -
Ok merci pour ts mon prob é résolu
dans AfterUpdate jai choisi Generateur de Macro
et dans Action jai choisi executer le code
et jai Taper Modifiable7.Requery dans Nom de la fonction
Merci bcp dmoniac75 é Ismène é dézolé pour dérangement ;-) -
ok merci a+
