如何在 VBA 条件语句中使用 SQL Select 查询？

【问题标题】：How can I use an SQL Select query in a VBA conditional statement?如何在 VBA 条件语句中使用 SQL Select 查询？
【发布时间】：2015-04-07 00:11:03
【问题描述】：

我正在尝试创建一个仅在从表中检索特定值时才会运行的 Access 宏。我试图阻止用户在每个期间多次运行宏。

If sqlquery = "select Step 3 from XX_STORE_VALUE" = "READY" Then 
   DoCmd.SetWarnings (warningsoff) 
   DoCmd.OpenQuery "00 UPDATE NEXT NR AND LD ACCRUAL", acViewNormal, acEdit 
   DoCmd.OpenQuery "00 UPDATE NEXT NR AND LD SALES", acViewNormal, acEdit 
   DoCmd.OpenQuery "UPDATE STEP 3", acViewNormal, acEdit 
   DoCmd.SetWarnings (warningson) 
End If 

End Function

【问题讨论】：

标签： sql ms-access vba conditional-statements

【解决方案1】：

你可以试试这样的

Public Function GetQueryreturnedvalue(yourvalue As Integer)
   Dim rst As DAO.Recordset
   Dim strSQL As String
   ' Getting value from your query

   strSQL = "SELECT [Step 3] FROM XX_STORE_VALUE where yourcriteria = " & yourvalue & ""
   Set rst = CurrentDb.OpenRecordset(strSQL)


   GetQueryreturnedvalue = rst![Step 3]

   If GetQueryreturnedvalue = "Yourspecificvalue" Then

   DoCmd.SetWarnings (warningsoff)
   DoCmd.OpenQuery "00 UPDATE NEXT NR AND LD ACCRUAL", acViewNormal, acEdit
   DoCmd.OpenQuery "00 UPDATE NEXT NR AND LD SALES", acViewNormal, acEdit
   DoCmd.OpenQuery "UPDATE STEP 3", acViewNormal, acEdit
   DoCmd.SetWarnings (warningson)

   rst.Close
   Set rst = Nothing

   End If

End Function

【讨论】：