Insert / Delete / Update

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

Code:

---

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:

---

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:

---

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.

Bonjour,

La syntaxe pour supprimer des enregistrements est

Code:

---

DELETE FROM NomDeLaTable WHERE condition

---

avec ton exemple :

Code:

---

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+

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 ?

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

Code:

---

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+

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

Bonsoir,

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

Code:

---

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+