كل ما عليك استيدل
الذى تم الاشارة اليه هنا
بهذا الكود
Dim strSQL As String
strSQL = "INSERT INTO kanory ( a, b, c ) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1 FROM Bdgi;"
DoCmd.SetWarnings (0)
DoCmd.RunSQL strSQL
DoCmd.SetWarnings (0)