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