Je voudrais limiter =E0 l'entr=E9e le nombre de caract=E8res=20
d'un champ m=E9mo. Plus clairement, je voudrais interdire=20
aux utilisateurs de renseigner le champ 'article' avec=20
plus de 4000 caract=E8res espace compris.
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
3stone
Bonjour,
michèle Je voudrais limiter à l'entrée le nombre de caractères d'un champ mémo. Plus clairement, je voudrais interdire aux utilisateurs de renseigner le champ 'article' avec plus de 4000 caractères espace compris.
Dans l'événement "Sur changement" de ton contrôle mémo, tu mets quelque chose comme :
Private Sub MonMemo_Change()
If Len(MonMemo.Text) >= 4000 Then MsgBox "Cette saisie est limitée à 4000 caractères" MonMemo = Left(MonMemo,4000) End If
End Sub
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
Bonjour,
michèle <michele@hotmail.com>
Je voudrais limiter à l'entrée le nombre de caractères
d'un champ mémo. Plus clairement, je voudrais interdire
aux utilisateurs de renseigner le champ 'article' avec
plus de 4000 caractères espace compris.
Dans l'événement "Sur changement" de ton contrôle mémo,
tu mets quelque chose comme :
Private Sub MonMemo_Change()
If Len(MonMemo.Text) >= 4000 Then
MsgBox "Cette saisie est limitée à 4000 caractères"
MonMemo = Left(MonMemo,4000)
End If
End Sub
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------
michèle Je voudrais limiter à l'entrée le nombre de caractères d'un champ mémo. Plus clairement, je voudrais interdire aux utilisateurs de renseigner le champ 'article' avec plus de 4000 caractères espace compris.
Dans l'événement "Sur changement" de ton contrôle mémo, tu mets quelque chose comme :
Private Sub MonMemo_Change()
If Len(MonMemo.Text) >= 4000 Then MsgBox "Cette saisie est limitée à 4000 caractères" MonMemo = Left(MonMemo,4000) End If
End Sub
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
Evaro
Bonjour Michèle,
"michèle" a écrit dans le message de news: 004901c36278$880da8e0$ Bonjour,
Je voudrais limiter à l'entrée le nombre de caractères d'un champ mémo. Plus clairement, je voudrais interdire aux utilisateurs de renseigner le champ 'article' avec plus de 4000 caractères espace compris.
Private Sub MonChampMemo_AfterUpdate() If Len(Me.MonChampMemo) > 4000 Then MsgBox ("Ce Champ est limité à 4000 caractères") Me.MonChampMemo= Left$(Me.MonChampMemo, 4000) End If End Sub
-- @ + Etienne Charte du forum: http://users.skynet.be/mpfa/charte.htm
Bonjour Michèle,
"michèle" <michele@hotmail.com> a écrit dans le message de news:
004901c36278$880da8e0$a301280a@phx.gbl...
Bonjour,
Je voudrais limiter à l'entrée le nombre de caractères
d'un champ mémo. Plus clairement, je voudrais interdire
aux utilisateurs de renseigner le champ 'article' avec
plus de 4000 caractères espace compris.
Private Sub MonChampMemo_AfterUpdate()
If Len(Me.MonChampMemo) > 4000 Then
MsgBox ("Ce Champ est limité à 4000 caractères")
Me.MonChampMemo= Left$(Me.MonChampMemo, 4000)
End If
End Sub
--
@ +
Etienne
Charte du forum: http://users.skynet.be/mpfa/charte.htm
"michèle" a écrit dans le message de news: 004901c36278$880da8e0$ Bonjour,
Je voudrais limiter à l'entrée le nombre de caractères d'un champ mémo. Plus clairement, je voudrais interdire aux utilisateurs de renseigner le champ 'article' avec plus de 4000 caractères espace compris.
Private Sub MonChampMemo_AfterUpdate() If Len(Me.MonChampMemo) > 4000 Then MsgBox ("Ce Champ est limité à 4000 caractères") Me.MonChampMemo= Left$(Me.MonChampMemo, 4000) End If End Sub
-- @ + Etienne Charte du forum: http://users.skynet.be/mpfa/charte.htm
