Discussion :

[faressam]

Bonjour
j'ai pu inseré dans une table des éléments de mon IHM avec ceci :

Code :

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

1
2
3
4
5
 
dim insSql as String
insSql = "INSERT INTO Table1 (Champ1) "
    insSql = insSql & "SELECT '" & Me!Zone de Texte IHM.Value & "'"
    CurrentDb.Execute (insSql)

Update avec ceci :

Code :

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

1
2
3
4
 insSql = "UPDATE Table1" & _
    "SET [Champ1] = '" & Me!Zone de Texte IHM.Value & "' " & _
    "WHERE champ1 = '" & Me!Zone de Texte IHM.Value & "' "
CurrentDb.Execute (insSql)

Tous ceci Marche Sauf ma suppresion j'utilise ceci :

Code :

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

1
2
3
4
5
 
dim insSql1 as String
insSql1 = "DELETE Table1 (Champ1)"
insSql1 = insSql1 & "SELECT '" & Me!Zone de Texte IHM.Value& "' "
CurrentDb.Execute (insSql1)

il me génére une Erreur dans la requette de Suppresion.
Merci de m'aider à la reformuler correctement.

[LedZeppII]

Bonjour,

La syntaxe pour supprimer des enregistrements est

Code sql :

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

DELETE FROM NomDeLaTable WHERE condition

avec ton exemple :

Code vb :

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

1
2
3
4
dim insSql1 as String
insSql1 = "DELETE FROM Table1 "
insSql1 = insSql1 & "WHERE Champ1= '" & Me!Zone de Texte IHM.Value& "' "
CurrentDb.Execute (insSql1)

A+

[faressam]

J'avais déja utilisé la première ligne et ça a marché, mais pour la 2 éme partie du Code elle ne marche pas et je ne sais toujours pas pourquoi ?

[LedZeppII]

Peut-être à cause de l'opérateur de concaténation (&) qui est collé à .Value

Code vb :

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

1
2
3
4
dim insSql1 as String
insSql1 = "DELETE FROM Table1 "
insSql1 = insSql1 & "WHERE Champ1= '" & Me!Zone de Texte IHM.Value & "' "
CurrentDb.Execute (insSql1)

Sinon quel est le type de données de Champ1 ?
Ton exemple correspond à un champ de type texte.

As-tu un message d'erreur ou bien simplement l'exécution de la requête est sans effet ?

A+

[faressam]

Oui tu as raison, c'est sans Effet, car le type est Date est non Texte ou Numérique, j'ai enlevé les ' ' comme pour un numérique mais ça passe pas.

Comment on envoit une Date, sans passer par l'astuce de la transformation (date * un chiffre pour avoir un numérique à la fin).

[LedZeppII]

Bonsoir,

en SQL la date doit être sous la forme #mm/jj/aaaa#

Code :

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

1
2
3
4
dim insSql1 as String
insSql1 = "DELETE FROM Table1 "
insSql1 = insSql1 & "WHERE Champ1= #" & Format(Me!Zone de Texte IHM.Value, "mm\/dd\/yyyy") & "# "
CurrentDb.Execute (insSql1)

A+