OVH Cloud OVH Cloud

msgbox +requete

5 réponses
Avatar
lou
bonjour

comment afficher dans un msgbox le résultat d'une requete

merci de votre aide

5 réponses

Avatar
Raymond [mvp]
Bonjour.

pourquoi afficher une requête par msgbox alors que la requête peut
s'afficher plein écran par openquery avec une présentation structurée ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
4235d127$0$30171$
bonjour

comment afficher dans un msgbox le résultat d'une requete

merci de votre aide




Avatar
lou
bonjour raymond

selon le critere affiché dans un formulaire le msgbox doit apparaitre au
dessus du form avec le résultat d'une requete (basée sur une table)
et j'ai oublié de dire que chaque ligne de la table doit faire une ligne
dans le msgbox

le patron de la boite veux cela
c'est pas de ma faute
merci

"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

pourquoi afficher une requête par msgbox alors que la requête peut
s'afficher plein écran par openquery avec une présentation structurée ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
4235d127$0$30171$
bonjour

comment afficher dans un msgbox le résultat d'une requete

merci de votre aide








Avatar
Raymond [mvp]
Ton patron connait-il msgbox et combien de lignes on peut afficher avec un
msgbox ? et comment peut-on les structurer pour l'affichage ? Si la requête
sort 500 lignes que fait-on ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
4235dfee$0$30164$
bonjour raymond

selon le critere affiché dans un formulaire le msgbox doit apparaitre au
dessus du form avec le résultat d'une requete (basée sur une table)
et j'ai oublié de dire que chaque ligne de la table doit faire une ligne
dans le msgbox

le patron de la boite veux cela
c'est pas de ma faute
merci



Avatar
j.gonzalez5
Essaye ce code (Acces 97)

Sub msgRequete()
Dim rec As Recordset, i As Integer, ligne As String
Const separateurColonne As String = vbTab

'ouverture d'un recordset sur la requête Requête1
Set rec = CurrentDb.OpenRecordset("Requête1")
With rec
Do Until .EOF
'parcours de tous les champs de la requête
For i = 0 To .Fields.Count - 1
ligne = ligne & Nz(.Fields(i).Value, "") & IIf(i .Fields.Count - 1, "", separateurColonne)
Next i
'ajout d'un saut de ligne quand on est à la fin d'un
enregistrement
ligne = ligne & vbNewLine
'passage à la ligne suivante
.MoveNext
Loop
.Close
Set rec = Nothing
End With

'suppression du saut de ligne final
If Len(ligne) > 2 Then ligne = Left(ligne, Len(ligne) - 2)

MsgBox ligne
End Sub

bonjour raymond

selon le critere affiché dans un formulaire le msgbox doit apparaitre au
dessus du form avec le résultat d'une requete (basée sur une table)
et j'ai oublié de dire que chaque ligne de la table doit faire une ligne
dans le msgbox

le patron de la boite veux cela
c'est pas de ma faute
merci

"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

pourquoi afficher une requête par msgbox alors que la requête peut
s'afficher plein écran par openquery avec une présentation structurée ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
4235d127$0$30171$
bonjour

comment afficher dans un msgbox le résultat d'une requete

merci de votre aide






Avatar
lou
C EST PARFAIT

MERCI


"jb" a écrit dans le message de news:

Essaye ce code (Acces 97)

Sub msgRequete()
Dim rec As Recordset, i As Integer, ligne As String
Const separateurColonne As String = vbTab

'ouverture d'un recordset sur la requête Requête1
Set rec = CurrentDb.OpenRecordset("Requête1")
With rec
Do Until .EOF
'parcours de tous les champs de la requête
For i = 0 To .Fields.Count - 1
ligne = ligne & Nz(.Fields(i).Value, "") & IIf(i > .Fields.Count - 1, "", separateurColonne)
Next i
'ajout d'un saut de ligne quand on est à la fin d'un
enregistrement
ligne = ligne & vbNewLine
'passage à la ligne suivante
.MoveNext
Loop
.Close
Set rec = Nothing
End With

'suppression du saut de ligne final
If Len(ligne) > 2 Then ligne = Left(ligne, Len(ligne) - 2)

MsgBox ligne
End Sub

bonjour raymond

selon le critere affiché dans un formulaire le msgbox doit apparaitre
au


dessus du form avec le résultat d'une requete (basée sur une table)
et j'ai oublié de dire que chaque ligne de la table doit faire une ligne
dans le msgbox

le patron de la boite veux cela
c'est pas de ma faute
merci

"Raymond [mvp]" a écrit dans le
message de


news:
Bonjour.

pourquoi afficher une requête par msgbox alors que la requête peut
s'afficher plein écran par openquery avec une présentation structurée
?




--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
4235d127$0$30171$
bonjour

comment afficher dans un msgbox le résultat d'une requete

merci de votre aide