0

我有一个表单，用户从下拉窗口中选择一个数字。该数字对应于另一个表中的一些数据，该表被加载到用户表单上的表中。当我运行此代码时，除非我单击切换按钮两次，否则不会出现更新的数据...我的代码有什么问题或缺少什么？此外，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
4

0 回答 0