OVH Cloud OVH Cloud

Access 2000 (Propriété non trouvée)

6 réponses
Avatar
Monkeytoo
Bonsoir,
Dans une application, j'utilise le caleendrier propopé sur le site Lebans.
Or depuis peu de temps, à l'ouverture du formulaire utilisant les fonctions
de création du calendrier, j'obtiens l'erreur 3270 : Propriété non trouvée.
Si je vais en débogage, l'erreur se situe à ce niveau :

Private Function GetProperty(ByVal strPropName As String, ByRef strPropValue
As Variant) As Boolean
' Changed strPropValue as String to as Variant

Const cProcedureName As String = "GetProperty"
On Error GoTo Err_Handler
Dim db As DAO.Database

Set db = CurrentDb
strPropValue = db.Properties(strPropName) L'ERREUR EST ICI
GetProperty = True

Sur une autre machine, le programme fonctionne correctement.
Je n'y comprends rien.
Merci de votre aide

6 réponses

Avatar
Monkeytoo
La valeur est" MCS_MULTISELECT"

"Raymond [mvp]" a écrit dans le message de
news: uAP2o0$
Bonsoir.

il s'agit d'une propriété de base. quand tu es en débugage, quelle est la
valeur indiquée en strPropName sur la ligne :
Private Function GetProperty(ByVal strPropName As String, ByRef
strPropValue

As Variant) As Boolean
il semblerait que ta propriété a disparu. n'as-tu pas supprimé une

propriété

dans les options de démarrage ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Monkeytoo" a écrit dans le message de
news:%23dPoIu$
Bonsoir,
Dans une application, j'utilise le caleendrier propopé sur le site
Lebans.


Or depuis peu de temps, à l'ouverture du formulaire utilisant les
fonctions

de création du calendrier, j'obtiens l'erreur 3270 : Propriété non
trouvée.

Si je vais en débogage, l'erreur se situe à ce niveau :

Private Function GetProperty(ByVal strPropName As String, ByRef
strPropValue

As Variant) As Boolean
' Changed strPropValue as String to as Variant

Const cProcedureName As String = "GetProperty"
On Error GoTo Err_Handler
Dim db As DAO.Database

Set db = CurrentDb
strPropValue = db.Properties(strPropName) L'ERREUR EST ICI
GetProperty = True

Sur une autre machine, le programme fonctionne correctement.
Je n'y comprends rien.
Merci de votre aide








Avatar
Monkeytoo
la valeur de MCS_MULTISELECT est
Private Const MCS_MULTISELECT = &H2

"Monkeytoo" a écrit dans le message de news:
uwZpV6$
La valeur est" MCS_MULTISELECT"

"Raymond [mvp]" a écrit dans le message de
news: uAP2o0$
Bonsoir.

il s'agit d'une propriété de base. quand tu es en débugage, quelle est
la


valeur indiquée en strPropName sur la ligne :
Private Function GetProperty(ByVal strPropName As String, ByRef
strPropValue

As Variant) As Boolean
il semblerait que ta propriété a disparu. n'as-tu pas supprimé une

propriété

dans les options de démarrage ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Monkeytoo" a écrit dans le message de
news:%23dPoIu$
Bonsoir,
Dans une application, j'utilise le caleendrier propopé sur le site
Lebans.


Or depuis peu de temps, à l'ouverture du formulaire utilisant les
fonctions

de création du calendrier, j'obtiens l'erreur 3270 : Propriété non
trouvée.

Si je vais en débogage, l'erreur se situe à ce niveau :

Private Function GetProperty(ByVal strPropName As String, ByRef
strPropValue

As Variant) As Boolean
' Changed strPropValue as String to as Variant

Const cProcedureName As String = "GetProperty"
On Error GoTo Err_Handler
Dim db As DAO.Database

Set db = CurrentDb
strPropValue = db.Properties(strPropName) L'ERREUR EST ICI
GetProperty = True

Sur une autre machine, le programme fonctionne correctement.
Je n'y comprends rien.
Merci de votre aide












Avatar
Monkeytoo
j'ai supprimé et ré-importé les différents modules sans succès.
Ce qui est incompréhensible, c'est que l'appli seule de lebans fonctionne
mais pas si je l'intègre dans mon appli
Tu me conseilles d'écrire à Lebans mais sur le site, je suis redirigé vers
Microsoft.public.access.forms

"Raymond [mvp]" a écrit dans le message de
news:
je viens de parcourir le calendrier lebans et il n'est pas question de
modifier quoi que ce soit en quelques minutes. ce qui est déconseillé de
toute façon. cette propriété, à mon avis, est celle qui gère la
multiselection des dates dans le calendrier (plages). l'erreur que tu
rencontres, si c'est la seule, ne peut provenir que de ton application, à
mon avis. N'as-tu pas fait des modifs ces derniers temps dans les modiles
utilisant ce calendrier ? si tu ne trouves pas d'ici demain, il serait
préférable de prendre contact avec lebans. je pense que tu n'as pas
modifié

les modules lebans eux-mêmes, donc j'essaierais de supprimer et remettre
les

modules d'origine.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Monkeytoo" a écrit dans le message de
news:uwZpV6$
La valeur est" MCS_MULTISELECT"







Avatar
Raymond [mvp]
Bonsoir.

il s'agit d'une propriété de base. quand tu es en débugage, quelle est la
valeur indiquée en strPropName sur la ligne :
Private Function GetProperty(ByVal strPropName As String, ByRef
strPropValue

As Variant) As Boolean
il semblerait que ta propriété a disparu. n'as-tu pas supprimé une propriété

dans les options de démarrage ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Monkeytoo" a écrit dans le message de
news:%23dPoIu$
Bonsoir,
Dans une application, j'utilise le caleendrier propopé sur le site Lebans.
Or depuis peu de temps, à l'ouverture du formulaire utilisant les
fonctions

de création du calendrier, j'obtiens l'erreur 3270 : Propriété non
trouvée.

Si je vais en débogage, l'erreur se situe à ce niveau :

Private Function GetProperty(ByVal strPropName As String, ByRef
strPropValue

As Variant) As Boolean
' Changed strPropValue as String to as Variant

Const cProcedureName As String = "GetProperty"
On Error GoTo Err_Handler
Dim db As DAO.Database

Set db = CurrentDb
strPropValue = db.Properties(strPropName) L'ERREUR EST ICI
GetProperty = True

Sur une autre machine, le programme fonctionne correctement.
Je n'y comprends rien.
Merci de votre aide




Avatar
Raymond [mvp]
je viens de parcourir le calendrier lebans et il n'est pas question de
modifier quoi que ce soit en quelques minutes. ce qui est déconseillé de
toute façon. cette propriété, à mon avis, est celle qui gère la
multiselection des dates dans le calendrier (plages). l'erreur que tu
rencontres, si c'est la seule, ne peut provenir que de ton application, à
mon avis. N'as-tu pas fait des modifs ces derniers temps dans les modiles
utilisant ce calendrier ? si tu ne trouves pas d'ici demain, il serait
préférable de prendre contact avec lebans. je pense que tu n'as pas modifié
les modules lebans eux-mêmes, donc j'essaierais de supprimer et remettre les
modules d'origine.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Monkeytoo" a écrit dans le message de
news:uwZpV6$
La valeur est" MCS_MULTISELECT"



Avatar
Raymond [mvp]
je n'ai pas lu la doc, mais il ne faut pas une référence du style
mscomctl.ocx ? tu as vérifié que tu n'en ai pas une manquante ?
tu peux passer un post sur le groupe mais c'est en anglais.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Monkeytoo" a écrit dans le message de
news:%
j'ai supprimé et ré-importé les différents modules sans succès.
Ce qui est incompréhensible, c'est que l'appli seule de lebans fonctionne
mais pas si je l'intègre dans mon appli
Tu me conseilles d'écrire à Lebans mais sur le site, je suis redirigé vers
Microsoft.public.access.forms