将 Access 2000 升级到 2010 然后 2016 VB 问题

Question

请帮助...我已成功从 Access 2000 升级到 2010，然后升级到 2016，没有编译错误，但是我在 VB 代码的表单中有一个 exe 文件，它不再运行或发送错误消息。该项目是一个地磅，已经在 access 2000 上运行了 15 年或更长时间，对设计进行了许多更改，其中 exe 文件从地磅“信号”框中捕获数据并将其发送到我的表单。此 exe 不再适用于 Access 2010（升级期间程序之间的切换）或 Access 2016。这对项目至关重要，我的计算机上不再有 VB 中的原始代码或 VB 的副本，尽管我有复制到原始程序员留下的文本文件中。谁能告诉我为什么 Access 2016 不承认这个 exe。是否有需要单击的参考？我迷路了。

代码是

Private Sub Form_Load() 
    On Error GoTo Err_Form1 
    Select Case strDocName 
    Case "GetGrossWeight" 
       Set objFrmCtrl = Forms!ConsignmentsIN.GrossWeight
       Warning.Caption = "Get Gross Weight In"   
    Case "GetTareWeight"
       Set objFrmCtrl = Forms!ConsignmentsContractIN.TareWeight 
       Warning.Caption = "Get Tare Weight In" 
    Case "GetGrossWeightcontract" 
       Set objFrmCtrl = Forms!ConsignmentsContract.GrossWeight
       Warning.Caption = "Get Gross Weight In"   
    Case "GetTareWeight"
       Set objFrmCtrl = Forms!ConsignmentsContract.TareWeight 
       Warning.Caption = "Get Tare Weight In" 
    End Select
    OpenEXE
Exit_Form2:
    Exit Sub
Err_Form1:
    MsgBox Error$
    Resume Exit_Form2
End Sub

Private Sub OpenEXE() 
    On Error Resume Next 
    GrossValue = Shell("c:\weighbr\auto\Weight.exe", 6) 
    If Err.Number = 53 And GrossValue = 0 Then 
        MsgBox "Can't find program 'Weight.exe'", vbInformation, "Alert" 
    End If 
    ' ...
End Sub

Answer 1

根据documentation for SHELL：

运行一个可执行程序，如果成功则返回一个 Variant (Double) 表示程序的任务 ID，否则返回零。

您的代码得到一个task ID，而不是执行 .exe 程序的结果（如果没有其他方法阻止执行）。所以，在任何情况下，你都不应该期望得到这个程序生成的值。

您应该使用调试工具进入这个Sub 并真正弄清楚它的作用。

检查Alternative to Call Shell() ? (2000) 是否可以帮助您，还有Access 2000 to 2002 (Shell command)。

Shell 函数似乎在很久以前就发生了变化。