表单忽略了OnOpen事件中的代码

Question

拥有一个包含控件的新表单，并链接到SQL Server中的表。拥有在打开时重新链接表的代码，该代码可在其他5个应用程序中运行，但不适用于此代码。这是代码：

  Dim tdf As DAO.TableDef
  For Each tdf In CurrentDb.TableDefs
  ' check if table is a linked table
  If Len(tdf.Connect) > 0 Then
  tdf.Connect = "Connect String"
  tdf.RefreshLink
  End If
  Next

我在应用程序激活时打开的选项中设置了表单，但它要求我在连接字符串中输入密码。我已在open事件中的一行代码上停止，但该代码永远不会执行。就像onopen事件被忽略一样。

由于 JPL

Answer 1

Access希望在On Open事件运行之前加载绑定表单的数据。我想在你的其他应用程序中，开始表单是未绑定的。

你最好的办法是：

使用您的重新链接代码创建一个调用公共函数的AutoExec macro。

之后，该函数可以打开绑定的开始表单