Tester le nombres de caractères et le type des cases d'un champ en VB et SQL

Voila je travaille avec 3 tables :
* RSP_0 (table intermédiaire)
* RSP (table des RSP normaux)
* RSP_Anomalie (table des erreurs)

Mon objectif est de remplir RSP et RSP_Anomalie en fonction des valeurs de RSP_0. Donc je teste certaine colonne de RSP_0 et en cas d'erreurs j'envoie ces lignes dans RSP_Anomalie.

Pour vérifier que dans un champ je n'ai que des "P" ou "C" je fais cela :

Code:

---

1 2 3 4 5 6

NBAnomalie = DCount("[TYP_DONNEE]", "RSP_0", "[TYP_DONNEE]<> 'P' and [TYP_DONNEE]<> 'C' ") If NBAnomalie >= 1 Then CurrentDb.Execute "INSERT INTO RSP_Anomalie SELECT * FROM RSP_0 WHERE ((Not ((RSP_0.TYP_DONNEE)='P' Or (RSP_0.TYP_DONNEE)='C')))" CurrentDb.Execute "DELETE * FROM RSP_0 WHERE ((Not ((RSP_0.TYP_DONNEE)='P' Or (RSP_0.TYP_DONNEE)='C')))" 'MsgBox "Il y a " & NBAnomalie & " Erreur(s) par rapport à TYP_DONNEE" End If

---

Mon problème c'est pour tester la colonne NUM_CAISSE. J'arrive à savoir en VB si il y a un problème, mais ensuite je n'arrive pas à détecter quels sont les lignes fausses en SQL. Pour les transferer dans ma table RSP_Anomalie Petite présicion en plus, la table NUM_CAISSE est du type texte est pas numérique. Je peux pas le changer ça

Code:

---

1 2 3 4 5 6

NBAnomalie = DCount("[NUM_CAISSE]", "RSP_0", "(len([NUM_CAISSE]) <> 5) or (not(IsNumeric([NUM_CAISSE])))") If NBAnomalie >= 1 Then 'TODO Envoie des lignes fausses vers RSP_Anomalie 'TODO Effacement des lignes fausses de RSP_0 MsgBox "Il y a " & NBAnomalie & " Erreur(s) par rapport à NUM_CAISSE !!!" End If

---

P.S: dans NUM_CAISSE il doit y avoir que des cases soit null soit avec 5 chiffres

Merci d'avance
cdlt, Eck

Peut-être aborder plus simplement.
Une 1ère requête (ajout) sur RSP_0 qui détecte les anomalies et ajoute les anomalies détectées dans RSP_anomalies.
Une 2ème requête (ajout) sur RSP_0 (tous les enregistrements) et RSP_anomalies qui alimente RSP avec les enregistrements de RSP_0 non contenus dans RSP_anomalies.
(NB vidanger au préalable RSP et RSP_anomalies)

Citation:

---

Envoyé par ClaudeLELOUP

Une 1ère requête (ajout) sur RSP_0 qui détecte les anomalies et ajoute les anomalies détectées dans RSP_anomalies.

---

C'est ce que je n'arrive pas à faire :oops:, enfin si j'ai bien compris ta proposition 8-)

Pour ajouter les corrects dans RSP:

Code:

---

INSERT INTO RSP SELECT RSP_0.* FROM RSP_0 WHERE (((RSP_0.TYP_DONNEE)="C" Or (RSP_0.TYP_DONNEE)="P"));

---

Pour ajouter les incorrects dans RSP_anomalies

Code:

---

INSERT INTO RSP_Anomalies SELECT RSP_0.* FROM RSP_0 WHERE (((RSP_0.TYP_DONNEE)<>"C" And (RSP_0.TYP_DONNEE)<>"P"));

---

Non mais mon problème c'est pas pour ça, c'est pour test les 5 caractères et que ce soit tous des chiffres.

Le "P" et "C" c'était pour montrer sur un autre bout de code qui fonctionne comment je fais...

Désolé, j'avais mal lu la question.
Voici pour les corrects :

Code:

---

INSERT INTO RSP SELECT RSP_0.* FROM RSP_0 WHERE (((RSP_0.NUM_CAISSE) Is Null)) OR (((RSP_0.NUM_CAISSE)>="00000" And (RSP_0.NUM_CAISSE)<="99999"));

---

et pour les incorrects :

Code:

---

INSERT INTO RSP SELECT RSP_0.* FROM RSP_0 WHERE ((Not (RSP_0.NUM_CAISSE) Is Null) AND ((RSP_0.NUM_CAISSE)<"00000" Or (RSP_0.NUM_CAISSE)>"99999"));

---

Non j'avais essayer ça ne fonctionne pas non plus :?, à l'aide de l'assistant access j'ai réussit :yaisse2:. Voici la requete je pense que sa pourra en intéresser plus d'un :

Code:

---

SELECT * FROM RSP_0 WHERE (not(((Len([NUM_CAISSE])=5) AND ((IsNumeric([NUM_CAISSE]))=True))OR (RSP_0.NUM_CAISSE) Is Null));

---

Merci d'avoir essayer ClaudeLELOUP, sa ma remotiver à chercher :D