Discussion :

[facteur]

Bonjour,

J'essaie de créer un code vba qui, a partir d'une requete sql, m'afficherait le resultat dans une listebox.

je m'explique :
Dans un formulaire, j'ai :
- un texte_box
- un bouton de commande "envoyer"
- une liste_box

Dans le texte_box, j'insere un numero de colis. J'appuie ensuite sur le bouton "envoyer" et là je devrais voir apparaitre le resulat de ma requete sql dans la liste box.. mais rien ne s'affiche..

Je précise que je suis novice en language sql. J'ai donc crée ma requete en mode création puis je l'aie affiché en sql.
Dans cette requete sql , le numero de colis est une variable VNumerocolis ;
Deplus, je ne sais pas trop faire la difference entre WHERE ET HAVING.

Merci de votre aide

Voici le code sql :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Option Compare Database
Dim VNumerocolis As Variant
Dim txt_ChaineSQL As String
Dim strSQLSELECT As String
Dim strSQLWHERE As String
Dim strSQLGROUPBY As String
Dim strSQLORDERBY As String
Dim strSQLHAVING As String
 
Private Sub Cmd_envoyer_Click()
VNumerocolis = CVar(Texte_Numerocolis.Value)
 
 
With Me.Listerecirculation
.RowSourceType = "Table/Requête"
.ColumnCount = 5 ' nombre de colonne que dois avoir le formulaire intitulé "Listerecirculation"
.BoundColumn = 1 ' la colonne de reference
 
 
 
strSQLSELECT = "SELECT T_codecolisQUALITE.numcolis, dbo_vwParts.DisplayName, [table_Affich-general].[Nom Porte principale], [table_Affich-general].DESTINATION, dbo_vwItemData.DischargeEventTime" & _
" FROM T_codecolisQUALITE INNER JOIN ((dbo_vwItemData INNER JOIN dbo_vwParts ON dbo_vwItemData.DischargePartID = dbo_vwParts.ID) INNER JOIN [table_Affich-general] ON dbo_vwParts.DisplayName = [table_Affich-general].[Chute (format access)]) ON T_codecolisQUALITE.ItemID = dbo_vwItemData.ItemID"
 
 
strSQLGROUPBY = "GROUP BY T_codecolisQUALITE.numcolis, dbo_vwParts.DisplayName, [table_Affich-general].[Nom Porte principale], [table_Affich-general].DESTINATION"
 
strSQLHAVING = "HAVING T_codecolisQUALITE.numcolis=" & VNumerocolis & "  AND ((dbo_vwItemData.DischargeEventTime)>=(CVDate(Fix(Now()-(5/24)))+5/24)));"
 
 
 
'MsgBox VNumerocolis
'MsgBox strSQLHAVING
 
 
txt_ChaineSQL = strSQLSELECT & vbCrLf & _
                strSQLWHERE & vbCrLf & _
                strSQLGROUPBY & vbCrLf & _
                strSQLHAVING
 
'MsgBox txt_ChaineSQL
 
.RowSource = txt_ChaineSQL
.Requery
End With
 
End Sub

[marot_r]

Il y a une solution bien plus simple et sans presque de code.

Tu crées ta listbox, puis dans le source de ta listbox tu crée ta requête en mettant comme critere quelque chose qui ressemble à :

Code :

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

[forms]![NomTonFormulaire]![NomTonChampClef]

NomTonChampClef est celui qui alimente VNumerocolis.

Et tu mets sur l'événement Après MAJ (after update) de NomTonChampClef

Code :

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

me.NomTaListe.requery

Ceci va forcer la mise à jour des données affichées.

Note qu'utiliser un sous-formulaire lié au lieu d'une liste peut faire en sorte que tes données s'affichent plus rapidement.

Pour une de mes applications je suis passé de 60s à 3s pour afficher les mêmes informations.

A+

[facteur]

Salut Marot,

Le souci, c'est que je souhiterais avoir un texte box dans le formul

[facteur]

Salut Marot,

Le souci, c'est que je souhiterais avoir un texte box dans le formulaire où j'inserais le code colis.
Avec ta soultion si je ne me trompe pas, je n'aie pas la possibilité de rechercher les données à partir d 'un critère mentionné dans le texte box.

[marot_r]

[forms]![NomTonFormulaire]![NomTonChampClef] se réfère jsustement au contenu de ta textBox.

Tu peux utiliser n'importe quel contrôle d'un formulaire du moment qu'il affiche l'info dont tu as besoin dans ta requête. Un grand classique est d'utiliser une ComboBox (liste déroulante) pour ce genre de chose.

A+

[facteur]

marot,

je t 'assure que je prefere ce systeme de code vba..
Auparavemment, je fais des liste box issue de table et jamais d'une requete directement.
J'aimerais savoir pourquoi ma requete sql ne fonctionne pas

[marot_r]

Ok, la méthode la plus simple est de faire exécuter ton code puis quand ton SQL est final, le faire afficher dans la fenêtre d'éxécution immédiate (pour l'afficher taper [ctrl][g], puis print txt_ChaineSQL.

Après tu sélectionne le SQL et tu le copie.
Tu ouvre une nouvelle requête Access, tu passe en mode d'affichage "SQL" et tu colle le SQL.
Tu demande d'exécuter ta requête.
Après selon le résultat tu modfie tes critères ou tes jointures.
Une fois que la requête donne le resultat attendu tu mets le SQL dans le code.

A+

[facteur]

la je nage en eau trouble...
il me faudrait un coup de main...

[facteur]

J'ai trouve dans ce forum une discussion de tee_grandbois sur les zone de selection multiples sur access.
Je me demandais si je pouvais m'en inspirer ??

[facteur]

Marot,
J'ai crée une liste_box dans mon formulaire.
Mais je m'apercois que je ne peux pas y inscrire les numeros de colis.

[facteur]

Bonjour marot,
Lorsque tu ecris

il faut utiliser une listbox à sélection multiple

,faut il que je puisse ecrire dans cette liste box les codes colis. Et ce n'est pas le cas.
je suis perdu..

[marot_r]

On ne peut pas simplement écrire dans une listBox.

La listBox à sélection multiple affiche une liste de valeur et l'utilisateur peut en choisir plusieurs parmis celles-ci.

Si tu veux une liste comme tu le décris, je procéderai ainsi :
avoir un textBox (ou une comboBox) qui permet à l'utilisateur de saisir le numéro de colis.
Du code qui ajoute le numéro choisi à la liste.

Bon ça c'est la solution lourde :-).

Une solution plus légère consiste à avoir une table temporaire

Table TemporaireClient
NumColis

où on enregistre les numéros de colis et un sous-formulaire basé sur cette table.

Ensuite on utilise cette table comme source de données avec une jointure par exemple.

A+