Salut

Mon code ne marche pas. qqun peut me dire ce qui ne va pas ou me donner un autre code?

Je cherche à mettre à jour un champ d'une table (tous les enregistrements) avec un champ d'une autre table. Avec une requête, c'est facile, mais en VBA...

J'ai essayé d'utiliser le SQL de la requête mais ça marche pas !

Voici mon code :

Private Sub cmdOUI_Click()
On Error GoTo Err_cmdOUI_Click
Dim strSQL As String
Dim intOUI As Integer

strSQL = "UPDATE [tbl_Adh-Spe]" & _
"SET [tbl_Adh-Spe].Annee = [tbl_Adh-An-Cot-ED]![Annee];"

DoCmd.RunSQL strSQL

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

intOUI = MsgBox("Toutes les mises à jour ont été effectuées", , "Procédure d'initialisation")

DoCmd.Close

Exit_cmdOUI_Click:
Exit Sub

Err_cmdOUI_Click:
MsgBox Err.Description
Resume Exit_cmdOUI_Click

End Sub

merci pour votre aide ;)

Enaira

la structure exacte d'une requête update :

UPDATE [TableAmettreAjour] SET [TableAmettreAjour].champs = " & valeur & ";"

donc dans ton cas [tbl_Adh-An-Cot-ED]![Annee] n'est pas valable
il faudra une valeur fixe ou provenant d'un recordset


set rs = db.openrecordset ("tbl_Adh-An-Cot-ED")
....
....

strSQL = "UPDATE [tbl_Adh-Spe] SET [tbl_Adh-Spe].Annee = " & rs!Annee & ";"



MSN YAHOO

ou supposons que la valeur à mettre à jour (l'année) se trouve dans un textbox (exemple nommé TxtAnnee) que l'utilisateur à saisie.


strSQL = "UPDATE [tbl_Adh-Spe] SET [tbl_Adh-Spe].Annee = " & txtAnnee.Text & ";"

MSN YAHOO

Merci pour ta réponse, mais qu'est-ce qu'on met pendant les "...." !!!

Désolée mais je commence alors...


Enaira

merci frop01
ça marche !

Enaira