Mettre une valeur par défaut à partir du dernier enregistrement
Fermé
tianamimix
-
20 nov. 2013 à 08:20
le meruvien Messages postés 1125 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 15 décembre 2024 - 20 nov. 2013 à 15:41
le meruvien Messages postés 1125 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 15 décembre 2024 - 20 nov. 2013 à 15:41
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
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Avatar facebook à partir de photo - Guide
1 réponse
le meruvien
Messages postés
1125
Date d'inscription
vendredi 12 août 2011
Statut
Membre
Dernière intervention
15 décembre 2024
40
20 nov. 2013 à 15:41
20 nov. 2013 à 15:41
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