Discussion :

[Eckmuhl]

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 :

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

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 :

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

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

[ClaudeLELOUP]

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)

[Eckmuhl]

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 , enfin si j'ai bien compris ta proposition

[ClaudeLELOUP]

Pour ajouter les corrects dans RSP:

Code :

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

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 :

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

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

[Eckmuhl]

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...

[ClaudeLELOUP]

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

Code :

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

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 :

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

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"));

[Eckmuhl]

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

Code :

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

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