visual basic : comment connaitre si formulaire est ouvert ou ferm

Bonjour,

Il faut utiliser la propriété IsLoaded de la classe AccessObjet, à partir de
la collection AllForms de la propriété Globale CurrentProject

Cet exemple de code devrait répondre à ta question.

Public Sub InfosEtatFormulaire(ByVal FormName As String)

Dim acFrm As AccessObject

Dim sState As String
Dim sView As String

Set acFrm = CurrentProject.AllForms(FormName)

If acFrm.IsLoaded Then

sState = "Formulaire chargé"
Select Case acFrm.CurrentView
Case acCurViewDatasheet: sView = "Feuille de données"
Case acCurViewDesign: sView = "Création"
Case acCurViewFormBrowse: sView = "Formulaire"
Case acCurViewPivotChart: sView = "Graphique croisé dynamique"
Case acCurViewPivotTable: sView = "Tableau croisé dynamique"
Case acCurViewPreview: sView = "Aperçu"
Case Else: sView = "<Inconnu>"
End Select

sState = sState & " en mode " & sView

Else

sState = "Formulaire non chargé"

End If

MsgBox sState

End Sub

Je souhaite connaitre si un formulaire est ouvert ou non. Quelle commande
faut-il utiliser dans visual basic

Salut,

J'utilise sur access 2000
if CurrentProject.allforms("NomForm").isloaded= true then
blablabla
else
blablabla
end if

Voilà..
amitiés
"LiR" <LiR@discussions.microsoft.com> a écrit dans le message de news:
5D39772E-3460-42F4-841E-DC06B14C6445@microsoft.com...

Bonjour,

Il faut utiliser la propriété IsLoaded de la classe AccessObjet, à partir
de
la collection AllForms de la propriété Globale CurrentProject

Cet exemple de code devrait répondre à ta question.

Public Sub InfosEtatFormulaire(ByVal FormName As String)

Dim acFrm As AccessObject

Dim sState As String
Dim sView As String

Set acFrm = CurrentProject.AllForms(FormName)

If acFrm.IsLoaded Then

sState = "Formulaire chargé"
Select Case acFrm.CurrentView
Case acCurViewDatasheet: sView = "Feuille de données"
Case acCurViewDesign: sView = "Création"
Case acCurViewFormBrowse: sView = "Formulaire"
Case acCurViewPivotChart: sView = "Graphique croisé dynamique"
Case acCurViewPivotTable: sView = "Tableau croisé dynamique"
Case acCurViewPreview: sView = "Aperçu"
Case Else: sView = "<Inconnu>"
End Select

sState = sState & " en mode " & sView

Else

sState = "Formulaire non chargé"

End If

MsgBox sState

End Sub

Je souhaite connaitre si un formulaire est ouvert ou non. Quelle commande
faut-il utiliser dans visual basic