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 Controle sur saisie invalide

Controle sur saisie invalide

5 réponses
Avatar
Nadine DELIZY
Bonjour,

Je suis dans un formulaire de saisie qui permet de=20
modifier des enregistrements dej=E0 existants.
Je souhaite installer un controle sur un champ qui est=20
d=E9j=E0 saisie mais que l'utilisateur doit modifier.
En gros je souhaiterai dire que si le champ (Champ1) ne=20
commence pas par le signe =3D suivi de 2 lettres la=20
validation est impossible et l'utilisateur doit mettre =E0=20
jour ce champ.

Je pense que pour les pros que vous =EAtes cel=E0 doit vous=20
sembler basic mais pour moi c'est un bon d=E9fi.

Meci d'avance pour votre aide si pr=E9cieuse.

Nadine DELIZY
Signaler un problème avec ce contenu

5 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
RaphK34
Re,

Sur le before update de ton Champs1:

If left(Me.Champs1) <> "=" or mid(Me.Champs1,2,1) not like "[A-Z]" or
mid(Me.Champs1,3,1) not like "[A-Z]" then
Cancel = True
msgbox "Veuillez Respecter la Syntaxe ...", vb exclamation,"Erreur de
Saisie"
End If


--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------



"Nadine DELIZY" a écrit dans le message de
news: 10ec01c4f118$d95a2810$
Bonjour,

Je suis dans un formulaire de saisie qui permet de
modifier des enregistrements dejà existants.
Je souhaite installer un controle sur un champ qui est
déjà saisie mais que l'utilisateur doit modifier.
En gros je souhaiterai dire que si le champ (Champ1) ne
commence pas par le signe = suivi de 2 lettres la
validation est impossible et l'utilisateur doit mettre à
jour ce champ.

Je pense que pour les pros que vous êtes celà doit vous
sembler basic mais pour moi c'est un bon défi.

Meci d'avance pour votre aide si précieuse.

Nadine DELIZY
Avatar
nospamnadine.delizy
En saisissant la ligne de code, j'ai un message d'erreur
sur le terme "like".
Le message d'erreur est le suivant:
"erreur de compilation: attendu: expression"

Pouvez vous me depanner,
Merci d'avance,
Cordialement
Nadine Delizy

-----Message d'origine-----
Re,

Sur le before update de ton Champs1:

If left(Me.Champs1) <> "=" or mid(Me.Champs1,2,1) not
like "[A-Z]" or

mid(Me.Champs1,3,1) not like "[A-Z]" then
Cancel = True
msgbox "Veuillez Respecter la Syntaxe ...", vb
exclamation,"Erreur de

Saisie"
End If


--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------



"Nadine DELIZY" a écrit
dans le message de

news: 10ec01c4f118$d95a2810$
Bonjour,

Je suis dans un formulaire de saisie qui permet de
modifier des enregistrements dejà existants.
Je souhaite installer un controle sur un champ qui est
déjà saisie mais que l'utilisateur doit modifier.
En gros je souhaiterai dire que si le champ (Champ1) ne
commence pas par le signe = suivi de 2 lettres la
validation est impossible et l'utilisateur doit mettre à
jour ce champ.

Je pense que pour les pros que vous êtes celà doit vous
sembler basic mais pour moi c'est un bon défi.

Meci d'avance pour votre aide si précieuse.

Nadine DELIZY


.



Avatar
Raymond [mvp]
Bonjour.

Not et Like ne vont pas ensemble, supprimer le not et rajouter un ! dans la
liste.
If left(Me.Champs1) <> "=" or mid(Me.Champs1,2,1) like "[!A-Z]" .......

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"" a
écrit dans le message de news: 0ca801c4f17a$4af21620$
En saisissant la ligne de code, j'ai un message d'erreur
sur le terme "like".
Le message d'erreur est le suivant:
"erreur de compilation: attendu: expression"

Pouvez vous me depanner,
Merci d'avance,
Cordialement
Nadine Delizy
Avatar
RaphK34
Eh bien on en apprend vraiment tous les jours !

Merci Raymond ;)


--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------



"Raymond [mvp]" a écrit dans le message de
news:
| Bonjour.
|
| Not et Like ne vont pas ensemble, supprimer le not et rajouter un ! dans
la
| liste.
| If left(Me.Champs1) <> "=" or mid(Me.Champs1,2,1) like "[!A-Z]" .......
|
| --
| @+
| Raymond Access MVP
| http://OfficeSystem.Access.free.fr/
| http://users.skynet.be/mpfa/ pour débuter sur le forum
|
|
| "" a
| écrit dans le message de news: 0ca801c4f17a$4af21620$
| En saisissant la ligne de code, j'ai un message d'erreur
| sur le terme "like".
| Le message d'erreur est le suivant:
| "erreur de compilation: attendu: expression"
|
| Pouvez vous me depanner,
| Merci d'avance,
| Cordialement
| Nadine Delizy
|
|
|
Avatar
Nadine DELIZY
Ca marche nettement mieux comme ça. Merci pour votre aide.

Bon courage.

Cordialement
-----Message d'origine-----
Bonjour.

Not et Like ne vont pas ensemble, supprimer le not et
rajouter un ! dans la

liste.
If left(Me.Champs1) <> "=" or mid(Me.Champs1,2,1)
like "[!A-Z]" .......


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


""
a

écrit dans le message de news: 0ca801c4f17a$4af21620
$

En saisissant la ligne de code, j'ai un message d'erreur
sur le terme "like".
Le message d'erreur est le suivant:
"erreur de compilation: attendu: expression"

Pouvez vous me depanner,
Merci d'avance,
Cordialement
Nadine Delizy



.