Discussion :

[Warwolf]

Bonjour,

Je rencontre un problème certainement très bête (je n'ai vraiment pas l'habitude de développer en Informatique).
L'idée ici est qu'après une requête, je dois effectuer une fonction replace pour remplacer les potentielles apostrophes qui pourraient être présentes dans les valeurs de mon champ "Preconisation", car si ce n'est pas fait, je rencontre une erreur où Access prend la première apostrophe qu'il trouve pour un quote de syntaxe.

J'ai appliqué cette méthode sur une requête similaire mais avec le champ "Description", par chance il y'avait des apostrophes à chaque valeur de mon champ "Description".

Mais ici, je me heurte au cas où il n'y'en a aucune ! Donc, j'aimerais pouvoir intégrer à ma fonction Replace un moyen de prendre en compte les cas où il n'y a rien à remplacer (Null).

Voici le morceau de code concerné, sachez que l'autre qui a fonctionné est construit pareil.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sive3 = "SELECT test_alerte_Z2N.Rame, test_alerte_Z2N.[Date defaut], test_alerte_Z2N.[Première heure defaut], test_alerte_Z2N.Système, test_alerte_Z2N.[code defaut], test_alerte_Z2N.Occurrences, test_alerte_Z2N.localisation, test_alerte_Z2N.Criticité, test_alerte_Z2N.[Ets Propriétaire], test_alerte_Z2N.Description, listing_defauts.preconisation"
sive3 = sive3 & " FROM test_alerte_Z2N INNER JOIN listing_defauts ON (test_alerte_Z2N.Description = listing_defauts.Intitulé) AND (test_alerte_Z2N.Criticité = listing_defauts.[Criticité SNCF]) AND (test_alerte_Z2N.[code defaut] = listing_defauts.Code) AND (test_alerte_Z2N.Système = listing_defauts.Système)"
Set rs_sive3 = CurrentDb.OpenRecordset(sive3)
 
 
    rs_sive3.MoveFirst
    Do While Not rs_sive3.EOF
 
        preco = Replace(rs_sive3("Preconisation").Value, "'", "/")
        DoCmd.RunSQL "insert into test_alerte_Z2N_2(Rame,[Date défaut],[Première heure défaut], Système, [Code défaut], Occurrences, Localisation, Criticité, [Ets Propriétaire], Description, Préconisation) values('" & rs_sive3("Rame").Value & "',#" & Format(rs_sive3("Date defaut").Value, "mm/dd/yyyy") & "#,#" & Format(rs_sive3("première heure defaut").Value, "hh:mm:ss") & "#,'" & rs_sive3("Système").Value & "','" & rs_sive3("Code Defaut").Value & "'," & rs_sive3("Occurrences").Value & ",'" & rs_sive3("Localisation").Value & "'," & rs_sive3("Criticité").Value & ",'" & rs_sive3("Ets Propriétaire").Value & "','" & rs_sive3("Description").Value & "','" & preco & "')"
        rs_sive3.MoveNext
 
    Loop

Voilà, si quelqu'un a une idée, je suis toute ouïe ! (J'ai déjà essayé de jouer avec le paramètres de comparaison, mais sans succès, Access me renvoit à une incompatibilité de type ...)

Je vous remercie d'avance !

[Warwolf]

Rebonjour,

avec l'aide de mes collègues on a trouvé la solution, le problème ne venant pas de la fonction replace mais du fait que certains de mes champs étaient vide (valeur = Null) donc, Access me signifiant l'impossibilité de renvoyer une valeur Null.


Cordialement

[Warwolf]

Voilà ce que ça donne, il fallait juste que je fasse un test sur la valeur contenu dans mon champs "preconisation" pour voir si elle était Null ou non.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
sive3 = "SELECT test_alerte_Z2N.Rame, test_alerte_Z2N.[Date defaut], test_alerte_Z2N.[Première heure defaut], test_alerte_Z2N.Système, test_alerte_Z2N.[code defaut], test_alerte_Z2N.Occurrences, test_alerte_Z2N.localisation, test_alerte_Z2N.Criticité, test_alerte_Z2N.[Ets Propriétaire], test_alerte_Z2N.Description, listing_defauts.preconisation"
sive3 = sive3 & " FROM test_alerte_Z2N INNER JOIN listing_defauts ON (test_alerte_Z2N.[Code defaut] = listing_defauts.Code);"
Set rs_sive3 = CurrentDb.OpenRecordset(sive3)
 
 
    rs_sive3.MoveFirst
    Do While Not rs_sive3.EOF
        Preco2 = rs_sive3("Preconisation").Value
        If Not IsNull(Preco2) Then
        preco = Replace(rs_sive3("Preconisation").Value, "'", "/")
        Else
        End If
        DoCmd.RunSQL "insert into test_alerte_Z2N_2(Rame,[Date défaut],[Première heure défaut], Système, [Code défaut], Occurrences, Localisation, Criticité, [Ets Propriétaire], Description, Préconisation) values('" & rs_sive3("Rame").Value & "',#" & Format(rs_sive3("Date defaut").Value, "mm/dd/yyyy") & "#,#" & Format(rs_sive3("première heure defaut").Value, "hh:mm:ss") & "#,'" & rs_sive3("Système").Value & "','" & rs_sive3("Code Defaut").Value & "'," & rs_sive3("Occurrences").Value & ",'" & rs_sive3("Localisation").Value & "'," & rs_sive3("Criticité").Value & ",'" & rs_sive3("Ets Propriétaire").Value & "','" & rs_sive3("Description").Value & "','" & preco & "')"
        rs_sive3.MoveNext
 
    Loop