Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access conversion base

conversion base

3 réponses
Avatar
boby lapointe
Bonjour,

J'ai converti une base access 2 en access 2000 et j'ai l'erreur 438 suivante :
Propriete ou methode non gere par cet objet

N'étant pas un expert access j'aurais besoin d'éclaircissement
Voici le code mis en cause (ligne If Me![Description...) :

Private Sub NomOrgane_AfterUpdate()
'MAJ formulaire description organe
Me![Description organe].SourceObject = "TMM_SF : Description organe"
'Test si existance d'une E/S
If Me![Description organe].Formulaire![NombreE/S] > 0 Then
'Si E/S alors ouverture description fiche E/S
Me![Description fiche E/S].SourceObject = "TMM_SF : Description E/S"

If InStr(1, Me![Description fiche E/S].Formulaire![Formulaire E/S],
"TOR") > 0 Then
Me![Description fiche E/S].Formulaire![Description
E/S].SourceObject = "TMM_SF : Description E/S TOR"
Else
Me![Description fiche E/S].Formulaire![Description
E/S].SourceObject = "TMM_SF : Description E/S ANA"
End If
End If
End Sub

Vous en remerciant par avance.
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Nobodyisperfect
Hello boby Lapointe !!

J'ai récupéré ceci sur le web :

http://www.mvps.org/accessfr/bugs/bugs0029.htm

Tu trouveras p't-être ton bonheur !!

Olivier
Avatar
Gafish
boby lapointe wrote:
Bonjour,


Bonjour

J'ai converti une base access 2 en access 2000 et j'ai l'erreur 438
suivante : Propriete ou methode non gere par cet objet

N'étant pas un expert access j'aurais besoin d'éclaircissement
Voici le code mis en cause (ligne If Me![Description...) :

If Me![Description organe].Formulaire![NombreE/S] > 0 Then


Effectivement ta ligne est fausse.
Ce serait plutôt :
If Me![Description organe]![NombreE/S] > O Then

Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
boby lapointe
Merci à vous
J'ai supprimé ".Formulaire" et c'est ok


Bonjour,

J'ai converti une base access 2 en access 2000 et j'ai l'erreur 438 suivante :
Propriete ou methode non gere par cet objet

N'étant pas un expert access j'aurais besoin d'éclaircissement
Voici le code mis en cause (ligne If Me![Description...) :

Private Sub NomOrgane_AfterUpdate()
'MAJ formulaire description organe
Me![Description organe].SourceObject = "TMM_SF : Description organe"
'Test si existance d'une E/S
If Me![Description organe].Formulaire![NombreE/S] > 0 Then
'Si E/S alors ouverture description fiche E/S
Me![Description fiche E/S].SourceObject = "TMM_SF : Description E/S"

If InStr(1, Me![Description fiche E/S].Formulaire![Formulaire E/S],
"TOR") > 0 Then
Me![Description fiche E/S].Formulaire![Description
E/S].SourceObject = "TMM_SF : Description E/S TOR"
Else
Me![Description fiche E/S].Formulaire![Description
E/S].SourceObject = "TMM_SF : Description E/S ANA"
End If
End If
End Sub

Vous en remerciant par avance.