Discussion :

[HDU71000]

Il aurait fallu donner le message dans le msgbox...

Mais as-tu vu le message de tee_grandbois ?

A+

[adelion7015]

Re

Effectivement, je n'avais pas vu, ca marche très bien.

Encore merci.

Mes salutations.

[adelion7015]

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 :

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

En exécutant ce code j'ai le message suivant :



Et la je n'arrive vraiment pas a trouver l'origine de cette erreur.

Merci.

Cordialement.

[HDU71000]

Bonjour,

Le nom de certains de tes champs ont des espaces (par exemple "Montant cloture"), il faut donc les entourer de [] ([Montant cloture])

A+

[adelion7015]

Bonjour,
Super, je vais le faire et vous rendre compte.

Merci.

[adelion7015]

Re bonjour,

Ca marche très bien, merci beaucoup.

Je mettais des Under scores alors qu'il fallait mettre des crochets.

Merci.