Private Sub 客户名称_DblClick(Cancel As Integer)
DoCmd.OpenForm "修改窗体名称", acNormal, , "[编号]= forms![当前主窗体名称]![当前子窗体名称]![编号]"
End Sub
在以上的代码中,这里的“客户名称”、“修改窗体名称”、“编号”、“当前主窗体名称”是那些。
这里的客户名称是指你查询子窗体中记录的一个控件名称,,也就是你要实现双击记录进行修改的那条记录的一个字段,,,
修改窗体名称,,,是指那个你能对这条记录进行修改的那个窗体和名称,,,或许就是录入这条记录的窗体了,,,,
编号,,,当前主窗体名称,,,
编号也是指你查询子窗体中记录的一个控件名称,,也就是你要实现双击记录进行修改的那条记录的一个字段,,,此字段是应该属于自动编号类的,,,,用于定位记录。。。。
当前主窗体名称,,,应该就不用多说了吧。。。。
我试过了,如果修改窗体和查询的数据表子窗体是在同一个窗体的话,上述代码是行不通的.就必须另建一个过虑查询,然后在子窗体中某字段的双击事件中写代码,使主窗体的数据源为该过滤查询的值.
给每个控件设置好控件来源,然后打开窗体的时候加一句设置数据源的代码在修改窗体里
Private Sub Form_Load()
me.RecordSource="select * from 表名 where 编号='" & forms![当前主窗体名称]![当前子窗体名称]![编号] & "'"
End Sub
这样就可以实现了
总记录:3篇 页次:1/1 9 1 :