Discussion :

[iwamura]

Bonjour,

Toujours entrain de patiner sur ma base (effet Vancouver 2010 sans doute...)

J'ai un souci dont je n'arrive pas à comprendre l'origine. Voici le code d'erreur lorsque j'ouvre le formulaire :

L'expression Sur activation 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 Active X.

Dans l'aide j'obtiens le détail suivant

Cette erreur se produit lorsqu'un événement ne peut pas être exécuté parce que Microsoft Office Access ne peut pas détecter l'emplacement de la logique correspondante. Par exemple, si la propriété OnOpen d'un formulaire est définie sur la valeur =[Field], cette erreur se produit car Access s'attend à ce qu'un nom de macro ou d'événement soit exécuté lors du déclenchement de l'événement.

J'ai déjà eu ce souci auparavant, sans raison, sur tous les formulaires de la base contenant du code. J'avais du recréer les formulaires un par un...

Cette fois-ci, c'est différent, puisque ça ne marche pas que lorsque je mets le code suivant "Sur activation" qui est parfaitement passé à la compilation :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Current()
 
Select Case Me.ckkosei
Case Is = 0
    Me.lblkosei.Visible = True
    Case Else
    Me.lblkosei.Visible = False
End Select
End Sub

A noter que j'ai essayé plusieurs autres codes dans ce genre comme :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Current()
 
If ckkosei.Value = vbChecked Then
     Me.lblkosei.Visible = False
ElseIf ckkosei.Value = vbUnchecked Then
      Me.lblkosei.Visible = True
End If
 
End Sub

Les cases à cocher sont verrouillées et désactivées, elles servent juste à afficher leur statut (cochée ou non) et prennent les valeurs entrées dans une table. Si c'est coché j'aimerais que le libellé (étiquette indépendante ndlr.) n'apparaisse pas.
J'ai essayé de m'inspirer du tutoriel case à cocher, de celui du formulaire de recherche (où l'on affiche tel ou tel libellé selon le type de données), et d'autres sources du forum et de MSDN...


Rien ne passe. Pourquoi?

[nico84]

Bonjour,

Le message "l'expression sur click..." est le message d'erreur par défaut des versions compilées qui n'ont pas de gestion d'erreur

Dans un premier temps je te suggère donc te mettre en place une gestion d'erreur, ainsi tu sauras quelle est réellement l'erreur levée

Pour cela il faut intégrer à chaque procédure un truc du genre :

Code :

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

1
2
3
4
5
6
private sub xxx
on error goto err:
... le code...
exit sub
err: msgbox "Erreur " & err.Number & " dans xxx : " & err.DESCRIPTION
end sub

NB : par ailleurs il doit être possible d'écrire plus simplement :

Code :

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

lblkosei.Visible =  not ckkosei

[iwamura]

Nickel chrome Nico84, merci.

Ca fonctionne aujourd'hui, je comprends pas, même pas d'erreur .

J'ai mis le code pour la gestion d'erreur, puis-je l'employer de partout où j'ai du VBA au cas où?

Dernière question (et je mets ou tu mets résolu ) :
l

Code :

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

lblkosei.Visible =  not ckkosei

Je le mets dans le select Case? (tout seul ça ne fait rien)

[nico84]

Oui il vaut mieux mettre une gestion d'erreur partout
Plutot que MsgBox j'utilise d'ailleurs une procédure qui m'écrit l'erreur dans un journal ainsi je peux tracer toutes les erreurs qu'ont rencontré les utilisateurs et les corriger
Enfin j'utilise une variable globale mode_debug (à oui quand c'est moi et à non quand c'est un utilisateur) pour que mes utilisateurs soient insultés en bon français (ou en japonais si tu préfères ) et que j'aie accès au débuggueur. Finalement ça donne donc :

Code :

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

1
2
3
4
5
6
private sub xxx
if not mode_debug then on error goto err:
... le code...
exit sub
err: message "Erreur " & err.Number & " dans xxx : " & err.DESCRIPTION 'appel de ma procédure standard de gestion d'erreur
end sub

Ma version ne connait pas vbchecked, mais je voulais simplement dire que le test

Code :

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

1
2
3
4
5
If ckkosei.Value = vbChecked Then
     Me.lblkosei.Visible = False
ElseIf ckkosei.Value = vbUnchecked Then
      Me.lblkosei.Visible = True
End If

Peut s'écrire d'une manière générale plus simplement

Code :

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

Me.lblkosei.Visible = (ckkosei.Value = vbUnchecked)

[iwamura]

- Faut que je me penche un peu sur cette question de la gestion d'erreur, je ne l'ai pas encore vraiment prise en compte... (et je m'en mords les doigts comme tu as vu).

- Faut que j'arrive a mettre en place une meilleure méthodologie pour le développement, je parts dans tous les sens etcomme j'ai plein de lacunes (variables globales...) c'est encore pire, mais c'est en forgeant... .

En tout cas merci pour les conseils.