Ms access MS Access应用程序返回值

我需要从windows命令行自动调用应用程序。此应用程序启动，执行一些DB操作并自动退出。 接下来，我需要处理Access返回的值。我尝试了在谷歌上找到的所有东西，但Access每次都返回0。我需要返回1或其他内容来告诉cmd数据库中有错误

以下是VBA（应用程序启动时访问调用窗体）中的一些代码：

---

有什么办法吗

我认为最好的解决方案是设置一个具有所需返回值的环境变量

从VBA代码：

Private Declare Function SetEnvironmentVariable Lib "kernel32" _
Alias "SetEnvironmentVariableA" _
(ByVal lpName As String, _
ByVal lpValue As String) As Long


Private Sub Form_Load()
    Dim xSQL As String
    Dim xRS As DAO.Recordset

    xSQL = "select * from table1"
    Set xRS = CurrentDb.OpenRecordset(xSQL, dbOpenDynaset)
    xRS.MoveLast: xRS.MoveFirst

    DoEvents

    If xRS!field1 = "" Or IsNull(xRS!field1) Then
        SetEnvironmentVariable "ACCESSEXITCODE", "1"
        Application.Quit acQuitSaveAll
    End If

        SetEnvironmentVariable "ACCESSEXITCODE", "0"
    Application.Quit acQuitSaveAll
End Sub

从de命令行：

IF %ACCESSEXITCODE%==1 GOTO HandleError

---

@johnny bones已经注意到的可能的重复项这不起作用。看见

IF %ACCESSEXITCODE%==1 GOTO HandleError