Problème d'exécution de code VBA

Bonjour,

je débute en VBA et j'essaye de faire quelques exercices sur les boutons et les zones de liste dans un formulaire vierge mais je rencontre souvent un petit soucis d'exécution de code.
J'écris mon code, je le teste une première fois, ça fonctionne bien, j'enregistre le code, la base de donnée, je quitte access sans soucis, mais quand je réouvre access, je charge ma base de donnée et là dès que je modifie mon code, il ne s'exécute plus du tout, il ne se passe plus rien, quelqu'un pourrait m'éclairer svp ?

Je précise que c'est du code très simple de débutant du genre rajouter des noms dans une zone de liste quand je clique sur le bouton.

Pour plus de précision, j'ai un formulaire avec un bouton B1, et une zone de liste ZL1 et le code suivant sur l'évènement clic du bouton B1 :

Code:

---

1 2 3 4 5 6

Private Sub B1_Click()   ZL1.RowSourceType = "Value List" ZL1.RowSource = "Téo;Nadine;Karl;René"   End Sub

---

ce code fonctionnait avant que j'enregistre ma base de donnée, je la réouvre, je modifie les prénoms, et ça ne fonctionne plus ..., j'annule je remet comme c'était et ça ne fonctionne plus non plus :(

Dans les propriétés du bouton B1 j'ai bien [procédure évènementielle] dans l'évènement sur clic

Bonjour,

Vérifie que l'événement Sur Clic du bouton B1 contienne bien [Procédure événementielle]

Dans le cas contraire déroule la liste pour l'ajouter.

Cordialement,

Citation:

---

Envoyé par c4rr3r4

Pour plus de précision, j'ai un formulaire avec un bouton B1, et une zone de liste ZL1 et le code suivant sur l'évènement clic du bouton B1 :

Code:

---

1 2 3 4 5 6

Private Sub B1_Click()   ZL1.RowSourceType = "Value List" ZL1.RowSource = "Téo;Nadine;Karl;René"   End Sub

---

ce code fonctionnait avant que j'enregistre ma base de donnée, je la réouvre, je modifie les prénoms, et ça ne fonctionne plus ..., j'annule je remet comme c'était et ça ne fonctionne plus non plus :(

Dans les propriétés du bouton B1 j'ai bien [procédure évènementielle] dans l'évènement sur clic

---

C'est déjà fait, c'est pour ça que je ne comprends pas pourquoi ça ne fonctionne pas :?

Ps : désolé pour les balises code je ne les avais pas vu

Bonjour,

Il existe peut-être une différence entre une version d'Access en Anglais / Américain et une édition Française

Citation:

---

Dans Visual Basic, définissez la propriété OrigineSource (RowSourceType) à l'aide d'une expression chaîne contenant l'une de ces valeurs : "Table/requête", "Liste des valeurs" ou "Liste des champs". Vous pouvez également utiliser une expression chaîne pour définir la valeur de la propriété Contenu (RowSource). Pour affecter à la propriété OrigineSource (RowSourceType) une fonction définie par l'utilisateur, tapez le nom de la fonction.

---

Il faudrait vérifier aussi si le controle liste modifiable s'appelle bien par son nom : ZL1.

Si une erreur est affichée (du fait que ca ne marche pas) il serait utile de le préciser.

Cordialement,

J'ai testé les deux valeurs : "Liste valeurs" et " Value List" ça fonctionne dans les 2 cas et ce même code fonctionnait 5 min auparavant !

Ma zone de liste s'appelle bien ZL1, il n'y a pas d'erreur de frappe.

Je n'ai aucun message d'erreur, ça fait juste ... rien, comme s'il n'y avait pas de code associé au bouton B1.

Je pense que c'est un problème du module VBA sous Access ou alors d'access lui même, le plus embêtant c'est que ça m'oblige à recommencer à chaque fois, je ne peux pas sauvegarder de code pour y réfléchir plus tard .

1)
Tu as essayer de mettre un point d'arrêt sur la première ligne du code pour voir s'il y passe ?

S'il n'y passe pas fait un compactage de la base.

2)
Vérifie que tous les Services pack sont installés éventuellement fait une réparation d'office (dans le panneau d'installation).


Tonioyoyo : ça marche et ça marche plus je ne pense pas que la version y soit pour quelque chose. :mouarf: Vivement les vacances ! ;)

- J'ai fait un compactage de la bdd sans succès
- J'ai fait toutes les mises à jour de office, de access et de windows, rien n'y fait.
- J'ai réinstallé Access mais le problème est toujours là quelque soit le code, dès que j'enregistre la bdd le code ne fonctionne plus même en ne modifiant rien :roll:

peux-tu poster ta base car là j'y perd mon latin. :aie:

Je t'envoie une bdd que je viens de faire de cette façon :

- J'ouvre access
- Je crée un nouvelle bdd
- Je crée un nouveau formulaire
- Je crée un nouveau Bouton B1
- Je fais un clic droit sur le bouton B1 en mode création
- Je sélectionne "Créer code évènements..."
- Sur l'évènement clic du bouton B1 je mets le code suivant qui me permet d'afficher le nom de ma base de donnée:

Code:

---

1 2 3 4 5 6

Option Compare Database   Private Sub b1_Click() MsgBox (DBEngine.Workspaces(0).Databases(0).Name)   End Sub

---

- Je teste mon bouton
-Ca fonctionne
- J'enregistre le tout
- Je ferme Access
- Je réouvre Access
- J'ouvre ma base de donnée
- Je teste le bouton
- Ca ne fonctionne plus ...

Je ne pense pas qu'on puisse faire plus simple, ça doit venir de mon logiciel ou d'une configuration VBA ... mais je ne sais pas laquelle.

Voila le fichier :

Je viens de regarder ça fonctionne bien ici.

Cela vient probablement de ton installation.

Ta version d'Access est bien active ?
Tu stockes bien ta base dans un emplacement approuvé (voir les options access) ?