Discussion :

[sebing]

Bonjour,

J'ai fais une requete qui contient 31 colonnes (une par jour), je souhaiterai afficher les valeurs d'une colonne dans un message lorsque je clique sur un bouton de mon formulaire.
Ma requete se nomme Rqt_personnes_manquantes, ma colonne se nomme 1.

Dans cette exemple il y a 27 resultats pour la colonne 1.

Je pense qu'il faudrait effectuer une boucle, mais je ne maitrise pas du tout et les recherches sur le net ne m'ont pas aidées a avancer.

Pouvez vous m'aider?
Je vous en remercie par avance.

Seb

[zoom61]

Salut,

Quelque chose comme cela :

Code :

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

1
2
3
4
5
6
Set oSQL = CurrentDb.QueryDefs("Requête3")
txt = ""
For Each rSQL In oSQL.Fields
    txt = txt & Chr(10) & rSQL.Name
Next
MsgBox txt

@+.

[Invité]

Bonjour
Pour comprendre le principe:
http://jdgayot.developpez.com/tutori...ultats-labels/

[sebing]

Salut,

Quelque chose comme cela :

Code :

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

1
2
3
4
5
6
Set oSQL = CurrentDb.QueryDefs("Requête3")
txt = ""
For Each rSQL In oSQL.Fields
    txt = txt & Chr(10) & rSQL.Name
Next
MsgBox txt

@+.

Merci pour cette réponse rapide.

J'ai remplacé "Requête3" par "Rqt_personnes_manquantes" mais ca me liste que les noms des colonnes de ma requete et non les valeurs de ma colonne 1.
je continue a faire des recherche afin de comprendre le code donné et le modifier afin d'obtenir le résultat escompté.
encore meri de votre aide
Seb

[zoom61]

J'ai cru que tu voulais le nom des colonnes, sinon tu fais :

Code :

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

1
2
3
4
5
6
Set oSQL = CurrentDb.QueryDefs("Requête3")
txt = ""
For Each rSQL In oSQL.Fields
    txt = txt & chr(10) & oSQL(0)
Next
MsgBox txt

Attention, tu es limité en nombre de ligne dans un msgbox !

@+.

[sebing]

J'ai cru que tu voulais le nom des colonnes, sinon tu fais :

Code :

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

1
2
3
4
5
6
Set oSQL = CurrentDb.QueryDefs("Requête3")
txt = ""
For Each rSQL In oSQL.Fields
    txt = txt & chr(10) & oSQL(0)
Next
MsgBox txt

Attention, tu es limité en nombre de ligne dans un msgbox !

@+.

Merci encore, mais rien n'apparait , ma msgbox est vide.
Ou dois je mettre le nom de la colonne?
Désole pour le derangement
seb

[zoom61]

A la place de oSQL(0) met le nom de la colonne oSQL("Nom_Colonne").

@+.

[sebing]

A la place de oSQL(0) met le nom de la colonne oSQL("Nom_Colonne").

@+.

Encore merci de ton aide
C'est ce que j'avais essayé de faire mais un message d'erreur apparait : "Erreur d'execution 3265,Element non trouvé dans cette collection".

Je comprend pas

[zoom61]

Es-tu sur que ta requête à des résultats ?

[sebing]

Es-tu sur que ta requête à des résultats ?

Oui ma requete a 13 résultats (numérique et texte).
J'ai essayé en modifiant les noms des colonnes mais rien n'y fait.

[zoom61]

Peux-tu envoyer le code de la requête ?

[sebing]

Peux-tu envoyer le code de la requête ?

Voila le code de ma requete :

Code :

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

1
2
SELECT IIf(IsNull([1]),[CodeG],[1]) AS 0, IIf(IsNull([2]),[CodeG],[2]) AS deux, IIf(IsNull([3]),[CodeG],[3]) AS 3_, IIf(IsNull([4]),[CodeG],[4]) AS 4_, IIf(IsNull([5]),[CodeG],[5]) AS 5_, IIf(IsNull([6]),[CodeG],[6]) AS six, IIf(IsNull([7]),[CodeG],[7]) AS 7_, IIf(IsNull([8]),[CodeG],[8]) AS 8_, IIf(IsNull([9]),[CodeG],[9]) AS 9_, IIf(IsNull([10]),[CodeG],[10]) AS 10_, IIf(IsNull([11]),[CodeG],[11]) AS 11_, IIf(IsNull([12]),[CodeG],[12]) AS 12_, IIf(IsNull([13]),[CodeG],[13]) AS 13_, IIf(IsNull([14]),[CodeG],[14]) AS 14_, IIf(IsNull([15]),[CodeG],[15]) AS 15_, IIf(IsNull([16]),[CodeG],[16]) AS 16_, IIf(IsNull([17]),[CodeG],[17]) AS 17_, IIf(IsNull([18]),[CodeG],[18]) AS 18_, IIf(IsNull([19]),[CodeG],[19]) AS 19_, IIf(IsNull([20]),[CodeG],[20]) AS 20_, IIf(IsNull([21]),[CodeG],[21]) AS 21_, IIf(IsNull([22]),[CodeG],[22]) AS 22_, IIf(IsNull([23]),[CodeG],[23]) AS 23_, IIf(IsNull([24]),[CodeG],[24]) AS 24_, IIf(IsNull([25]),[CodeG],[25]) AS 25_, IIf(IsNull([26]),[CodeG],[26]) AS 26_, IIf(IsNull([27]),[CodeG],[27]) AS 27_, IIf(IsNull([28]),[CodeG],[28]) AS 28_, IIf(IsNull([29]),[CodeG],[29]) AS 29_, IIf(IsNull([30]),[CodeG],[30]) AS 30_, IIf(IsNull([31]),[CodeG],[31]) AS 31_
FROM [Copie de R_Planning_Analyse croisée(1)];

Merci encore de ton aide

[zoom61]

Tes colonnes sont nommées bizarrement : "x_", cela peut venir de là ? Essaye ne les renommant avec du texte !

[sebing]

Tes colonnes sont nommées bizarrement : "x_", cela peut venir de là ? Essaye ne les renommant avec du texte !

Je les ai renommées un ou deux... ça marche pas, j'ai meme essayé en essayant sur une autre requete mais toujours la meme erreur

voila le code que je mets:

Code :

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

1
2
3
4
5
6
7
8
Private Sub nb_piquets_manquants_1_Click()
Set oSQL = CurrentDb.QueryDefs("Rqt_piquet_manquant")
txt = ""
For Each rSql In oSQL.Fields
        txt = txt & Chr(10) & oSQL("deux")
Next
MsgBox txt
End Sub

[zoom61]

Quand tu es dans le code VBA, fait F8 pour voir le déroulement pas à pas, et voir où cela bloque vraiment !

[sebing]

Quand tu es dans le code VBA, fait F8 pour voir le déroulement pas à pas, et voir où cela bloque vraiment !

c'est cette ligne qui est surlignée en jaune:

Code :

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

txt = txt & Chr(10) & oSQL("deux")

[zoom61]

Oh !!! La boulette, c'est txt = txt & Chr(10) & rSQL("deux")

[sebing]

Oh !!! La boulette, c'est txt = txt & Chr(10) & rSQL("deux")

Donc j'ai mis le code

Code :

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

1
2
3
4
5
6
7
8
Private Sub nb_piquets_manquants_1_Click()
Set oSQL = CurrentDb.QueryDefs("Rqt_piquet_manquant")
txt = ""
For Each rSQL In oSQL.Fields
        txt = txt & Chr(10) & rSQL("deux")
Next
MsgBox txt
End Sub

Mais maintenant j'ai "Erreur d'execution '3219' Opération non valide "

C'est la ligne

Code :

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

txt = txt & Chr(10) & rSQL("deux")

qui est surlignée en jaune.
Je nage complet, je te remercie encore de ta patience et ton aide

[zoom61]

Alors essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub nb_piquets_manquants_1_Click()
    Set oSQL = CurrentDb.QueryDefs("Rqt_piquet_manquant")
    txt = ""
    With oSQL
        Do While Not .EOF
	    txt = txt & Chr(10) & orSQL("deux")
            oSQL.MoveNext
        Loop
    End With
    oSQL.Close
    MsgBox txt
End Sub

@+.

[sebing]

Alors essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub nb_piquets_manquants_1_Click()
    Set oSQL = CurrentDb.QueryDefs("Rqt_piquet_manquant")
    txt = ""
    With oSQL
        Do While Not .EOF
	    txt = txt & Chr(10) & orSQL("deux")
            oSQL.MoveNext
        Loop
    End With
    oSQL.Close
    MsgBox txt
End Sub

@+.

Merci j essaie demain car je ne suis plus derrière ACCESS et je te tiens au courant.
Bonne soirée
Seb