Discussion :

[jmt88]

bonjour à toutes et à tous,
D'abord un grand merci à tous pour vos contributions à résoudre les problèmes des développeurs en herbe et même confirmés. J'ai très souvent eu recours aux FAQ , en silence, car elles sont riches de réponses.. C'est important de le dire.
Mon ticket concerne un problème récurrent sous Access 2003 et actuellement Access 2016. J'ai deux bases de données qui utilisent les mêmes références (ocx, dll etc). J'ai un module de classe qui me permet de gérer l'activation ou non de la croix de fermeture d'Access, ceci fonctionne très bien sur une base et sur l'autre j'ai un message d'erreur à la compilation "membre de méthode ou de données introuvable" . J'utilise la lib "user32" et sur une base la ligne Application.hWndAccessApp est en erreur. Le problème était identique sous Access 2003.
Si quelqu'un a une idée lumineuse je suis preneur. Si une solution XML existe (j'ai déjà un ruban perso en XML basé sur customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"
merci d'avance pour votre réponse

[micniv]

Bonjour,
Je viens de tester le code de https://www.fmsinc.com/microsoftacce...eventclose.asp
Ca marche bien et c'est très simple (et c'est une bonne source !)

CDLT

[jmt88]

Bonjour,
Je viens de tester le code de https://www.fmsinc.com/microsoftacce...eventclose.asp
Ca marche bien et c'est très simple (et c'est une bonne source !)

CDLT

[jmt88]

merci pour ce lien, mais rien n'y fait...
Il fonctionne très bien sur une base mais j'ai le même message d'erreur sur l'autre base à la compilation ..
à la ligne Application.hWndAccessApp
Le code que j’utilisais était très proche .

[micniv]

mais j'ai le même message d'erreur sur l'autre base à la compilation

donc il y a un pb de code ou de reference sur cette autre base ...

[jmt88]

j'ai utilisé le même code... copier coller...
j'ai édité par une procédure vba toutes les références de chaque base.. elle sont strictement les mêmes et pointent bien sur les mêmes ressources..
j'en perd mon latin lol ...

[hyperion13]

Salut,
32 ou 64bits ?
Quelle bdd est affectée par le problème ? 2003 ou 2016 ?
Quel code utilises-tu ?
As-tu lu cet article ?

EDIT : Dans ton 1er post tu indiques avoir coller la proc dans un "module de classe". Par contre sur fmsinc, techonthenet, etc. il est indiqué de la coller dans un "module standard".

[jmt88]

Bonjour,
le problème date effectivement .. il était présent sous 2003 et persiste sous 2016 (je viens de faire la migration je ne suis pas passé par la phase 2007-2010 -2013).
les apllis tournent sous office 32 et sur des Windows 32 et/ou 64 bits..
rien n'y fait .. évidement les ressources références ont changées .. ci joint l'état des références sur un pc 64 bit et access 2016.
mon premier code était sur un module de classe. j'ai mis le second préconisé par micniv dans un module standard .. en fait les codes (le mien celui de l'article de thogal ou celui proposé par micviv sont identiques "enfin presque" )

[micniv]

Bonjour,
juste pour préciser que c'était bien dans un module standard qu'il fallait copier le code. Et que je n'ai testé qu'avec un Access 2010 32 (sur win10 64 et win7 64).
A la compil, tout se passe bien ?
Alors peut-être une anomalie avec ACC 2016 ?

[jmt88]

j'ai bien copié le dernier code dans un module standard..
sur une base c'est ok sur l'autre erreur...
à mon avis rien à voir avec 2016 car le problème existait déjà sous 2003 et pourquoi sur une base et pas l'autre??
certainement les mystères de Microsoft ... mais cela ne me satisfait pas
De plus j'ai 6 autres bases qui utilisent ce code sous 2016 et sans aucune erreur à la compilation

[jmt88]

Je pense vraiment que cela vient d'un mic-mac entre les références et Windows..
Bon j'en remets une couche..
Je viens de m’apercevoir qu'une requête, sur la base sans erreur de compil, ne fonctionne plus.
C'est une requête ajout et un champ est calculé ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

coef: IIf(Trim([JN_MAJ])="J",0.5,IIf(Trim([JN_MAJ])="na",0,IIf(Trim([JN_MAJ])="T",1,0.5)))...

un petit message sympa me dit "fonction non disponible dans les expression dans l’expression..."
cette même requête fonctionne très bien dans l'autre base... lol
avec évidement la bonne traduction en français .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

coef: VraiFaux(SupprEspace([JN_MAJ])="J";0.5;VraiFaux(SupprEspace([JN_MAJ])="na";0;VraiFaux(SupprEspace([JN_MAJ])="T";1;0.5)))..

Bon en SQL elle est évidement en anglais.
Si je copie la formule en français dans la requête qui plante .. le message devient impossible d'utiliser la fonction dans cette expression.. c'est SupprEspace ou trim qui plante..
Si dans un code vba j'utilise Trim pas de problème de compil
Si j'utilise dans un nouvelle requête l’accès aux fonctions intégrées ...texte... SupprEspace..
he ben boum même problème le message est "impossible d'utiliser la fonction dans cette expression" lorsque je valide le champ de cette nouvelle requête.

j'en rigole ... il faut donner un peu de piquant à cette nouvelle année

[electrosat03]

Salut à toutes et tous et bonne année 2019,

Voici le code que j'ai placé dans un module, il s'exécute au démarrage de la BD.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub DesacFermeture() 'Grise la croix quitter d'access
    Dim hSysMenu As Long
   On Error GoTo DesacFermeture_Error
 
    hSysMenu = GetSystemMenu(Application.hWndAccessApp, False)
    RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND
 
   On Error GoTo 0
   Exit Sub
 
DesacFermeture_Error:
 
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure DesacFermeture of Module Démarrage"
End Sub

A+

[jmt88]

merci mais...
Ce code est identique aux divers tests déjà réalisés (je l'utilise également depuis Access 97). Il fonctionne sur 7 BD mais pas sur une ... d'où la discussion...
Concernant le problème lié à l’interprétation de ma requête c'est réglé .. là je n'avais pas repositionné correctement une référence en terme de niveau de priorité (après des tests de modif de références pour régler mon problème initial)..
je reste ouvert à d’autres suggestions ...

[micniv]

Peux-tu joindre ta base vidée de ses données si tu veux un regard extérieur ...

CDLT

[hyperion13]

Salut
Peut-on supposer que le problème affecte une machine (PC) et la version Acc2016 qui y est installée dessus.
Alors pourquoi ne pas créer une bdd vide, d'y importer l'ensemble des objets qui composent la bdd défaillante et d'observer son comportement ?

[jmt88]

Bonjour et merci pour tous vos conseils..
A priori le problème est réglé. Je suis reparti d'une base vierge et j'y ai importé ou lié tous les éléments de ma base qui posait problème (je l'avais déjà fait avant) .. résultat idem .. Donc j' ai testé une nouvelle base vierge en important les modules et quelques tables de la base qui ne posait pas de problème... j'ai testé la compilation tout était ok.. j'ai donc supprimé les éléments importés et sur cette base importé les éléments de la base qui pose problème et là miracle la compilation est ok..
Je ne m'explique pas mais le résultat est là..