visualisation état

Bonjour.

Ton formulaire étant indépendant, il sera toujours dessus.
dès que tu as lancé ton état, tu fais un minimize et sur activation tu
places un maximize ou un restore en pensant bien que c'est ton report qui
aura le focus à ce moment-là.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Patoche" <patoche@patoche.com> a écrit dans le message de
news:OW5EjSGUDHA.3188@tk2msftngp13.phx.gbl...

Bonjour à tous,

Je souhaite visualiser un état lancé à partir d'un formulaire indépendant
et

ce à partir d'un bouton.
Malheureusement l'état s'affiche systématiquement derrière mon formulaire
.....
comment puis-je faire pour que cet état s'affiche au premier plan (pour
visu

avant impression)

merci d'avance pour vos réponses


Patoche

Bonjour Patoche,

Voici une solution qui fonctionne dans tout les mode, le principe est de
mettre tout les formulaires invisible durant la prévisualisation de l'état
et par la suite tout les formulaires redeviennent visible et le focus
revient sur le formulaires appelant,
la fonction s'utilise avec les même arguments que la méthode OpenReport mis
à par du paramètre optionnel "CallForm"

Salutation

Robert Simard
Logipro

Public Sub OpenReport(ReportName As String, Optional View As Integer,
Optional FilterName As String, Optional WhereCondition As String, Optional
Callform As Form, Optional OpenArgs As String)
On Error Resume Next 'For No data
Dim loFormArray() As String
Dim loform As Form
Dim intCount As Integer
Dim intx As Integer

For Each loform In Forms
If loform.Visible Then
ReDim Preserve loFormArray(intCount)
loFormArray(intCount) = loform.Name
loform.Visible = False
intCount = intCount + 1
End If
Next
DoCmd.OpenReport ReportName, View, FilterName, WhereCondition, ,
OpenArgs
' DoCmd.Maximize
'Call SendKeys("z")

Do While IsVisible(acReport, ReportName): DoEvents: Loop
'Do While CurrentProject.AllReports(ReportName).IsLoaded = True:
DoEvents: Loop

For intx = intCount - 1 To 0 Step -1
Forms(loFormArray(intx)).Visible = True
Next

If Callform.Name <> "" Then
DoCmd.SelectObject acForm, Callform.Name
End If

If Err = 2501 Then Err.Clear 'Erreur définie par l'application ou par
l'objet

End Sub

Function IsVisible(intObjType As Integer, strObjName As String) As Boolean
Dim intObjState As Integer
intObjState = SysCmd(acSysCmdGetObjectState, intObjType, strObjName)
IsVisible = intObjState And acObjStateOpen
End Function



"Patoche" <patoche@patoche.com> a écrit dans le message de
news:OW5EjSGUDHA.3188@tk2msftngp13.phx.gbl...

Bonjour à tous,

Je souhaite visualiser un état lancé à partir d'un formulaire indépendant
et

ce à partir d'un bouton.
Malheureusement l'état s'affiche systématiquement derrière mon formulaire
.....
comment puis-je faire pour que cet état s'affiche au premier plan (pour
visu

avant impression)

merci d'avance pour vos réponses


Patoche

Sl't

Ton formulaire étant indépendant, il sera toujours dessus.
dès que tu as lancé ton état, tu fais un minimize et sur activation tu
places un maximize ou un restore en pensant bien que c'est ton report qui
aura le focus à ce moment-là.

si tu mets ton etat independant, il devrait passer au premier plan meme
si ton form est independant
en tout cas chez moi ça marche comme ça


ja;)
qui ...

Merci à tous,


"Patoche" <patoche@patoche.com> a écrit dans le message de
news:OW5EjSGUDHA.3188@tk2msftngp13.phx.gbl...

Bonjour à tous,

Je souhaite visualiser un état lancé à partir d'un formulaire indépendant
et

ce à partir d'un bouton.
Malheureusement l'état s'affiche systématiquement derrière mon formulaire
.....
comment puis-je faire pour que cet état s'affiche au premier plan (pour
visu

avant impression)

merci d'avance pour vos réponses


Patoche