单击数据窗体数据打开相应表

wangyanghuze

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

运行的时候老是显示有错误，我想打开2013年制式聘书这个窗体，哪位高手指点一下

wangyanghuze

发错了，是打开相应窗体

盗梦

Private Function allDblclick()  改成 Public Function allDblclick()