J'essaye d'utiliser la fonction suivante que j'ai trouvée sur ce forum
Public Function MenuVisible(BarreMenu As String, NomMenu As String,
True_False) as Boolean
Dim Objetbarre As CommandBarControl
On Error Resume Next
Set Objetbarre = CommandBars(BarreMenu).Controls(NomMenu)
Objetbarre.Enabled = True_False
If Err = 0 Then
MenuVisible = True
Else
MenuVisible = False
End If
End Function
Lors de la compilation j'ai le message 'Type défini par l'utilisateur non
défini'
Dans les références j'ai pourtant 'Microsoft Access 10.0 Access Library.
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
Raymond
Bonjour.
cette erreur provient de la librairie Office. il faut cocher microsoft office 10.0 library objects
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Gilbert" a écrit dans le message de news:uWWXK$
Bonjour à tous
J'essaye d'utiliser la fonction suivante que j'ai trouvée sur ce forum
Public Function MenuVisible(BarreMenu As String, NomMenu As String, True_False) as Boolean Dim Objetbarre As CommandBarControl On Error Resume Next Set Objetbarre = CommandBars(BarreMenu).Controls(NomMenu) Objetbarre.Enabled = True_False If Err = 0 Then MenuVisible = True Else MenuVisible = False End If End Function
Lors de la compilation j'ai le message 'Type défini par l'utilisateur non défini'
Dans les références j'ai pourtant 'Microsoft Access 10.0 Access Library.
D'où vient le problème??
Merci d'avance. Gilbert
Bonjour.
cette erreur provient de la librairie Office.
il faut cocher microsoft office 10.0 library objects
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Gilbert" <gilbert.vie@infonie.fr> a écrit dans le message de
news:uWWXK$VmDHA.2080@TK2MSFTNGP10.phx.gbl...
Bonjour à tous
J'essaye d'utiliser la fonction suivante que j'ai trouvée sur ce forum
Public Function MenuVisible(BarreMenu As String, NomMenu As String,
True_False) as Boolean
Dim Objetbarre As CommandBarControl
On Error Resume Next
Set Objetbarre = CommandBars(BarreMenu).Controls(NomMenu)
Objetbarre.Enabled = True_False
If Err = 0 Then
MenuVisible = True
Else
MenuVisible = False
End If
End Function
Lors de la compilation j'ai le message 'Type défini par l'utilisateur non
défini'
Dans les références j'ai pourtant 'Microsoft Access 10.0 Access Library.
cette erreur provient de la librairie Office. il faut cocher microsoft office 10.0 library objects
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Gilbert" a écrit dans le message de news:uWWXK$
Bonjour à tous
J'essaye d'utiliser la fonction suivante que j'ai trouvée sur ce forum
Public Function MenuVisible(BarreMenu As String, NomMenu As String, True_False) as Boolean Dim Objetbarre As CommandBarControl On Error Resume Next Set Objetbarre = CommandBars(BarreMenu).Controls(NomMenu) Objetbarre.Enabled = True_False If Err = 0 Then MenuVisible = True Else MenuVisible = False End If End Function
Lors de la compilation j'ai le message 'Type défini par l'utilisateur non défini'
Dans les références j'ai pourtant 'Microsoft Access 10.0 Access Library.
D'où vient le problème??
Merci d'avance. Gilbert
Gilbert
Merci Raymond Je dois avoir des problèmes de lecture ces temps-ci
Gilbert
"Raymond" a écrit dans le message de news:
Bonjour.
cette erreur provient de la librairie Office. il faut cocher microsoft office 10.0 library objects
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Gilbert" a écrit dans le message de news:uWWXK$
Bonjour à tous
J'essaye d'utiliser la fonction suivante que j'ai trouvée sur ce forum
Public Function MenuVisible(BarreMenu As String, NomMenu As String, True_False) as Boolean Dim Objetbarre As CommandBarControl On Error Resume Next Set Objetbarre = CommandBars(BarreMenu).Controls(NomMenu) Objetbarre.Enabled = True_False If Err = 0 Then MenuVisible = True Else MenuVisible = False End If End Function
Lors de la compilation j'ai le message 'Type défini par l'utilisateur non
défini'
Dans les références j'ai pourtant 'Microsoft Access 10.0 Access Library.
D'où vient le problème??
Merci d'avance. Gilbert
Merci Raymond
Je dois avoir des problèmes de lecture ces temps-ci
Gilbert
"Raymond" <XYZ.access.seneque@free.fr> a écrit dans le message de news:
OporkHWmDHA.1960@TK2MSFTNGP12.phx.gbl...
Bonjour.
cette erreur provient de la librairie Office.
il faut cocher microsoft office 10.0 library objects
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Gilbert" <gilbert.vie@infonie.fr> a écrit dans le message de
news:uWWXK$VmDHA.2080@TK2MSFTNGP10.phx.gbl...
Bonjour à tous
J'essaye d'utiliser la fonction suivante que j'ai trouvée sur ce forum
Public Function MenuVisible(BarreMenu As String, NomMenu As String,
True_False) as Boolean
Dim Objetbarre As CommandBarControl
On Error Resume Next
Set Objetbarre = CommandBars(BarreMenu).Controls(NomMenu)
Objetbarre.Enabled = True_False
If Err = 0 Then
MenuVisible = True
Else
MenuVisible = False
End If
End Function
Lors de la compilation j'ai le message 'Type défini par l'utilisateur
non
défini'
Dans les références j'ai pourtant 'Microsoft Access 10.0 Access Library.
Merci Raymond Je dois avoir des problèmes de lecture ces temps-ci
Gilbert
"Raymond" a écrit dans le message de news:
Bonjour.
cette erreur provient de la librairie Office. il faut cocher microsoft office 10.0 library objects
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Gilbert" a écrit dans le message de news:uWWXK$
Bonjour à tous
J'essaye d'utiliser la fonction suivante que j'ai trouvée sur ce forum
Public Function MenuVisible(BarreMenu As String, NomMenu As String, True_False) as Boolean Dim Objetbarre As CommandBarControl On Error Resume Next Set Objetbarre = CommandBars(BarreMenu).Controls(NomMenu) Objetbarre.Enabled = True_False If Err = 0 Then MenuVisible = True Else MenuVisible = False End If End Function
Lors de la compilation j'ai le message 'Type défini par l'utilisateur non
défini'
Dans les références j'ai pourtant 'Microsoft Access 10.0 Access Library.
