查询语句自动的丢失

凡卓　发表于：2010-07-07 13:31:50 　

我在查询视图中写了一个查询语句名为“Quarter Stocktaking Query”，这个语句需要引用主窗体中的Combo Box控件的当前值（Combo Box控件位于选项卡控件中）。另外，在主窗体中有一个名为MySubForm的子窗体，将这个MySubForm子窗体的属性SourceObject定义为这个查询。从而实现当改变这个Combo Box控件的值时，子窗体中列出符合条件的记录。

现在问题是：这个查询在视图中运行是没有问题的，但是关闭窗体再打开时这个查询时语句自动的消失了。

查询语句如下：
SELECT [Location List].Location_Code, [Location List].Area_Type, Left([Location List].Location_Code,3) AS Aisle, [Stock Inventory].Owner, [Stock Inventory].Stock, [Stock Inventory].Supplier, [Stock Inventory].PalletID, [Stock Inventory].OnhandQty, [Stock Inventory].Impressions
FROM [Location List] LEFT JOIN [Stock Inventory] ON [Location List].Location_Code=[Stock Inventory].Location
WHERE ([Location List].Area_Type)=Forms!MainForm!List_AreaType
ORDER BY Left([Location List].Location_Code,3), Right([Location List].Location_Code,2), Mid([Location List].Location_Code,4,3);

Combo Box控件更新后事件如下：
Private Sub List_AreaType_AfterUpdate()
Me.MySubForm.SourceObject = "Query.Quarter Stocktaking Query"
End Sub

请各位老师指导，谢谢！

Top

煮江品茶发表于：2010-07-07 14:25:30

估计是太繁琐，Access同志有些不愿意了。

Top

凡卓发表于：2010-07-07 14:49:57

请问有什么办法可以解决呀？有些网友也碰到过这种问题，也是说查询太复杂了，可以用VBA代码写这个查询，然后调后。但我不是很懂VBA，下面是我写的，执行时出错，请指导，如何将这个查询的记录在主窗体中的MySubForm的子窗体中显示出来。

Private Sub List_AreaType_AfterUpdate()
Dim strSQL As String

    strSQL = "SELECT [Location List].Location_Code, [Location List].Area_Type, Left([Location List].Location_Code,3) AS Aisle, " _
            & "[Stock Inventory].Owner, [Stock Inventory].Stock, [Stock Inventory].Supplier, " _
            & "[Stock Inventory].PalletID, [Stock Inventory].OnhandQty, [Stock Inventory].Impressions " _
            & "FROM [Location List] LEFT JOIN [Stock Inventory] ON [Location List].Location_Code=[Stock Inventory].Location " _
            & "WHERE [Location List].Area_Type = """ & Forms![MainForm]![List_AreaType] & """ " _
            & "ORDER BY Left([Location List].Location_Code,3), Right([Location List].Location_Code,2), Mid([Location List].Location_Code,4,3)"

    DoCmd.RunSQL (strSQL)
End Sub

其实个人感觉这个查询也并不是很复杂，不知是不是因为用了Left 和Right函数？