اعتقد اني فهمتك الان
يحتاج فقط في تسلسل عمل الاكواد
غيرها كما يلي
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tb1 SET tb1.[الشهر] = [forms]![form]![الشهر]"
DoCmd.SetWarnings True
Dim sql As String
sql = "DELETE tb2.* FROM tb2;"
DoCmd.SetWarnings (warningsoff)
DoCmd.RunSQL (sql)
DoCmd.SetWarnings (warningson)
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q10"
DoCmd.SetWarnings True
Me.Requery