MS Access：数据未显示表单更新（VBA）

Question

我有一个表单，用户从下拉窗口中选择一个数字。该数字对应于另一个表中的某些数据，该表被加载到用户表单上的表中。当我运行此代码时，除非我单击两次切换按钮，否则不会显示更新的数据...我的代码有什么问题或缺失？此外，ProductDefault_SchdlNbrs是一个子表单

Dim DltPrvSchdlNbrSQL As String
DltPrvSchdlNbrSQL = "DELETE User_ProductDefaultSchdlNbrs.*FROM User_ProductDefaultSchdlNbrs;"

Dim AppdLevelsSQL As String
AppdLevelsSQL = "INSERT INTO User_ProductDefaultSchdlNbrs ( [Level] )"
AppdLevelsSQL = AppdLevelsSQL + " SELECT Main_Defaults.TextNumbers"
AppdLevelsSQL = AppdLevelsSQL + " FROM User_ProductDefaultsLevel, Main_Defaults"
AppdLevelsSQL = AppdLevelsSQL + " WHERE (((Main_Defaults.Numbers)<=[LevelCount]))"
AppdLevelsSQL = AppdLevelsSQL + " ORDER BY Main_Defaults.Numbers, Main_Defaults.TextNumbers;"



DoCmd.SetWarnings False
Me.LevelCombo.Requery
DoCmd.RunSQL DltPrvSchdlNbrSQL
DoCmd.RunSQL AppdLevelsSQL
Me.ProductDefault_SchdlNbrs.Requery
Me.Requery
Me.Refresh
DoCmd.SetWarnings True