Discussion :

[pam-pg]

Code :

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

1
2
3
4
 
Private Sub Commande4532_Click()
Dim EOTP_copie As String
Dim Année_copie As Variant

Dans un sous-formulaire, j'ai écris le code suivant (exécuté depuis un bouton de commande). il doit mettre à jour un novel enregistrement en l'initialisant avec les valeur de l'enregistrement de départ. la première valeur est bien initialisée (ici EOTP) mais pas la seconde qui prend sa valeur par défaut .

Que faut-il faire ?

Code :

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

1
2
3
4
5
EOTP_copie = Forms![Lot par affaires].Form![Lot par affaire Sous-formulaire]![EOTP].Value
Annee_copie = Forms![Lot par affaires].Form![Lot par affaire Sous-formulaire]![Année].Value
DoCmd.GoToRecord , , acNewRec
Forms![Lot par affaires].Form![Lot par affaire Sous-formulaire]![EOTP].Value = EOTP_copie
Forms![Lot par affaires].Form![Lot par affaire Sous-formulaire]![Année].Value = Annee_copie

PS : dans l'ordre inverse des variables cela fonctionne !!

[Mahefasoa]

Bonsoir,

Pourquoi choisir une solution acrobatique alors que la solution la plus simple existe et valide?!
D'après l'écriture de ton code, le bouton devrait être sur le formulaire principal, non? Mais qu'à cela ne tienne, le fait qui me dérange c'est l'utilisation de Value car tu voulais en quelque sorte pré-remplir le contenu de ces deux contrôles avec la valeur de ces contrôles dans l'enregistrement précédent ou celui en cours, n'est-ce pas?
Mois je préférerais l'utilisation de la propriété DefaultValue à Value (tout court) car aisni je ne serai pas obligé d'annuler ma saisie. Avec value, un nouvel enregistrement est en cours de création ce qui m'oblige à faire ECHAP (avant sa validation) si je ne veux pas de l'enregistrement.
La définition des valeurs par défaut sera réalisée lorsque l'événement Sur Sortie du contrôle est annoncé. Ainsi, le bouton de commande ne devrait faire que l'ajout d'un nouvel enregistrement.
Le code suivant est à ajouté dans l'événement Sur Sortie des contrôles EOTP et Année

Code :

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

1
2
3
4
5
 
'pour EOTP
Me.EOTP.DefaultValue = "'" & nz(Me.EOTP,"") & "'"
'Pour Année
Me.Année.DefaultValue = nz(Me.Année, Year(Date))

Bon courage et @+

PS: Si cela fonctionne dans l'ordre inverse, pourquoi n'adoptes-tu pas cet ordre?

[vodiem]

Mahefasoa: j'apprécie ta facon de procéder; j'en prends note et je mettrais à profit, merci. rien a redire si ce n'est que mettre tout ca dans l'événement 'Après MAJ' du form offre un + plus, puisqu'il se déclanche après la maj de l'enregistrement.

toutefois cela entraine une initialisation de la propriété DefaultValue en ouverture de form ou après le déclanchement d'un évènement comme 'sur Activation' ou l'obligation d'une saisie pour initialiser les nouvelles valeurs.

si l'ajout d'un enregistrement est suite à un déplacement dans des enregistrements et que les valeurs initiales ne sont pas saisies, l'intialisation et l'utilisation de DefaultValue n'est pas justifié à mon avis.
ex: je recherche un enregistrement et puis je veux le dupliquer.

autrement pam-pg par curiosité, et pour m'en convaincre, j'ai essayé de reproduire ton erreur, mais je ne suis pas arrivé, je n'ai pas crée de sous form mais je crois pas que cela vienne de cela.
s'il n'y a pas d'événement qui se déclenche il n'y a pas de raison que cela se produise dans un ordre ou un autre.
sinon je serais bien curieux de voir ca et je pense pas être le seul.