bonjour,
dans une base access 2k, j'ai 2 formulaires Form1 et Form2
dans Form2, en cliquant sur un btn je voudrais effectu=E9=20
une action (Action1) sur une condition :
si Form1 est ouvert alors Action1
sinon Action2
mon probl=E8me est que je n'arrive pas =E0 faire r=E9f=E9rence =E0=20
Form1 dns cette condition
est-ce d'ailleurs possible ?
une id=E9e ?
merci d'avance
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Guy Detienne
Salut,
Ci-dessous, tu trouveras une fonction tirée du site www.mvps.orgaccess qui permet de savoir si un formulaire est ouvert. Pour ce qui est de tes conditions, voici ce dont je te propose:
If fIsLoaded("Form1") Then 'Action 1 Else 'Action2 End If
'Fonction de détection d'un formulaire ouvert Function fIsLoaded(ByVal strFormName As String) As Integer 'Returns a 0 if form is not open or a -1 if Open If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then If Forms(strFormName).CurrentView <> 0 Then fIsLoaded = True End If End If End Function
Bonne prog'
Guy DETIENNE
"ermont" a écrit dans le message de news: 05be01c34f68$34faa360$ bonjour, dans une base access 2k, j'ai 2 formulaires Form1 et Form2 dans Form2, en cliquant sur un btn je voudrais effectué une action (Action1) sur une condition : si Form1 est ouvert alors Action1 sinon Action2
mon problème est que je n'arrive pas à faire référence à Form1 dns cette condition est-ce d'ailleurs possible ? une idée ? merci d'avance
Salut,
Ci-dessous, tu trouveras une fonction tirée du site www.mvps.orgaccess qui
permet de savoir si un formulaire est ouvert.
Pour ce qui est de tes conditions, voici ce dont je te propose:
If fIsLoaded("Form1") Then
'Action 1
Else
'Action2
End If
'Fonction de détection d'un formulaire ouvert
Function fIsLoaded(ByVal strFormName As String) As Integer
'Returns a 0 if form is not open or a -1 if Open
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then
If Forms(strFormName).CurrentView <> 0 Then
fIsLoaded = True
End If
End If
End Function
Bonne prog'
Guy DETIENNE
"ermont" <eric.montaudon@jouy.inra.fr> a écrit dans le message de news:
05be01c34f68$34faa360$a101280a@phx.gbl...
bonjour,
dans une base access 2k, j'ai 2 formulaires Form1 et Form2
dans Form2, en cliquant sur un btn je voudrais effectué
une action (Action1) sur une condition :
si Form1 est ouvert alors Action1
sinon Action2
mon problème est que je n'arrive pas à faire référence à
Form1 dns cette condition
est-ce d'ailleurs possible ?
une idée ?
merci d'avance
Ci-dessous, tu trouveras une fonction tirée du site www.mvps.orgaccess qui permet de savoir si un formulaire est ouvert. Pour ce qui est de tes conditions, voici ce dont je te propose:
If fIsLoaded("Form1") Then 'Action 1 Else 'Action2 End If
'Fonction de détection d'un formulaire ouvert Function fIsLoaded(ByVal strFormName As String) As Integer 'Returns a 0 if form is not open or a -1 if Open If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then If Forms(strFormName).CurrentView <> 0 Then fIsLoaded = True End If End If End Function
Bonne prog'
Guy DETIENNE
"ermont" a écrit dans le message de news: 05be01c34f68$34faa360$ bonjour, dans une base access 2k, j'ai 2 formulaires Form1 et Form2 dans Form2, en cliquant sur un btn je voudrais effectué une action (Action1) sur une condition : si Form1 est ouvert alors Action1 sinon Action2
mon problème est que je n'arrive pas à faire référence à Form1 dns cette condition est-ce d'ailleurs possible ? une idée ? merci d'avance
André AVONS
Salut Dans nouveau module '=======Þbut======== Function IsLoaded(ByVal strFormName As String) As Boolean ' Retourne Vrai si le formulaire spécifié est ouvert ' en mode Création ou en mode Feuille de données. Dim oAccessObject As AccessObject
Set oAccessObject = CurrentProject.AllForms(strFormName) If oAccessObject.IsLoaded Then If oAccessObject.CurrentView <> acCurViewDesign Then IsLoaded = True End If End If
End Function '==========================Fin Dans le form2 sur clic d'un bouton par exemple If isloaded("Form1") Then Forms!Form1!Texte1 = "Blabla" Else 'Autre Chose End if
-- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ "ermont" a écrit dans le message de news:05be01c34f68$34faa360$ bonjour, dans une base access 2k, j'ai 2 formulaires Form1 et Form2 dans Form2, en cliquant sur un btn je voudrais effectué une action (Action1) sur une condition : si Form1 est ouvert alors Action1 sinon Action2
mon problème est que je n'arrive pas à faire référence à Form1 dns cette condition est-ce d'ailleurs possible ? une idée ? merci d'avance
Salut
Dans nouveau module
'=======Þbut======== Function IsLoaded(ByVal strFormName As String) As Boolean
' Retourne Vrai si le formulaire spécifié est ouvert
' en mode Création ou en mode Feuille de données.
Dim oAccessObject As AccessObject
Set oAccessObject = CurrentProject.AllForms(strFormName)
If oAccessObject.IsLoaded Then
If oAccessObject.CurrentView <> acCurViewDesign Then
IsLoaded = True
End If
End If
End Function
'==========================Fin
Dans le form2 sur clic d'un bouton par exemple
If isloaded("Form1") Then
Forms!Form1!Texte1 = "Blabla"
Else
'Autre Chose
End if
--
@+
André
Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
"ermont" <eric.montaudon@jouy.inra.fr> a écrit dans le message de
news:05be01c34f68$34faa360$a101280a@phx.gbl...
bonjour,
dans une base access 2k, j'ai 2 formulaires Form1 et Form2
dans Form2, en cliquant sur un btn je voudrais effectué
une action (Action1) sur une condition :
si Form1 est ouvert alors Action1
sinon Action2
mon problème est que je n'arrive pas à faire référence à
Form1 dns cette condition
est-ce d'ailleurs possible ?
une idée ?
merci d'avance
Salut Dans nouveau module '=======Þbut======== Function IsLoaded(ByVal strFormName As String) As Boolean ' Retourne Vrai si le formulaire spécifié est ouvert ' en mode Création ou en mode Feuille de données. Dim oAccessObject As AccessObject
Set oAccessObject = CurrentProject.AllForms(strFormName) If oAccessObject.IsLoaded Then If oAccessObject.CurrentView <> acCurViewDesign Then IsLoaded = True End If End If
End Function '==========================Fin Dans le form2 sur clic d'un bouton par exemple If isloaded("Form1") Then Forms!Form1!Texte1 = "Blabla" Else 'Autre Chose End if
-- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ "ermont" a écrit dans le message de news:05be01c34f68$34faa360$ bonjour, dans une base access 2k, j'ai 2 formulaires Form1 et Form2 dans Form2, en cliquant sur un btn je voudrais effectué une action (Action1) sur une condition : si Form1 est ouvert alors Action1 sinon Action2
mon problème est que je n'arrive pas à faire référence à Form1 dns cette condition est-ce d'ailleurs possible ? une idée ? merci d'avance
