formulaire independant et état

bonjour

dans un formulaire "monform" qui est independant
j'ai un bouton qui ouvre un état "monétat"
le probleme c'est qu'il s'ouvre derriere le formulaire
j'ai trouvé ce code qui permet d'ouvrir l'etat devant le formulaire mais
etant debutant je ne sais pas de quelle maniere le faire fonctionner sur mon
formulaire

voici le code:

Sub OpenReport(ReportName As String, Optional View As Integer, Optional _
FilterName As String, Optional WhereCondition As String)
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
Do While IsVisible(acReport, ReportName): DoEvents: Loop
For intX = intCount - 1 To 0 Step -1
Forms(loFormArray(intX)).Visible = True
Next
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

merci de votre aide

Salut
Pour ouvrir un état au premier plan tu le mets en acDialog
DoCmd.OpenReport "NomEtat", acViewPreview, , , acDialog

Ouala
Bye
Buddy

"lou" <colluluigi@skynet.be> a écrit dans le message de
news:4100d1fd$0$394$ba620e4c@news.skynet.be...

bonjour

dans un formulaire "monform" qui est independant
j'ai un bouton qui ouvre un état "monétat"
le probleme c'est qu'il s'ouvre derriere le formulaire
j'ai trouvé ce code qui permet d'ouvrir l'etat devant le formulaire mais
etant debutant je ne sais pas de quelle maniere le faire fonctionner sur
mon

formulaire

voici le code:

Sub OpenReport(ReportName As String, Optional View As Integer, Optional
_

FilterName As String, Optional WhereCondition As String)
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
Do While IsVisible(acReport, ReportName): DoEvents: Loop
For intX = intCount - 1 To 0 Step -1
Forms(loFormArray(intX)).Visible = True
Next
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

merci de votre aide

dans un formulaire "monform" qui est independant
j'ai un bouton qui ouvre un état "monétat"
le probleme c'est qu'il s'ouvre derriere le formulaire
j'ai trouvé ce code qui permet d'ouvrir l'etat devant le formulaire mais

etant debutant je ne sais pas de quelle maniere le faire fonctionner sur mon
formulaire

voici le code:

Sub OpenReport(ReportName As String, Optional View As Integer, Optional _
FilterName As String, Optional WhereCondition As String)

Salut,

"lou"

dans un formulaire "monform" qui est independant
j'ai un bouton qui ouvre un état "monétat"
le probleme c'est qu'il s'ouvre derriere le formulaire
j'ai trouvé ce code qui permet d'ouvrir l'etat devant le formulaire mais

Pas tout a fait...
En fait, il met les formulaires ouverts en mode invisible et
attend que tu ferme l'état pour les rendre visible.

etant debutant je ne sais pas de quelle maniere le faire fonctionner sur
mon

formulaire

voici le code:

Sub OpenReport(ReportName As String, Optional View As Integer, Optional
_

FilterName As String, Optional WhereCondition As String)

Le code fonctionne tout seul...
Il suffit d'utiliser la sub OpenReport en lieu et place du
traditionnel:

DoCmd.Openreport (....)

Après avoir collé tout le code dans le formulaire, bien sur ;-)


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------