Discussion :

[Jeremie_Vi]

Version acces : 2003
Bibilotheque utilisé : DAO

Je voudrais effectuer une requete avec comme critere
la valeur obtenue dans une combo box.

Merci d'avance pour les solutions que vous me proposerez

[xmarabout]

Il me semble qu'il suffit de mettre comme critère dans ton champ:
[forms].[Le nom de ton form].[Le nom de ton combo].value

[stéphane_ais2]

Bonjour et bienvenue,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
strSQL = "SELECT ..... FROM ......."
strSQL = srtSQL & "WHERE NomDuChamp = " & Me.NomZoneDeListe

SE

[Jeremie_Vi]

Merci pour vos réponses, néanmoins j'ai une erreur du type :

"run time error 3131
Syntax error in FORM clause"

Pour ce code :

strequete = "SELECT quotation_pre.description FROM quotation_pre"
strequete = strequete & "WHERE quotation_pre.connection=" & Me.Combo109
oDB.CreateQueryDef "requete1", strequete

Merci pour votre aide

[xmarabout]

Tel que tu l'as écrit là, si c'est un copier-coller de ton code, il y a effectivement une erreur car ton WHERE sera coller au nom de ta table. Mets un petit espace derrière le nom de ta table ou devant ton WHERE

[stéphane_ais2]

Montre-nous tout le code, s'il te plaît...

SE

[Jeremie_Vi]

Merci pour votre aide et la rapidité avec laquelle
vous m'avez repondu.

ps : il manquait effectivement un espace.

[elgringo2007]

Et comment faire quand la combo box contient 2 colonnes avec une colonne cachée (l'identifiant) ?

J'aimerai effectuer une requête avec l'identifiant associé à la valeur sélectionnée par la combo box.

Merci pour vos réponses

[Jeremie_Vi]

J'ai peut etre une solution mais c'est du bidouillage

Passe par une valeur intermediaire comme ceci

Dim val_inter as integer
val_inter = me.comboX
streq = "SELECT * FROM [ta table] "
streq = streq & "WHERE [ta table].[ton champ]=" & val_inter
Set oRSS = oDB.OpenRecordset(streq)

[elgringo2007]

C'est ce que je pensais faire, mais je me demandais s'il n'existait pas une méthode plus propre...

[Jeremie_Vi]

Essaye deja ca
et dis moi si sa marche chez toi.

tient moi au courant, pour que je puisse classer cette
discussion comme resolu si sa marche.

[stéphane_ais2]

Et comment faire quand la combo box contient 2 colonnes avec une colonne cachée (l'identifiant) ?

J'aimerai effectuer une requête avec l'identifiant associé à la valeur sélectionnée par la combo box.

Bonjour,

à priori cela ne change rien si la valeur liée au comboBox est la valeur de la première colonne (celle qui est masquée)...si j'ai bien compris le sens de ta demande...

SE

[elgringo2007]

Apparemment il existe une solution plus "propre" si l'on fait appel à la propriété column
Ainsi MaComboBox.Column(num col, num lign) permet de récupérer la valeur.

A tester donc.

[elgringo2007]

Cette technique est pleinement fonctionnelle.
Voici le code de mon application.

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
 
Dim i As Variant
Dim cnx As New ADODB.Connection
Dim rstP As New ADODB.Recordset
 
'Insertion dans la table tblPerimetre
For Each i In Me.lstPerimetre.ItemsSelected
    With rstP
        .Open "tblPerimetre", cnx, adOpenKeyset, adLockOptimistic
        .AddNew
            !lngContratID = ContratID
            !lngTypeProduitID = Me.lstPerimetre.Column(0, i)
        .Update
    End With
    rstP.Close
Next i