Rechercher : dans
Par :

ACCESS / VBA probleme requete combobox

Dernière réponse le 22 jui 2008 à 12:00:38 saanaa, le 21 jui 2008 à 16:13:35 
 Signaler ce message aux modérateurs

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.

Configuration: Windows XP
Internet Explorer 7.0

Meilleures réponses pour « ACCESS / VBA probleme requete combobox » dans :
VBA Un timer une seconde tout simple VoirEn VBA, il n'y a pas (du moins à ma connaissance) de composant Timer. On peut en créer un très facilement. Dans un module de feuille Activer/ dés activer le timer : Placer un bouton sur Feuil1 et mettre le code... Private Sub...
[VBA]Connecter une base de donnée (MDB) à excel VoirConnecter une base de donnée access (MDB) dans une application excel. Ajouter la référence Microsoft DAO object librairy X.X Dans un module général (Module1 par exemple) coller le code ci-dessous Sub CopieDBaccess() Dim BDexp As...

1

dmoniac75, le 22 jui 2008 à 09:27:24

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.

Répondre à dmoniac75

2

saanaa, le 22 jui 2008 à 10:20:50

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.

Répondre à saanaa

4

Ismènee, le 22 jui 2008 à 11:06:26

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

Répondre à Ismènee

8

dmoniac75, le 22 jui 2008 à 11:17:33
  • +1

C'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.

Répondre à dmoniac75

3

dmoniac75, le 22 jui 2008 à 10:42:23

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.

Répondre à dmoniac75

5

saanaa, le 22 jui 2008 à 11:08:02

Merci bcp mais j'ai un message d'erreur : Microsoft Office Access ne peut pas trouver la macro combo2.requery
:-(

Répondre à saanaa

6

dmoniac75, le 22 jui 2008 à 11:12:59

Combo1 et combo2 sont des exemples.

Pour toi, tu dois mettre le nom de tes combobox.

Répondre à dmoniac75

7

saanaa, le 22 jui 2008 à 11:16:21

Oui bien sur jai mi le nom de mon combo,c'etai juste pour t'expliquer l'erreur

Répondre à saanaa

9

dmoniac75, le 22 jui 2008 à 11:19:15

Donne moi ton code que je vois ce qu'il ne vas pas.

Répondre à dmoniac75

10

saanaa, le 22 jui 2008 à 11:26:09

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

Répondre à saanaa

11

dmoniac75, le 22 jui 2008 à 11:37:38

Mets des [] pour indiqué le nom de la combo.

SELECT NUMP FROM PARCELLE WHERE TITRE=[Modifiable7];

Répondre à dmoniac75

12

saanaa, le 22 jui 2008 à 11:43:14

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 :-(

Répondre à saanaa

14

dmoniac75, le 22 jui 2008 à 11:54:28

Liste moi les méthodes de ton contrôle en faisant : Modifiable7. (et ensuite Ctrl+Espace)
Et regarde dans la liste ce qu'il te propose.

Question : tu es sous Access 2000, 2003, 2007 ?

Répondre à dmoniac75

13

saanaa, le 22 jui 2008 à 11:52:56

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 ;-)

Répondre à saanaa

15

dmoniac75, le 22 jui 2008 à 11:58:06

Oublie pas de mettre ton problème en 'Résolu'.

@+

Répondre à dmoniac75

16

 saanaa, le 22 jui 2008 à 12:00:38

Ok merci a+

Répondre à saanaa
Collection CommentÇaMarche.net