Discussion :

[8e8eClo]

Bonjour,

J'ai mes codes VBA qui fonctionnent très bien sur un formulaire. Cependant quand ce formulaire apparait en tant que sous formulaire (dans un autre formulaire donc), les codes VBA ne fonctionnent plus.

Pourquoi ?

code (dans module 1) :

Code :

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

1
2
3
4
Function nouvel_enregistrement()
Forms("Liste lot").AllowAdditions = True
Forms("Liste lot").Refresh
End Function

Code (dans la form) :

Code :

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

1
2
3
4
Private Sub Libellé_lot_AfterUpdate()
Forms("Liste lot").AllowAdditions = False
Forms("Liste lot").Refresh
End Sub

Pourquoi ces codes ?
J'ai deux formulaires (contrat et liste lot). Liste lot apparait en tant que sous formulaire (en continu) de contrat. Cela me convient très bien cependant je ne veux pas que nouvel enregistrement apparaisse quand le dernier champ est remplit. C'est pourquoi j'ai désactivé "Ajout autorisé" et j'ai crée un bouton pour ajouter un nouvel enregistrement.
Pas d'autres solutions je crois. Oui ?

Merci

[RobiPMS]

Bonjour.

Quand un formulaire est utilisé en tant que sous-formulaire, il faut être attentif au nom qui lui a été donné en tant que contrôle dans le formulaire principal. Si ce nom, en tant que contrôle du form principal, diffère de son nom dans la liste des formulaires, une procédure où il est désigné avec son nom de formulaire peut ne pas fonctionner quand il est utilisé comme sous-formulaire.
Essaie donc de remplacer

Code :

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

Forms("Liste lot").AllowAdditions = False

par

Code :

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

Me.AllowAdditions = False

et de même pour les autres lignes.
Ainsi cela devrait fonctionner dans les deux situations.
Cordialement.

[8e8eClo]

Bonjour,

Si je mets :

Code :

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

Me.AllowAdditions = True

dans le module 1 j'ai un message d'erreur "utilisation incorrecte du mot clé Me" ce que je comprends car dans le module 1 "Me" ne correspond à rien il faut bien que je fasse référence au formulaire en indiquant son nom non ?

Le nom du sous formulaire est exactement le même que le nom du formulaire à savoir "Liste lot".

Petite précision qui a peut-être son importance : mon sous formulaire est décomposé en entête, détail et pied de formulaire. Le bouton pour ajouter un enregistrement se trouve dans l'entête.

Merci

[RobiPMS]

Bonjour.
Effectivement, le "Me" ne peut être utiliser que dans le module du formulaire auquel il se rapporte.
Mais pourquoi ne mets-tu pas ce code sur l'événement "click" du bouton d'ajout d'enregistrement. Le fait que ça soit dans la section en-tête du sous-form n'a pas d'incidence.

Je viens d'essayer pour ne pas te conseiller quelque chose qui ne marche pas, et ça fonctionne très bien.
Cordialement.

[loufab]

Bonjour,
Il y a un tuto qui explique tout ça.

C'est ici :
http://loufab.developpez.com/tutorie...pelformulaire/

Chapitre III.

Lire le reste te rendra autonome pour ces syntaxes basiques.

Cordialement,

[8e8eClo]

Merci à vous deux.

Je vais lire le tuto de ce pas !