我有一个我创建的数据库作为一种实时虚拟客户端签入日志。它将存储在 Intranet 网络驱动器上。理论上，迎宾员可以将客户信息发回以供其他工作人员接收。这是通过一系列表单、表格和查询来完成的。当我自己在自己的机器上测试它时，打开迎宾员和接待表我可以在迎宾员上输入信息，单击操作按钮将其发送到表中，其中一个定时查询（保存在一个用 AutoExec 打开的隐藏表单中宏）拾取当前记录，然后将其显示在接收表单上。一切都很完美。唯一的问题是，当我尝试在多台计算机上对其进行测试时，迎宾员可以发回信息，它出现在桌子上，但接收表格永远不会填充。有什么想法可能会断开连接吗？
编辑我决定要取消隐藏的初始化表单，所以我重新组织了代码如下。当我自己在一台计算机上执行此操作时它仍然有效，但在另一台计算机上打开接收表仍然无法填充。
接待处 1
Private Sub Form_Timer()
If gClientID > gNextClientID Then
gblnRNC = True
Else: gblnRNC = False
End If
If gblnRNC = True And gblnRec1Free = True Then
gRec1CL = gNextClientID
MsgBox "There is a new client to be seen.", vbSystemModal, "New Client Warning"
Me.RecordSource = "RecClientIDNum"
End If
End Sub