Il aurait fallu donner le message dans le msgbox...
Mais as-tu vu le message de tee_grandbois ?
A+
Il aurait fallu donner le message dans le msgbox...
Mais as-tu vu le message de tee_grandbois ?
A+
Re
Effectivement, je n'avais pas vu, ca marche très bien.
Encore merci.
Mes salutations.
Bonjour,
Je ne sais pas si j'ai le droit de reposter sur un post déjà résolu, a vrai dire je viens de le cocher "n'est plus résolu"
En reprenant cet exemple pour l'adapter a mes besoins, j'ai rencontré beaucoup de problèmes que j'ai réussi a résoudre sauf celui la, j'ai le code suivant :
En exécutant ce code j'ai le message suivant :
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
17
18
19
20 Private Sub CmdArchiver_Click() Dim leSQL As String leSQL = "INSERT INTO [t_archivage] ( ID_budget, imp_cc, compte, Montant cloture, monnaie, CV, CV montant cloture, Montant prevision, CV montant prevision, MT_CLOT_KDA, MT_PREV_KDA, Unite, Variation, Année, DateArchive ) " & _ "SELECT [t_valeur].ID_budget, [t_valeur].imp_cc, [t_valeur].compte, [t_valeur].Montant cloture, [t_valeur].monnaie, [t_valeur].CV, [t_valeur].CV montant cloture, [t_valeur].Montant prevision, [t_valeur].CV montant prevision, [t_valeur].MT_CLOT_KDA, [t_valeur].MT_PREV_KDA, [t_valeur].Unite, [t_valeur].Variation, [t_valeur].Année, Date() AS DateArchive " & _ "FROM [t_valeur]" & _ "WHERE (([t_valeur].ID_budget) Not In (select ID_budget from [t_archivage])) and imp_cc like '" & Nz(Me.ParamTitre, "*") & "';" DoCmd.SetWarnings False DoCmd.RunSQL leSQL DoCmd.SetWarnings True Dim SQLSupp As String SQLSupp = "DELETE FROM [t_valeur] WHERE [t_valeur].imp_cc like '" & Nz(Me.ParamTitre, "*") & "';" DoCmd.SetWarnings False DoCmd.RunSQL SQLSupp DoCmd.SetWarnings True End Sub
Et la je n'arrive vraiment pas a trouver l'origine de cette erreur.
Merci.
Cordialement.
Bonjour,
Le nom de certains de tes champs ont des espaces (par exemple "Montant cloture"), il faut donc les entourer de [] ([Montant cloture])
A+
Bonjour,
Super, je vais le faire et vous rendre compte.
Merci.
Re bonjour,
Ca marche très bien, merci beaucoup.
Je mettais des Under scores alors qu'il fallait mettre des crochets.
Merci.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager