Mettre une valeur par défaut à partir du dernier enregistrement
tianamimix
-
le meruvien Messages postés 1130 Date d'inscription Statut Membre Dernière intervention -
le meruvien Messages postés 1130 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
J'ai un formulaire F basé sur une table T.
Il y a 7 champs (C1, C2, C3, C4, C5, C6, C7) à remplir sur le formulaire F, et mon souci c'est comment je dois faire si je veux que lors d'un nouvel enregistrement, les champs C1, C2 et C3 prennent les valeurs du dernier enregistrement et le reste vide.
Merci.
J'ai un formulaire F basé sur une table T.
Il y a 7 champs (C1, C2, C3, C4, C5, C6, C7) à remplir sur le formulaire F, et mon souci c'est comment je dois faire si je veux que lors d'un nouvel enregistrement, les champs C1, C2 et C3 prennent les valeurs du dernier enregistrement et le reste vide.
Merci.
A voir également:
- Mettre une valeur par défaut à partir du dernier enregistrement
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Dernier iphone - Guide
- Ouvrir avec par défaut - Guide
- Créer une icone à partir d'une image - Guide
1 réponse
bonjour, voila une méthode que j'utilise, qui fait peut-être usine à gaz pour un pro, mais qui marche trés bien!
tu met cette procédure sur ouvertur de ton formulaire.
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord, , acLast 'atteind le dernier
DoCmd.DoMenuItem acFormBar,acEditMenu,8, ,acMenuVer70 ' copie
DoCmd.DoMenuItem acFormBar,acEditMenu,2, ,acMenuVer70 ' copie
DoCmd.DoMenuItem acFormBar,acEditMenu,5, ,acMenuVer70 ' colle tout les champs!
Dans ton cas, tu met:
Pour un champ: Mettre ce code dans sur chargement du formulaire.
C1.DefaultValue = "'" & [C1] & "'"
C2.DefaultValue = "'" & [C2] & "'"
C3.DefaultValue = "'" & [C3] & "'"
end sub
tu met cette procédure sur ouvertur de ton formulaire.
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord, , acLast 'atteind le dernier
DoCmd.DoMenuItem acFormBar,acEditMenu,8, ,acMenuVer70 ' copie
DoCmd.DoMenuItem acFormBar,acEditMenu,2, ,acMenuVer70 ' copie
DoCmd.DoMenuItem acFormBar,acEditMenu,5, ,acMenuVer70 ' colle tout les champs!
Dans ton cas, tu met:
Pour un champ: Mettre ce code dans sur chargement du formulaire.
C1.DefaultValue = "'" & [C1] & "'"
C2.DefaultValue = "'" & [C2] & "'"
C3.DefaultValue = "'" & [C3] & "'"
end sub