Discussion :

[lito74]

Bonjour,
Je souhaite ajouter à une table, un enregistrement par l'intermédiaire de sql (ce que j'ai déjà fait plusieurs fois dans d'autres cas). Simplement, aujourd'hui, rien ne se passe, c'est-à-dire que je n'ai aucun message d'erreur, mais, aussi, je n'ai aucun ajout dans ma table ???!!!!
Voici le code

Code :

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

1
2
3
StrSQLArtArticleMarché = "INSERT INTO [Fiche Détail Marché Vrd] ([Num Marché],[Code Article],[Px Unit],[Unité Mesure],[Article],[Ouvrage]) " _
& "SELECT '" & NumMarchéBis & "','" & CodeBis & "','" & PxBis & "','" & UnitBis & "','" & DésigBis & "','" & OuvrageBis & "'"
DoCmd.RunSQL StrSQLArticleMarché

Merci pour votre aide

[Kloun]

essaie

Code :

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

1
2
3
4
dim iObjDb as database
set iObjDB = currentdb
iobjDB.execute StrSQLArticleMarché, dbfailonerror
msgbox iobjDB.recordsaffected