Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Valeur par défaut

Valeur par défaut

2 réponses
Avatar
Sady
voila j'ai du mal avec ceci:
=20
La proc=E9dure ci-dessous permet de charger la derni=E8re=20
valeur compos=E9e d'un champ dans la valeur par d=E9faut de=20
ce m=EAme champ. Lors de l'affichage du prochain=20
enregistrement =E0 saisir, cette valeur sera report=E9e dans=20
le champ. Cette valeur sera charg=E9e lors de=20
l'=E9v=E8nement "update".
Contrairement =E0 ce qu'on pourrait penser, une valeur par=20
d=E9faut n'est pas la valeur d'un champ mais un litt=E9ral;=20
donc si la valeur est alphanum=E9rique il faudra l'indiquer=20
entre guillemets, un champ date =E9tant trait=E9 comme un=20
champ alphanum=E9rique.
=20
Private Sub MonChamp_AfterUpdate()
Me.MonChamp.DefaultValue =3D """" & Me.MonChamp=20
& """" ' pour alpha
Me.MonChamp.DefaultValue =3D=20
Me.MonChamp ' pour num=E9rique
End Sub
=20
Voici ce que moi j'ai mis sur mon formulaire..
=20
Private Sub No_rapport_AfterUpdate()
Me.[No_Rapport].DefaultValue =3D """" & Me.[No Rapport]=20
& """" ' pour alpha
End Sub
=20
Pourquoi ca ne fonctionne pas ?
=20
dois-je le mettre sur =E9venement maj..sur touche ou je ne=20
sais trop ? Et qu'est ce qui n'est pas bon dans mon=20
code ??

Merci
Sady
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel Walsh
Salut,


Utiliser Form_AfterUpdate, au lieu de No_rapport_AfterUpdate

Si [No Rapport] peut contenir un guillment, faire:

Private Sub No_rapport_AfterUpdate()

Me.[No_Rapport].DefaultValue = """" & _
Replace(Me.[No Rapport] , """", """""" ) & """"

End Sub


Espérant être utile,
Vanderghast, Access MVP


"Sady" wrote in message
news:1f45501c4579c$202c10d0$
voila j'ai du mal avec ceci:

La procédure ci-dessous permet de charger la dernière
valeur composée d'un champ dans la valeur par défaut de
ce même champ. Lors de l'affichage du prochain
enregistrement à saisir, cette valeur sera reportée dans
le champ. Cette valeur sera chargée lors de
l'évènement "update".
Contrairement à ce qu'on pourrait penser, une valeur par
défaut n'est pas la valeur d'un champ mais un littéral;
donc si la valeur est alphanumérique il faudra l'indiquer
entre guillemets, un champ date étant traité comme un
champ alphanumérique.

Private Sub MonChamp_AfterUpdate()
Me.MonChamp.DefaultValue = """" & Me.MonChamp
& """" ' pour alpha
Me.MonChamp.DefaultValue Me.MonChamp ' pour numérique
End Sub

Voici ce que moi j'ai mis sur mon formulaire..

Private Sub No_rapport_AfterUpdate()
Me.[No_Rapport].DefaultValue = """" & Me.[No Rapport]
& """" ' pour alpha
End Sub

Pourquoi ca ne fonctionne pas ?

dois-je le mettre sur évenement maj..sur touche ou je ne
sais trop ? Et qu'est ce qui n'est pas bon dans mon
code ??

Merci
Sady
Avatar
Sady
Bonjour Vanderghast,

je suis venue te remercier ça fonctionne enfin :)

Sady


-----Message d'origine-----
Salut,


Utiliser Form_AfterUpdate, au lieu de
No_rapport_AfterUpdate


Si [No Rapport] peut contenir un guillment, faire:

Private Sub No_rapport_AfterUpdate()

Me.[No_Rapport].DefaultValue = """" & _
Replace(Me.[No Rapport] , """", """""" ) & """"

End Sub


Espérant être utile,
Vanderghast, Access MVP


"Sady" wrote in
message

news:1f45501c4579c$202c10d0$
voila j'ai du mal avec ceci:

La procédure ci-dessous permet de charger la dernière
valeur composée d'un champ dans la valeur par défaut de
ce même champ. Lors de l'affichage du prochain
enregistrement à saisir, cette valeur sera reportée dans
le champ. Cette valeur sera chargée lors de
l'évènement "update".
Contrairement à ce qu'on pourrait penser, une valeur par
défaut n'est pas la valeur d'un champ mais un littéral;
donc si la valeur est alphanumérique il faudra l'indiquer
entre guillemets, un champ date étant traité comme un
champ alphanumérique.

Private Sub MonChamp_AfterUpdate()
Me.MonChamp.DefaultValue = """" & Me.MonChamp
& """" ' pour alpha
Me.MonChamp.DefaultValue =
Me.MonChamp ' pour numérique
End Sub

Voici ce que moi j'ai mis sur mon formulaire..

Private Sub No_rapport_AfterUpdate()
Me.[No_Rapport].DefaultValue = """" & Me.[No Rapport]
& """" ' pour alpha
End Sub

Pourquoi ca ne fonctionne pas ?

dois-je le mettre sur évenement maj..sur touche ou je ne
sais trop ? Et qu'est ce qui n'est pas bon dans mon
code ??

Merci
Sady


.