Discussion :

[NANOUSUN]

bonjour,
mon application marche très bien sur mon pc à la maison mais j'ai un bouton Imprimer Etat sur un formulaire qui s'exécute normalement à la maison mais il me donne un message d'erreur quand je l'exécute sur mon pc au travail pourtant c'est la même version.
voici le message d'erreur quant je clique sur le bouton : L’expression sur clic entrée comme paramètre de la propriété de type événement est à l’origine d’une erreur. Un problème est survenu durant la communication entre Microsoft office Access et le serveur OLE ou le contrôle Activix.
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]
Une erreur a peut être été commise lors de l’évaluation d’une fonction, d’un évènement ou d’une macro.

merci pour une explication.

[Domi2]

Bonjour,

Certainement un problème de références.

Dans l'éditeur VBA, menu Outils ==> Références.

Regarde déjà si tu n'en pas une qui est marquée "Manquante". Si oui, tu la décoche, puis tu compiles ton projet pour vérifier que ton code est sans erreur.

Et tu relances ton application.

Domi2

[NANOUSUN]

bonjour,
les références cochées sont:
visual basic for vba
microsoft Access 11.0 object library
OLE Automation
microsoft DAO 3.6 Object Library
microsoft activix data objects 2.1 library
et se sont les même à la maison.

je souhaiterai si possible avoir une réponse à ma question suivante
lorsque je définie une procédure fonctionnelle sur un bouton elle est nomée par défaut procédure fonctionnelle.
et lorsque je définie une autre procédure sur un autre bouton elle est toujours nomée procédure fonctionnelle.
au moment de l'exécution quant je clique parexemple sur le bouton 1 le compilateur il va automatiquement exécuter le code de la procédure nomée procédure évènementielle mais avec quel code celui de la première ou de la deuxième ( ambiguité)
merci

[Domi2]

Bonjour,

Déjà, si tu n'utilises pas ADO, tu peux supprimer celle-ci :

Code :

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

microsoft activix data objects 2.1 library

Pour ta question, autant que je comprenne bien : tu n'as pas à te faire de soucis pour les procédures liées à un événement. Access s'y retrouve.

par contre, il ne faut pas nommer deux procédures ou fonctions avec le même nom, de même qu'il ne faut pas nommer un module et une fonction/procédure avec le même nom.

As-tu essayé de compiler ton code ?

As-tu des erreurs ?

Si oui, peux-tu poster le code ?

Domi2

[NANOUSUN]

resalut,
franchement je suis perdus entre les pasges web que je consulte pour résoudre ce problème.
voici le message d'erreur que j'ai eu en cliquant sur le bouton Imprimer Etat :
L’expression sur clic entrée comme paramètre de la propriété de type événement est à l’origine d’une erreur. Un problème est survenu durant la communication entre Microsoft office Access et le serveur OLE ou le contrôle Activix.
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]

Une erreur a peut être été commise lors de l’évaluation d’une fonction, d’un évènement ou d’une macro.
je voulais vous dire que peut être la cause de ce problème c'est que la procédure évènementielle liée à lévènement clic du bouton Imprimer Etat est nomée par défaut [procédure évènementielle] et voici son code:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CmdImpriméetat_Click()
Dim Message, Titre, Marubrique
Message = "Entrer le code Rubrique"
Titre = "Etat par code Rubrique"
Marubrique = InputBox(Message, Titre)
Me.RecordSource = "select * FROM Articles WHERE Articles.coderub = " & Marubrique
DoCmd.OpenReport "etat principal", acViewPreview, , "coderub =" & Marubrique & " ", , Marubrique
Txtdtbilan.Value = ""
End Sub

et la procédure évènementielle liée à lévènement au formatage de l'entête de l'état nomée aussi par défaut [procédure évènementielle] et voici son code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub EntêteÉtat_Format(Cancel As Integer, FormatCount As Integer)
Me.etiqurecup.Caption = Form_ImprimerEtats.Txtdtbilan.Value
Me.txtTitreEtat.Caption = OpenArgs
rub.Caption = txtTiteEtat.Caption
If txtTitreEtat.Caption = 24300 Then
rub.Caption = "Matériel Informatique"
Else
If txtTitreEtat.Caption = 24302 Then
rub.Caption = " Matériel Plastique "
End If
End If
End Sub

autre chose lorsque je clique avec le bouton droit sur un bouton je trouve le nom procédure évènementielle par défaut en cliquant sur les trois point j'obtiens la fenêtre du code pour pouvoir insérer mon code.
et la même chose quant j'ai inséré le code pour l'évènement au formatage par défaut la procédure est aussi nomée [procédure évènementielle]
éspèrant que j'été claire.
merci toujours

[LE VIEUX]

Bonsoir,
1) « Procédure événementielle » signale que tu as choisi au moment de la création de l’évènement, le « générateur de code » VBA pour y créer une procédure par rapport aux 2 autres possibilités, « Générateur d’expression » où « générateur de macro ». tous les évènements faisant appel au générateur de code VBA s’appellent procédure évènementielle il peut donc y en avoir plusieurs y compris dans plusieurs évènements du même contrôle.
Le vrai nom de ta procédure tu la découvre en cliquant sur les … par exemple dans ton cas

Code :

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

 Private Sub CmdImpriméetat_Click()

2) Par contre, mais je ne pense pas que le problème vienne de là, comme domi2 je pencherais plutôt pour un problème de référence mais sur ton 2eme code sur la syntaxe de tes 2 comparaisons :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub EntêteÉtat_Format(Cancel As Integer, FormatCount As Integer)
Me.etiqurecup.Caption = Form_ImprimerEtats.Txtdtbilan.Value
Me.txtTitreEtat.Caption = OpenArgs
rub.Caption = txtTiteEtat.Caption
If txtTitreEtat.Caption = 24300 Then
rub.Caption = "Matériel Informatique"
ElseIf txtTitreEtat.Caption = 24302 Then
rub.Caption = " Matériel Plastique "
End If
End Sub

[NANOUSUN]

bonjour,
ok si c'est un problème de références alors comment faire? j'ai vérifier les références sur mon PC à la maison et sur celui au bureau j'ai les mêmes références cochées.

visual basic for vba
microsoft Access 11.0 object library
OLE Automation
microsoft DAO 3.6 Object Library
microsoft activix data objects 2.1 library

[Domi2]

Bonjour,

Il arrive parfois que de lire les interventions des posteurs jusqu'au bout et d'y répondre contribuent à résoudre les problèmes.

As-tu essayé de compiler ton code ?

As-tu des erreurs ?

Si oui, peux-tu poster le code ?

Domi2

[NANOUSUN]

resalut et merci pour votre aide,
comment compiler le code?

[Domi2]

Re,

Ouvrir l'application (en mode fenêtre de base de données), Alt+F11 pour ouvrir l'éditeur VBA, menu Débogage ==> Compiler[Non du projet].

Domi2

[NANOUSUN]

bonjour,
j'ai compilé ma version qui marche très bien à la maison, sur le PC au boulot,
et ça na donné aucun message d'erreur, mais je ne peux toujours exécuter mon formulaire pour lancer l'impression.
merci