日期:2014-05-16  浏览次数:20984 次

如何将access中的query对应的SQL导出〔50分〕,在线等!!!
在access application中邮件某个按钮,选择“Build Event”,打开VBA,得到如下语句:Private Sub Command19_Click()
On Error GoTo Err_Command19_Click

Dim stLinkCriteria As String

DoCmd.SetWarnings False
DoCmd.OpenQuery "Listing_Project/Sales"
DoCmd.SetWarnings True

DoCmd.OpenForm "IB_Main", , , stLinkCriteria

Exit_Command19_Click:
Exit Sub

Err_Command19_Click:
MsgBox Err.Description
Resume Exit_Command19_Click

End Sub,希望有人指点如何将DoCmd.OpenQuery "Listing_Project/Sales"这个Query对应的SQL取出,我在Query列表中这能看到对应Design view~~~在线等!!!

------解决方案--------------------
currentdb.QueryDefs("Query1").SQL