艹右小土　发表于：2013-12-17 10:31:23 　

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 "学生信息窗体", , , "[学员编号]='" & Me.学员编号 & "'"
End Function

谁能帮我看一下，问题出在什么地方啊！我要在主窗体的子窗体中双击一条记录后，弹出另一个窗体，刚开始用上面的代码已经成功的实现，后来我将对应的表中的字段主键，由文本型改成了数字型，也就是“学员编号”后，就出现上面的问题，请大师们帮忙改一下！

Top

Access leev 发表于：2013-12-17 10:40:50

我记得这个双击实例是在打开的弹出窗体增加的查询代码吧，你在仔细看看那个实例吧

Top

艹右小土发表于：2013-12-17 13:28:30

是的，示例中的字段是文本型的，我的是数字型，怎么定义啊？要怎么改

Top

cspa 发表于：2013-12-17 17:52:53

DoCmd.OpenForm "学生信息窗体", , , "[学员编号]='" & Me.学员编号 & "'"

改为：

DoCmd.OpenForm "学生信息窗体", , , "[学员编号]=" & Me.学员编号