GNT sans publicité, site mobile, fonctionnalitées exclusives...

Contrôler l'orthographe de l'article pour un même code

Le
Fguy
Bonjour,

Dans cette fonction, j'aimerais contrôler l'orthographe de l'article pour un
même code, sachant aussi, qu'il pourrait y avoir un apostrophe dans
l'article.
Je ne vois vraiment pas comment m'y prendre.
Par exemple: pour le code 001 j'ai l'article pain, j'aimerais que pour le
code 001 et que si l'article soit écrit paine au lieu de pain, que l'erreur
me soit signalée.
J'ai bien essayé le sub ci-dessous, mais ça ne fonctionne pas.


Private Sub Prix_AfterUpdate()
Dim meF As Form, rstRem As Recordset, maBD As Database
Dim Critere, CritereDeux
Set maBD = CurrentDb
Set rstRem = maBD.OpenRecordset("tblVérification", dbOpenDynaset)
If EstChargé("frmVérification" Then
Set meF = Forms![frmVérification]
CritereDeux = "code= '" & meF![Code] & "' And article= '" &
meF!Article
With rstRem
.FindFirst CritereDeux
If Not .NoMatch Then
MsgBox "l'article ce correspond pas au code inscrit",
vbCritical, "erreur syntaxe"
End If
End With
End If
End Sub

D'avance merci :-)

Fguy
Lire les 9 réponses

Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gloops
Le #23683831
Fguy a écrit, le 23/08/2011 14:22 :
Bonjour,

Dans cette fonction, j'aimerais contrôler l'orthographe de l'article
pour un même code, sachant aussi, qu'il pourrait y avoir un apostroph e
dans l'article.
Je ne vois vraiment pas comment m'y prendre.
Par exemple: pour le code 001 j'ai l'article pain, j'aimerais que pour
le code 001 et que si l'article soit écrit paine au lieu de pain, que
l'erreur me soit signalée.
J'ai bien essayé le sub ci-dessous, mais ça ne fonctionne pas.


Private Sub Prix_AfterUpdate()
Dim meF As Form, rstRem As Recordset, maBD As Database
Dim Critere, CritereDeux
Set maBD = CurrentDb
Set rstRem = maBD.OpenRecordset("tblVérification", dbOpenDynaset)
If EstChargé("frmVérification" Then
Set meF = Forms![frmVérification]
CritereDeux = "code= '" & meF![Code] & "' And article= '" & meF!A rticle
With rstRem
.FindFirst CritereDeux
If Not .NoMatch Then
MsgBox "l'article ce correspond pas au code inscrit", vbCritical,
"erreur syntaxe"
End If
End With
End If
End Sub

D'avance merci :-)

Fguy




Bonjour,

La correction doit-elle obligatoirement se référer à la table ? Ou
est-ce qu'une correction orthographique basée sur un dictionnaire ne
ferait pas l'affaire ? Parce que dans ce dernier cas il suffit de mettre
à vrai la propriété autoriser la correction orthographique (l'intit ulé
est approximatif, je le cite de mémoire).

En revanche en général on suggère de désactiver la correction
orthographique pour les champs de codes.
Fguy
Le #23684391
Bonjour,

Merci pour ta réponse.
En fait, ce n'est pas pour vérifier l'orthographe du mot, là, comme tu dis,
il y a des possibiltés.
Non, je voudrais vérifier le nom d'un article par rapport à un code.
Comme par exemple, dans une table, j'ai un code en mode texte et un nom en
mode texte aussi;
Si dans la table, par exemple: le code est 001 et le nom de l'article est
pain.
J'aurais voulu que si on écrit le code 001 et mot paine au lieu de pain, un
message d'alerte s'affiche.
D'avance merci.

Fguy

"Gloops" a écrit dans le message de groupe de discussion :
j3589s$p7a$

Fguy a écrit, le 23/08/2011 14:22 :
Bonjour,

Dans cette fonction, j'aimerais contrôler l'orthographe de l'article
pour un même code, sachant aussi, qu'il pourrait y avoir un apostrophe
dans l'article.
Je ne vois vraiment pas comment m'y prendre.
Par exemple: pour le code 001 j'ai l'article pain, j'aimerais que pour
le code 001 et que si l'article soit écrit paine au lieu de pain, que
l'erreur me soit signalée.
J'ai bien essayé le sub ci-dessous, mais ça ne fonctionne pas.


Private Sub Prix_AfterUpdate()
Dim meF As Form, rstRem As Recordset, maBD As Database
Dim Critere, CritereDeux
Set maBD = CurrentDb
Set rstRem = maBD.OpenRecordset("tblVérification", dbOpenDynaset)
If EstChargé("frmVérification" Then
Set meF = Forms![frmVérification]
CritereDeux = "code= '" & meF![Code] & "' And article= '" & meF!Article
With rstRem
.FindFirst CritereDeux
If Not .NoMatch Then
MsgBox "l'article ce correspond pas au code inscrit", vbCritical,
"erreur syntaxe"
End If
End With
End If
End Sub

D'avance merci :-)

Fguy




Bonjour,

La correction doit-elle obligatoirement se référer à la table ? Ou
est-ce qu'une correction orthographique basée sur un dictionnaire ne
ferait pas l'affaire ? Parce que dans ce dernier cas il suffit de mettre
à vrai la propriété autoriser la correction orthographique (l'intitulé
est approximatif, je le cite de mémoire).

En revanche en général on suggère de désactiver la correction
orthographique pour les champs de codes.
Gloops
Le #23689171
Fguy a écrit, le 25/08/2011 14:07 :
Bonjour,

Merci pour ta réponse.
En fait, ce n'est pas pour vérifier l'orthographe du mot, là, comme tu
dis, il y a des possibiltés.
Non, je voudrais vérifier le nom d'un article par rapport à un code .
Comme par exemple, dans une table, j'ai un code en mode texte et un nom
en mode texte aussi;
Si dans la table, par exemple: le code est 001 et le nom de l'article
est pain.
J'aurais voulu que si on écrit le code 001 et mot paine au lieu de pa in,
un message d'alerte s'affiche.
D'avance merci.

Fguy

"Gloops" a écrit dans le message de groupe de discussion :
j3589s$p7a$

Fguy a écrit, le 23/08/2011 14:22 :
Bonjour,

Dans cette fonction, j'aimerais contrôler l'orthographe de l'article
pour un même code, sachant aussi, qu'il pourrait y avoir un apostrop he
dans l'article.
Je ne vois vraiment pas comment m'y prendre.
Par exemple: pour le code 001 j'ai l'article pain, j'aimerais que pour
le code 001 et que si l'article soit écrit paine au lieu de pain, qu e
l'erreur me soit signalée.
J'ai bien essayé le sub ci-dessous, mais ça ne fonctionne pas.


Private Sub Prix_AfterUpdate()
Dim meF As Form, rstRem As Recordset, maBD As Database
Dim Critere, CritereDeux
Set maBD = CurrentDb
Set rstRem = maBD.OpenRecordset("tblVérification", dbOpenDynaset)
If EstChargé("frmVérification" Then
Set meF = Forms![frmVérification]
CritereDeux = "code= '" & meF![Code] & "' And article= '" & meF! Article
With rstRem
.FindFirst CritereDeux
If Not .NoMatch Then
MsgBox "l'article ce correspond pas au code inscrit", vbCritical,
"erreur syntaxe"
End If
End With
End If
End Sub

D'avance merci :-)

Fguy




Bonjour,

La correction doit-elle obligatoirement se référer à la table ? O u
est-ce qu'une correction orthographique basée sur un dictionnaire ne
ferait pas l'affaire ? Parce que dans ce dernier cas il suffit de mettr e
à vrai la propriété autoriser la correction orthographique (l'int itulé
est approximatif, je le cite de mémoire).

En revanche en général on suggère de désactiver la correction
orthographique pour les champs de codes.




C'est-à-dire que ... normalement, une fois qu'on a choisi 001, on
n'écrit pas pain, on se contente de vérifier que ça apparaît prop rement,
et si ce n'est pas le cas on se demande pourquoi.

Il y a la liste modifiable déroulante, qui est pas mal pour faire ça.=
Fguy
Le #23693541
Salut Gloops,

Je viens seulement de voir ta dernière réponse, merci :-)
Oui, pour la liste déroulante, c'est déjà comme ça, mais je ne vois pas
comment signaler qu'on entre un nom différent que celui qui est proposé par
la liste modifiable.
C'est là que j'ai un trou, que dis-je, un gouffre :-(
Si tu avais une solution, cela m'arrangerait beaucoup :-)
J'avais choisi pain et paine comme exemple, mais ce serait plutôt lave glace
et lave-glace, il y a l'absence de tiret qui devrait interpeller.
@+

Fguy

"Gloops" a écrit dans le message de groupe de discussion :
j38s1g$cs8$

Fguy a écrit, le 25/08/2011 14:07 :
Bonjour,

Merci pour ta réponse.
En fait, ce n'est pas pour vérifier l'orthographe du mot, là, comme tu
dis, il y a des possibiltés.
Non, je voudrais vérifier le nom d'un article par rapport à un code.
Comme par exemple, dans une table, j'ai un code en mode texte et un nom
en mode texte aussi;
Si dans la table, par exemple: le code est 001 et le nom de l'article
est pain.
J'aurais voulu que si on écrit le code 001 et mot paine au lieu de pain,
un message d'alerte s'affiche.
D'avance merci.

Fguy

"Gloops" a écrit dans le message de groupe de discussion :
j3589s$p7a$

Fguy a écrit, le 23/08/2011 14:22 :
Bonjour,

Dans cette fonction, j'aimerais contrôler l'orthographe de l'article
pour un même code, sachant aussi, qu'il pourrait y avoir un apostrophe
dans l'article.
Je ne vois vraiment pas comment m'y prendre.
Par exemple: pour le code 001 j'ai l'article pain, j'aimerais que pour
le code 001 et que si l'article soit écrit paine au lieu de pain, que
l'erreur me soit signalée.
J'ai bien essayé le sub ci-dessous, mais ça ne fonctionne pas.


Private Sub Prix_AfterUpdate()
Dim meF As Form, rstRem As Recordset, maBD As Database
Dim Critere, CritereDeux
Set maBD = CurrentDb
Set rstRem = maBD.OpenRecordset("tblVérification", dbOpenDynaset)
If EstChargé("frmVérification" Then
Set meF = Forms![frmVérification]
CritereDeux = "code= '" & meF![Code] & "' And article= '" & meF!Article
With rstRem
.FindFirst CritereDeux
If Not .NoMatch Then
MsgBox "l'article ce correspond pas au code inscrit", vbCritical,
"erreur syntaxe"
End If
End With
End If
End Sub

D'avance merci :-)

Fguy




Bonjour,

La correction doit-elle obligatoirement se référer à la table ? Ou
est-ce qu'une correction orthographique basée sur un dictionnaire ne
ferait pas l'affaire ? Parce que dans ce dernier cas il suffit de mettre
à vrai la propriété autoriser la correction orthographique (l'intitulé
est approximatif, je le cite de mémoire).

En revanche en général on suggère de désactiver la correction
orthographique pour les champs de codes.




C'est-à-dire que ... normalement, une fois qu'on a choisi 001, on
n'écrit pas pain, on se contente de vérifier que ça apparaît proprement,
et si ce n'est pas le cas on se demande pourquoi.

Il y a la liste modifiable déroulante, qui est pas mal pour faire ça.
Gloops
Le #23693571
Moi, ce que je n'ai pas compris, c'est pourquoi on entrerait un nom,
alors qu'il y est déjà.

Fguy a écrit, le 28/08/2011 10:08 :
Salut Gloops,

Je viens seulement de voir ta dernière réponse, merci :-)
Oui, pour la liste déroulante, c'est déjà comme ça, mais je ne vois pas
comment signaler qu'on entre un nom différent que celui qui est propo sé
par la liste modifiable.
C'est là que j'ai un trou, que dis-je, un gouffre :-(
Si tu avais une solution, cela m'arrangerait beaucoup :-)
J'avais choisi pain et paine comme exemple, mais ce serait plutôt lav e
glace et lave-glace, il y a l'absence de tiret qui devrait interpeller.
@+

Fguy
Publicité
Suivre les réponses
Poster une réponse
Anonyme