Discussion :

[amerex]

Bonjour!!
J'ai un petit pépin face à une petite requête SQL que je soumet à mon code...

Je voudrais faire un UPDATE avec des renseignements contenus dans un formulaire, voici mon code pour le moment:

Code VBA :

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
Private Sub Commande11_Click()
Dim db As DAO.Database
Dim tbl As Variant  'Table à updater
Dim ref As Variant  'Référence pour la condition WHERE
Dim modi As Variant  'Champ à modifier
Dim SQL As String  'Ligne SQL
'Prise des variables
tbl = etitable.Caption
ref = etiref.Caption
modi = etimodif.Caption
Set db = CurrentDb
'Sql
SQL = "UPDATE comptes SET Détails=" & txt.Value & " WHERE 'N°'=2"
Debug.Print SQL
db.Execute SQL
db.Close
DoCmd.Close acForm, "modif", acSaveNo
End Sub

Malheureusement, le debugger arrête sur db.Execute SQL, donc ma ligne SQL=... ne fonctionne pas! La ligne comprend des informations statiques pour le moment, mais lorsque corrigée nous aurons les variables déclarées plus haut. Je crois que l'erreur est au niveau du N°, est-possible?

Merci!

[Heureux-oli]

Salut,

Perso, si j'utilise le DAO, je vais en DAO jusqu'au bout.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim db As DAO.Database
Dim rs As DAO.RecordSet
Dim SQL As String
 
Set db = CurrentDb
sql = "Select * From Matable"
Set rs = db.OpenRecordset(sql)
 
rs.AddNew
rs.Fields(1) = Me.MonControle
rs.update

Les captions ne contiennent pas de données, ce sont des valeurs pour étiquettes.

[loufab]

Bonjour,

Quelle bien étrange syntaxe ?!

Code :

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

"UPDATE comptes SET Détails=" & txt.Value & " WHERE 'N°'=2"

Détails c'est du texte pourtant il n'y a pas de double-cote pour le txt.value, par contre N° qui est un nom de champ il y a de simple-cote !!!

Code :

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

DoCmd.Close acForm, "modif", acSaveNo

c'est probablement parceque tu ne veux pas sauvegarder les variables que tu stockes dans des étiquettes.

Code :

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

1
2
3
tbl = etitable.Caption
ref = etiref.Caption
modi = etimodif.Caption

[kiki.gaby]

Bonsoir,

Le code sql serait plutôt de ce genre :

Code :

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

1
2
 
sql = "UPDATE [nom_de_la_table] SET [nom_de_la_table].nom_du_champ1=[Forms]![nom_formulaire]![nom_champ1_formulaire] WHERE [nom_de_la_table].nom_champ2= [Forms]![nom_formulaire]![nom_champ2_formulaire]"

Tiens nous au courant

[amerex]

Bonjour!
J'ai enfin réussi en utilisant le débugger (ce que j'aurais du faire bien avant!)
Voici donc mon code final:

Code Vba :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande11_Click()
Dim db As DAO.Database
Dim sql As String
Set db = CurrentDb
sql = "Update " & etitable.Caption & " SET " & etimodif.Caption & "='" & txt.Value & "' WHERE N°=" & etiref.Caption
Debug.Print sql
db.Execute sql
db.Close
DoCmd.Close acForm, "modif", acSaveNo
End Sub

P.S.: Loufab, ton message a aidé en rien, merci.

[loufab]

P.S.: Loufab, ton message a aidé en rien, merci.

Etrange qu'il ne t'ai pas aidé... c'est pourtant exactement les conseils que tu as suivi.