VBA 조건문에서 SQL Select 쿼리를 어떻게 사용할 수 있습니까?

Question

테이블에서 특정 값을 검색하는 경우에만 실행되는 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 

Answer 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 

뭔가를 시도 할 수 있습니다