如何将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
