Discussion :

[maub85]

J'ai besoin d'aide dans les formulaires ACCESS (2003) et sur le code VBA :
J'ai un formulaire simple dont la source est une table à 4 champs : Code_Auto, Nom, Prénom, Commune.
Je dois saisir à la suite plusieurs personnes de la même commune, sans vouloir ressaisir la commune à chaque nouvel enregistrement.
1 - Sur quel évenement dois-je mémoriser la commune saisie, par ex dans la variable comm_preced, dès la validation de l'enregistrement
2 - Sur quel évenement du nouvel enregistrement dois-je attribuer la variable (comm_preced) pour que je n'ai pas la peine de remplir à nouveau le controle 'commune'.
3 - Ou déclarer cette variable (comm_preced) avant de pouvoir m'en servir ?
4 - Quelle syntaxe de VBA pour la renseigner ?
5 - Quelle syntaxe pour en restituer la valeur dans la saisie suivante ?
PS- J'ai bien lu l'excellent tuto de Loufab sur le sujet des évenements, mais je n'y arrive pas !
Merci

[marot_r]

Sans programmation tu peux utiliser [ctrl][shift][,] pour recopier le contenu du champ dans l'enr précédant.

Cela te suffit-il ou tu tiens à la version programmée ?

A+

[Geache]

Déclare ta variable Comm_Prec publique ou globale selon ce que tu en feras.

Sur l'événement after_update de ton champ commune, tu mets le code suivant :

Code :

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

1
2
3
Private Sub Commune_AfterUpdate()
    Comm_Prec = Commune
End Sub

Et dans la propriété valeur par défaut, de ton champ commune, ajoutes :

=Comm_Prec

Cela devrait répondre à ta question.

[Alain36]

Bonjour,

Déclarer un nom de variable dans une propriété de formulaire me paraît scabreux. Le mieux est d'utiliser l'événement Avant insertion du formulaire.

Code :

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

1
2
3
4
 
Private Sub Form_BeforeInsert(Cancel As Integer)
   Commune = Comm_Prec
End Sub

par ailleurs, la variable Comm_Prec peut être déclarée en tête du module du formulaire. Par exemple, après Option Compare database et Option Explicit.

[Geache]

Bonjour,


Je n'ai jamais parlé de la déclarer dans la propriété. Je pensais effectivement à la tête du module pour la déclaration en Public ou Global.

[marot_r]

Il n'est pas nécessaire de déclarer Comm_Prec public ni global si elle n'est utilisée que dans ce formulaire.

Les variables globales doivent être utilisées avec prudence car elles sont sources de bugs difficiles à retracer. Quand une variable est globale, n'importe quel module dans l'application peut la voir donc potentiellement dépendre d'elle pour son fonctionnement et la modifier si l'envie lui en prend.

A+

[maub85]

Donc si j'ai compris vos conseils, je résume :

1 - Pas la peine de déclarer la variable 'comm_prec' car elle n'est utilisée que dans ce formulaire.

2 - Pour mémoriser la valeur de 'commune' saisie la première fois, je mets :

Code :

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

1
2
3
Private Sub Commune_AfterUpdate()
    Comm_Prec = Commune
End Sub

3 - Pour retrouver cette valeur, posée dans le champ 'commune' lorsque le formulaire va s'afficher pour que je saisisse l'enregistrement suivant, je mets :

Code :

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

1
2
3
Private Sub Form_BeforeInsert(Cancel As Integer)
   Commune = Comm_Prec
End Sub

4 -Ainsi je n'ai plus à saisir 'commune' si sa valeur reste la même.

Est-ce OK ?

Merci les amis.
Michel

[marot_r]

1 - Pas la peine de déclarer la variable 'comm_prec' car elle n'est utilisée que dans ce formulaire.

Non pas besoin de la déclarer Public ou Global mais il faut la déclarer au niveau du formulaire comme le mentionne Geache sinon elle va être locale à la procédure te tu ne pourras pas la réutiliser.

De plus il est recommandé de TOUJOURS déclarer ses variables. à mes début en programmation, une non déclaration de variable m'a déjà coûté une semaine de recherche de bug.

Pour être obliger de déclarer les variables il faut activer l'option déclaration de variable oblgatoire. Cela rajoute Option Explicit en tête de tous les nouveaux modules. Attention cela n'a pas d'effet rétro-actif, si un module a été créé sans il faut ajouter Option Explicit à la main après Option Compare Database.

À part cela c'est parfais.

A+

[maub85]

merci.
Vos conseils m'ont aidé.
Je ne sais pas comment faite pour mettre 'résolu' à cette discussion.
A+ pour d'autres questions.
Michel

[marot_r]

Je l'ai fait pour toi, il suffit d'appuyer sur le bouton Résolu en bas de la discussion.

A+