Limiter la taille d'un champ memo [Débutant(e)]

**Chrissrare** · 23/01/2007, 09h34

Bonjour à tous

Je voudrais limiter le nombre de caractères d'un champ mémo à 500. Est-ce possible ???

Merci de votre aide.

Chrissss

**Dolphy35** · 23/01/2007, 09h39

Salut,

Non ce n'est pas posssible un champ mémo est limité à 255

Dolphy

**Tofalu** · 23/01/2007, 09h40

Oui c'est possible

Il faut renseigner les propriétés Valide Si et Message Erreur pour le champ concerné dans la table :

Valide Si : Len([MonChamp])<=500
Message Erreur : "Trop long, vous êtes limités à 500 caractères"

Et voilà

Dolphy, le champ mémo est limité à 65535

**Chrissrare** · 23/01/2007, 09h41

Je ne voudrais pas te contrarier dolphy mais je pense que la capacité d'un champ mémo est de 65000 caractères.

Merci à toi pour ta réponse ...

Invité · 23/01/2007, 09h42

Salut

C'est un champ text qui est limité à 255, si tu veux limiter le champ mémo il faut utiliser la fonction LEFT pour prendre les 500 premier caratère d'une chaine.

Mais ce n'est pas possible en direct dans la propriété du champ

starec

**Tofalu** · 23/01/2007, 10h07

Envoyé par Starec

Salut

C'est un champ text qui est limité à 255, si tu veux limiter le champ mémo il faut utiliser la fonction LEFT pour prendre les 500 premier caratère d'une chaine.

Mais ce n'est pas possible en direct dans la propriété du champ

starec

Et ma solution, elle ne plait à personne ?

Invité · 23/01/2007, 10h11

Re

Excuse Tofalu, effectivement je n'avais pas pensé à cela, elle est encore meilleur.

Starec

**Chrissrare** · 23/01/2007, 10h14

Excusez moi de vous contrarier et merci de plancher sur mon problème mais je voudrais entrer un controle en vb sur une action de l'utilisateur.

Vous avez la soluce ????

merci !!!

**Tofalu** · 23/01/2007, 10h15

Quel rapport avec le champ mémo et sa taille ?

Invité · 23/01/2007, 10h18

Re

Alors il faut prendre le left pour garder les 500 premiers caractères, ou tester après la saisie avec la fonction Len.

Comme dit Tofalu il n'ya aucun rapport avec le champ mémo, ce que tu veux faire c'est contrôler la saisie

Starec

**cafeine** · 23/01/2007, 10h18

Hello,

1- ça n'a pas de rapport avec le premier post
2- c'est incompréhensible pour moi

Envoyé par Chrissrare

../.. entrer un controle en vb sur une action de l'utilisateur. ../..

**Chrissrare** · 23/01/2007, 10h18

Ben je voudrais que l'application contrôle le nombre de caractères à la fermeture d'un formulaire par exemple.

C'est un peu ta solution tofalu mais au lieu de le faire directement dans la table, je voudrais le faire sur une action.

**cafeine** · 23/01/2007, 10h22

ok
sur l'événement fermeture, essaie ce code

Code :

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

1
2
3
If len(Me.Controls("Nom du controle") > 500 Then
    msgbox "Pas bien, ya trop de lettres !"
End if

**Tofalu** · 23/01/2007, 10h44

Autant le faire dans la table non ? Au moins tu es sur que la contrainte sera toujours respéctée quelque soit le mode d'accès à la base de données.

De plus la propriété Valide Si existe aussi pour les contrôles

**Chrissrare** · 23/01/2007, 10h45

Le nom de mon champ s'appelle observations

Je met le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
If Len(Me.Controls(Observations)) > 500 Then
 
    MsgBox "trop de lettres"
 
Else
 
    DoCmd.Close acForm, "saisieliquant"
    DoCmd.OpenForm "AccueilLitquant", , , , , acDialog
 
End If
 
End Sub

Mais ca ne marche pas !!!! Doit y avoir une erreur de syntaxe !!!????

merci

**cafeine** · 23/01/2007, 10h52

J'ai mis des double quotes (") autour du nom du contrôle ...

Cela dit, Tofalu a raison.

**Chrissrare** · 23/01/2007, 11h06

même avec les côtes comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
If Len(Me.Controls("Observations")) > 500 Then
 
    MsgBox "trop de lettres"
 
Else
 
    DoCmd.Close acForm, "saisieliquant"
    DoCmd.OpenForm "AccueilLitquant", , , , , acDialog
 
End If
 
End Sub

Ca ne marche pas !!!!

La méthode de tofalu marche quand je saisis directement dans la table. Par contre, quand je le fais avec le formulaire, l'enregistrement ne s'incrémente pas dans la table mais je n'ai pas le message d'erreur !!!!!!

**Chrissrare** · 23/01/2007, 11h12

J'ai aussi essayer avec les [] comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
If Len(Me.Controls([Observations])) > 500 Then
 
    MsgBox "trop de lettres"
 
Else
 
    DoCmd.Close acForm, "saisieliquant"
    DoCmd.OpenForm "AccueilLitquant", , , , , acDialog
 
End If
 
End Sub

Ca paraît mieux mais ca bloque l'appli !!!!!