Ms access 检查调制解调器

我有一些装有调制解调器的电脑，还有一些没有使用相同的数据库。他们需要确定是否安装了调制解调器。我在互联网上发现了由KHaled El-Menshawy创建的代码，它有可能完全实现我希望它实现的功能，但我得到了一个“需要对象”的错误。我认为这是一个简单的修复，但我不知道该如何声明这个对象。有人能找出丢失的代码吗？这是他的密码：

Public Function CheckModem()
On Error GoTo Errr
If ProgBar.Value = 100 Then
   ProgBar.Value = 0
End If
Port = 1
PortinG:
MSComm1.CommPort = Port
MSComm1.PortOpen = True
ProgBar.Value = ProgBar.Value + 20
Label1.Caption = ProgBar.Value & "%"
Form1.MSComm1.Settings = "9600,N,8,1"
      MSComm1.Output = "AT" + Chr$(13)
      X = 1

      Do: DoEvents
          X = X + 1
          If X = 1000 Then MSComm1.Output = "AT" + Chr$(13)
          If X = 2000 Then MSComm1.Output = "AT" + Chr$(13)
          If X = 3000 Then MSComm1.Output = "AT" + Chr$(13)
          If X = 4000 Then MSComm1.Output = "AT" + Chr$(13)
          If X = 5000 Then MSComm1.Output = "AT" + Chr$(13)
          If X = 6000 Then MSComm1.Output = "AT" + Chr$(13)

          If X = 7000 Then
             MSComm1.PortOpen = False
             Port = Port + 1
             GoTo PortinG:

             If MSComm1.CommPort >= 6 Then
Errr:
 MsgBox "Can't Find Modem"
 GoTo done
 End If
 End If

 Loop Until MSComm1.InBufferCount >= 2

 instring = MSComm1.Input
 MSComm1.PortOpen = False
 ProgBar.Value = 100
 Label1.Caption = ProgBar.Value & "%"
 Text1.Text = "com" & Port 'MSComm1.CommPort & instring
 MsgBox "Modem found On Com" & Port

done:
End Function

---

MsComm1

，如果您只是从代码中复制和粘贴，则看起来它是一个。您必须将其作为附加控件添加到表单中，然后才能访问其属性

---

我建议避免复制和粘贴您不理解的代码，尝试理解它在做什么以及为什么。或者，（from）提供了一种完全不同的方法，避免了将控件添加到表单中。

MSComm1从哪里来？我不知道MSComm1从哪里来。此代码超出了我的VBA经验范围。我希望在它工作时插入它，然后弄清楚它是如何工作的。我了解端口和“AT”代码，但不知道如何回答您的问题。在我看来，似乎缺少一些声明。你知道怎么做吗？