Recuperer element d'une liste pour requete sql [Résolu]
yafee
- Messages postés
- 34
- Date d'inscription
- lundi 27 décembre 2010
- Statut
- Membre
- Dernière intervention
- 8 janvier 2011
- Messages postés
- 13298
- Date d'inscription
- lundi 13 décembre 2004
- Statut
- Modérateur
- Dernière intervention
- 3 février 2018
A voir également:
- Recuperer element d'une liste pour requete sql
- Lister une requete sql sur plusieurs pages - Codes sources - PHP (SQL)
- Fonction listant une requête sql - Codes sources - PHP (Base de données)
- Problème javascript + liste déroulante + requête SQL ✓ - Forum - Javascript / DHTML
- Requete sql pour recuperer le dernier enregistrement inséré - Forum - SQL
- Recuperer un element d'une liste c# - Forum - C / C++ / C++.NET
18 réponses
Meilleure réponse
- Messages postés
- 13298
- Date d'inscription
- lundi 13 décembre 2004
- Statut
- Modérateur
- Dernière intervention
- 3 février 2018
salut,
un combo (cmbIntitule) ne peut avoir qu'un seul item sélectionné, accessible par .TEXT
si c'est une liste, tu devrais revoir ta nomenclature
et dans ce cas le code est :
http://www.codyx.org/snippet_compter-lister-items-selectionnes-listbox_789.aspx
++
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
un combo (cmbIntitule) ne peut avoir qu'un seul item sélectionné, accessible par .TEXT
si c'est une liste, tu devrais revoir ta nomenclature
et dans ce cas le code est :
http://www.codyx.org/snippet_compter-lister-items-selectionnes-listbox_789.aspx
++
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
206 internautes nous ont dit merci ce mois-ci
- Messages postés
- 13298
- Date d'inscription
- lundi 13 décembre 2004
- Statut
- Modérateur
- Dernière intervention
- 3 février 2018
ah?....
Dim
sFields()
As String
Dim
sSql
As String
If
GetSelectedItems(List1, sFields) >
0
Then
sSql = "SELECT " & Join(sFields, ", ") & " FROM
MATABLE;"
MsgBox sSql
Else
MsgBox "Veuilez sélectionner vos champs
de recherche"
'ou alors
TOUS
sSql = "SELECT
* FROM MATABLE;"
End If
<small>
[../code.aspx?ID=39466 Coloration VB6, VBA,
VBS]
</small>
Dim
sFields()
As String
Dim
sSql
As String
If
GetSelectedItems(List1, sFields) >
0
Then
sSql = "SELECT " & Join(sFields, ", ") & " FROM
MATABLE;"
MsgBox sSql
Else
MsgBox "Veuilez sélectionner vos champs
de recherche"
'ou alors
TOUS
sSql = "SELECT
* FROM MATABLE;"
End If
<small>
[../code.aspx?ID=39466 Coloration VB6, VBA,
VBS]
</small>
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
206 internautes nous ont dit merci ce mois-ci
- Messages postés
- 13298
- Date d'inscription
- lundi 13 décembre 2004
- Statut
- Modérateur
- Dernière intervention
- 3 février 2018
tu boucles comme dans la fonction, avec selected(i) = true
ps : pense à valider avec "réponse acceptée"
ps : pense à valider avec "réponse acceptée"
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
206 internautes nous ont dit merci ce mois-ci
- Messages postés
- 34
- Date d'inscription
- lundi 27 décembre 2010
- Statut
- Membre
- Dernière intervention
- 8 janvier 2011
En appelant ma fonction en cliquant sur un bouton j'ai un message d'erreur : "Espace de pile insuffisant"
Private Sub cmdGenerer_Click()
Dim items() As String
Call GetSelectedItems(liste1, items)
End Sub
Le debogeur point sur cette ligne de code :
MsgBox "il y a " & CStr(GetSelectedItems(liste1)) & " item(s) sélectionné(s)"
Quel est le problème ?
Private Sub cmdGenerer_Click()
Dim items() As String
Call GetSelectedItems(liste1, items)
End Sub
Le debogeur point sur cette ligne de code :
MsgBox "il y a " & CStr(GetSelectedItems(liste1)) & " item(s) sélectionné(s)"
Quel est le problème ?
- Messages postés
- 34
- Date d'inscription
- lundi 27 décembre 2010
- Statut
- Membre
- Dernière intervention
- 8 janvier 2011
ReBonjour,
J'aimerais afficher le résultat dans ma requête dans une feuille Excel , voici mon code :
Dim bd As Database
Dim rst As Recordset
Set bd = OpenDatabase("....mdb")
Dim sFields() As String
Dim champs As String
Dim i As Integer
If GetSelectedItems(liste1, sFields) > 0 Then
champs = Join(sFields, ", ")
End If
Set rst = bd.OpenRecordset("Select " & champs & " From formation")
Set myExcel = CreateObject("Excel.Application")
myExcel.Visible = True 'Affiche ou non l'application excel
Set myWk = myExcel.Workbooks.Add
i = 1
Do Until rst.EOF
myWk.Sheets(1).Rows(i) = rst(" & champs & ")
rst.MoveNext
i = i + 1
Loop
Mais il ne trouve apparemment pas les champs dans ma bdd "element non trouve dans cette collection"
Ais-je mal utiliser mon recordset ?
J'aimerais afficher le résultat dans ma requête dans une feuille Excel , voici mon code :
Dim bd As Database
Dim rst As Recordset
Set bd = OpenDatabase("....mdb")
Dim sFields() As String
Dim champs As String
Dim i As Integer
If GetSelectedItems(liste1, sFields) > 0 Then
champs = Join(sFields, ", ")
End If
Set rst = bd.OpenRecordset("Select " & champs & " From formation")
Set myExcel = CreateObject("Excel.Application")
myExcel.Visible = True 'Affiche ou non l'application excel
Set myWk = myExcel.Workbooks.Add
i = 1
Do Until rst.EOF
myWk.Sheets(1).Rows(i) = rst(" & champs & ")
rst.MoveNext
i = i + 1
Loop
Mais il ne trouve apparemment pas les champs dans ma bdd "element non trouve dans cette collection"
Ais-je mal utiliser mon recordset ?