Discussion :

[altman]

Bonsoir tout le monde

Voila, j'ai créer une petite base de données sous Access 2007, elle marche à 100 % chez moi, sur mes deux micros ( XP et vista).
Mais voila, tout fier, en voulant l'exécuter dans mon lieu de travail, elle se plante à la fermeture de n'importe qu'elle formulaire avec ce maudit message !! "L'expression sur clic entrée comme paramètre de la propriété de type événement est a l'origine d'une erreur .Un problème est survenu durant la communication entre M.O.Access et le serveur OLE ou le contrôle Activex . le résultat de l'expression n'est pas le nom d'une macro,le nom d'une fonction définie par l'utilisateur ou[Event procédure]". (imaginez ma mine !!!!)
J'ai parcouru les forums, mais aucun résultat :
- Lés références c'est OK
- Langue uni-code Ok

SVP aidez moi !!!

Merci

[User]

Salut,

Tu as compilé ton projet ?

[altman]

Oui je l'ai compilé et il n’y a pas d'erreurs

[User]

Excuse moi mais, Les references et la compile sont ok sur ton lieu de travail ?

[altman]

Oui, c'est Ok

Merci pour votre aide, surtout que je doit présenter ce travail le samedi matin

Merci

[altman]

Bonjour tout le monde

J'attends toujours une réponse

Merci

[altman]

Quelques constatations au son de mon application

J'ai créer un menu Access 2007 avec l'assistant création de Ruban (Warin)
En cliquant dans mon menu sur Nouveau : j'ai : Malade : Médecin .......
Exemple :Normalement en cliquant sur malade, il y a ouverture du formulaire malade avec incrémentations du code (clé) par un programme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub Form_Load()
If mal = True Then
Set tmal = CurrentDb.OpenRecordset("Malade", dbOpenDynaset)
DoCmd.GoToRecord , , acNewRec
  If tmal.EOF Then
    Me!NuMal = 1
   Else
   tmal.MoveLast
 
   Me!NuMal = tmal("Numal") + 1
   End If
tmal.Close
Set tmal = Nothing
End If
mal = False
end sub

mal est une variable global , déclarée à true à cliquant sur le bouton malade du menu nouveau

Chez moi ça fonctionne trés bien, mais sur mon lieu de travail , le formulaire s'ouvre et il se positionne sur le premier enregistrement et en essayant de le fermer il me déclare l'erreur citée plus haut

merci de votre aide
je vais exploser !!!!

[ilank]

Bonjour altman,
peux-tu reproduire le problème en appelant directement le formulaire sans passer par le menu ?
Car visiblement ici d'après la séquence que tu décris il y a :
Evenement Click bouton Nouveau=>Malade
Mise à jour de la variable globale Mal
Appel du formulaire de saisie
Retour dans la procédure Evenement Click du bouton

La première constation, c'est que la variable "Mal" n'est pas mis à jour avant l'appel du formulaire, l'ouverture du formulaire est correcte puisque d'après ton code si Mal=False le formulaire s'ouvre sur l'enregstrement en cours (donc ici le premier). Reste le retour dans le code appelant surtout si tu appelles le formulaire en mode AcDialog. Peux-tu nous indiquer le code de gestion de l'événement Click des boutons du menu ? Vérifie aussi si tu n'as pas déclaré plusieurs fois la même variable publique ou globale ou si une variable et une fonction ou procédure ne porte pas le même nom ou encore qu'une variable a été déclaré avec un type inconnu?

[altman]

Merci pour votre réponse

Voici le code pour appel du formulaire en mode saisie

Code :

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

1
2
3
4
5
 
Public Sub btnmal_action(ByVal control As IRibbonControl)
      mal = True
      DoCmd.OpenForm "Malades"
End Sub

[ilank]

Ok, ici il n'y a rien. Que se passe-t-il quand tu ouvres le formulaire directement et que tu le refermes ?
Exécutes-tu du code lors de la fermeture du formulaire ?

[altman]

à la fermeture il y a ce code

Code :

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

1
2
3
4
5
6
Private Sub Commande39_Click()
If IsNull(NoMal) Then
Me.Undo
End If
DoCmd.Close
End Sub

[ilank]

C'est quoi commande39 ? Le bouton de fermeture ?
NoMal kècecé?
Bon, alors tu dois vouloir dire s'il n'y a pas de n° nouveau malade alors annuler l'action mais là il n'y a pas eu d'ajout.
Le Docmd.Close est un peu juste pour fermer le formulaire

Code :

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

Docmd.Close AcForm, Form.Name, AcSaveNo

Pourquoi ne réponds-tu pas à cette question : que se passe-t-il quand tu ouvres le formulaire sans passer par le menu et que tu le refermes ?

[altman]

Désolé pour ce retard

J'ai du aller à mon travail pour tester !!!

Nomal = Nom du malade

En essayant d'ouvrir le formulaire directement, j'ai le même message d'erreur cité plus haut !!!
et Access se plante , il faut fermer par le gestionnaire des tâches .

[ilank]

Peux-tu joindre ta base ? Parce que là je ne vois pas.

[altman]

Bonsoir

Ouf, Ouf et Ouf

J'ai réglé mon problème :
Alors pour tous ceux qui ont eu affaire à ce fameux message
il suffit simplement de changer l la langue pour les programmes non unicode dans le panneau de configuration option linguistique..

Comme ça c'est simple à dire, mais il faut vraiment la trouver celle la !!!!!!!!

je suis très content !!!!!!!!!!

[nicomidas]

Bonjour,

J'ai le même problème... Comment changer cette fameuse langue unicode sur Access 2010?

Merci.

EDIT

Résolu grâce à ce post : https://www.developpez.net/forums/d1...ree-parametre/

[jean.phi]

il suffit simplement de changer l la langue pour les programmes non unicode dans le panneau de configuration option linguistique..

Merci, 13 ans plus tard, la solution est toujours d'actualité !