标题: 单击数据窗体数据打开相应表 [打印本页] 作者: wangyanghuze 时间: 2014-5-29 11:27 标题: 单击数据窗体数据打开相应表 Private Sub Form_Load()
Dim ctr As Control
For Each ctr In Me.Controls
If ctr.Section = acDetail And ((TypeOf ctr Is TextBox) Or (TypeOf ctr Is ComboBox) Or (TypeOf ctr Is CheckBox)) Then
ctr.OnDblClick = "=allDblClick()"
End If
Next
End Sub
Private Function allDblclick()
DoCmd.OpenForm "2013年制式聘书", , , "[姓名]='" & Me.姓名 & "'"
End Function作者: wangyanghuze 时间: 2014-5-29 11:28
运行的时候老是显示有错误，我想打开2013年制式聘书这个窗体，哪位高手指点一下作者: wangyanghuze 时间: 2014-5-29 11:29
发错了，是打开相应窗体作者: 盗梦 时间: 2014-5-29 11:30
Private Function allDblclick() 改成 Public Function allDblclick()