Discussion :

[Aspic]

Bonjour,

Je dois supprimer une ligne de ma table Access mais la syntaxe n'est pas la meme en fonction du type de champs :

Par exemple, avec un champs VarChar la syntaxe est :

Code :

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

RequeteSQL = "DELETE FROM " & "[" & NomTable & "]" & " WHERE " & "[" & Champs_Pour_La_Condition & "]" & " ='" & Valeur_Du_Champs & "'"

Avec un type INT, il faut enlever les guillemets :

Code :

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

RequeteSQL = "DELETE FROM " & "[" & NomTable & "]" & " WHERE " & "[" & Champs_Pour_La_Condition & "]" & " =" & Valeur_Du_Champs

Quelle est la syntaxe pour le champs de type DECIMAL, CHAR, DATE et DATETIME ?

Merci de votre aide.

[Mahefasoa]

Bonjour,
Si je ne me trompe pas, il me semble que:
DECIMAL idem que INT
CHAR idem que VARCHAR
DATE et DATETIME, il faut utiliser le délimiteur dièse (#) comme ceci

Code :

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

1
2
 
RequeteSQL = "DELETE FROM " & "[" & NomTable & "]" & " WHERE " & "[" & Champs_Pour_La_Condition & "]" & " =#" & Valeur_Du_Champs & "#"

Bon courage et @+

[Aspic]

Salut donc ca marche pour tous excepté DATE ! La syntaxe a l'air bonne car je n'ai pas de message d'erreur mais l'enregistrement n'est pas effacé
(date sous cette forme : 14/11/1958)

De plus pour le decimal ca marche si on met un point à la place de la virgule alors lors de l'insertion de l'element decimal il faut mettre une virgule sinon Access rejete la requete

Une idée ?

[cafeine]

Hello,

essaie de formater ta date en format US

Code :

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

" WHERE " & "[" & Champs_Pour_La_Condition & "]" & " =#" & Format(Valeur_Du_Champs, "mm/dd/yyyy") & "#"

[Aspic]

Merci mais sans succés :

Code :

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

 RequeteSQL = "DELETE FROM " & "[" & NomTable & "]" & " WHERE " & "[" & Champs_Pour_La_Condition & "]" & " =#" & Format(Valeur_Du_Champs, "mm/dd/yyyy") & "#"

J'ai le message d'erreur suivant : Erreur de syntaxe dans la date dans l'expression '[champ 3] = #18/07/1988#'

PS : Dans Access ma date est bien ajouté avec le format Francais...

[cafeine]

lol, impossible d'avoir un mois = 18

fais nous un debug.print de ta chaine SQL ?

Sinon au pire, tu passes par des double

Code :

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

CDbl([Champ3]) = CDbl([TaValeurDate])

[Aspic]

Ah bah ok, la fonction Format retourne "mm/dd/yyyy" dans tous les cas quelque soit la valeur de Valeur_Du_Champs...

Code :

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

Format(Valeur_Du_Champs, "mm/dd/yyyy")

SInon j'ai fais :

Code :

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

1
2
  RequeteSQL = "DELETE FROM " & "[" & NomTable & "]" & " WHERE " & "[" & Champs_Pour_La_Condition & "]" & " =#" & Format(Valeur_Du_Champs, "mm/dd/yyyy") & "#"
                    Debug.Print(RequeteSQL)

Mais c'est cencé faire quoi ?

[Maxence HUBICHE]

Déjà, tu pourrais éviter pas mal d'opérations inutiles qui rendent ton code encore plus difficile à lire qu'il ne l'est :
Ceci devrait, normalement, fonctionner.

Code :

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

1
2
 
RequeteSQL = "DELETE FROM [" & NomTable & "] WHERE [" & Champs_Pour_La_Condition & "] =#" & Format(Valeur_Du_Champs, "mm/dd/yyyy") & "#"

Ensuite, une solution autre est celle proposée par cafeine (coucou cafeine ! ca faisait longtemps ! content de te revoir parmi nous )

Code :

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

1
2
 
RequeteSQL = "DELETE FROM [" & NomTable & "] WHERE CDbl([" & Champs_Pour_La_Condition & "]) =Cdbl(" & Valeur_Du_Champs & ")"

Enfin, si ca te pose un problème dans l'usage de Format, je serai curieux que tu m'indiques (après être allé vérifier dans la table) le type de données du champs que tu passes dans Valeur_Du_Champs. Ou au moins le type de données de la variable Valeur_Du_Champ.

En effet, si tu passes dans Valeur_Du_Champ une chaîne telle que
"14/16/2005", tu obtiendras forcément la chaîne que tu as passé dedans !
C'est une chaîne, et pas une date !
Par contre, tu peux tenter de convertir ta chaine en date, à la volée, avec CDate()

Ce qui donnera donc :

Code :

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

1
2
 
RequeteSQL = "DELETE FROM [" & NomTable & "] WHERE [" & Champs_Pour_La_Condition & "] =#" & Format(CDate(Valeur_Du_Champs), "mm/dd/yyyy") & "#"

[Aspic]

Oui exact il faut convertir en DATE la chaine et en plus ca doit etre une date US pour que ca marche.

La fonction :

Code :

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

Format(CDate(Valeur_Du_Champs), "mm/dd/yyyy")

retourne 00/14/4785 pour une date francaise de 14/02/4785"

Je devrais avoir normalement 02/14/4785

[Aspic]

Finalement j'ai trouvé une solution pour convertir la date en format US :

Code :

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

1
2
3
 Function DateUs(ByVal X As Date) As String
        DateUs = CStr(X.Month & "/" & X.Day & "/" & X.Year)
    End Function

C'est simple et ca tien en 3 lignes !

Merci à tous