Office中国论坛/Access中国论坛

标题: 通过一个窗体打开别一窗体并自动跳到指定记录上的问题？ [打印本页]

作者: 真主 时间: 2009-7-28 16:49
标题: 通过一个窗体打开别一窗体并自动跳到指定记录上的问题？
Me.C_CB_001产品主表.Form.Recordset.FindFirst "产品ID='" & Forms!C_CB_102产品复制!Txt_新的编号 & "'"
在【C_CB_102产品复制】窗体上打开【C_CB_001产品主表】，而【C_CB_001产品主表】自动跳到（产品ID）与【C_CB_102产品复制】的（Txt_新的编号）一致的表？

作者: aslxt 时间: 2009-7-28 17:15
试一试吧：
  DoCmd.OpenForm "新窗体名称", acNormal
         Forms!新窗体名称.SetFocus
         Forms!新窗体名称.产品ID.SetFocus
         DoCmd.FindRecord Forms!C_CB_102产品复制!Txt_新的编号, , , , , acAll, True

作者: 真主 时间: 2009-7-28 18:14
2楼的方法不行

作者: Henry D. Sy 时间: 2009-7-28 20:14
把例子传上来

作者: 真主 时间: 2009-7-29 08:30
不好意思，表达有误，我现在是通过【C_CB_001产品主表】的复制按键打开【C_CB102产品复制】窗体，点击生产新产品按键执行对【C_CB_001产品主表】追加查询，我想执行完成自动关闭【C_CB102产品复制】且【C_CB_001产品主表】跳到刚才【C_CB102产品复制】的新的编号对应的产品ID上

作者: aslxt 时间: 2009-7-29 13:54
把Cmd_复制_Click()的过程修改如下，不要【C_CB102产品复制】了
Private Sub Cmd_复制_Click()
On Error GoTo Err_Cmd_复制_Click

Dim rs As DAO.Recordset
Dim bh
bh = DMax("[产品ID]", "A_CB_001产品主表", "Mid([产品ID], 1, 1) = 1") + 1
Set rs = CurrentDb.OpenRecordset("A_CB_001产品主表")
rs.AddNew
rs("产品ID") = bh
rs("所属客户ID") = Me.所属客户ID
rs("客户代号") = Me.客户代号
rs("档案号") = Me.档案号
'....
rs.Update
rs.Close
Set rs = Nothing
Me.Requery
DoCmd.GoToRecord , , acLast

Exit_Cmd_复制_Click:
Exit Sub

Err_Cmd_复制_Click:
MsgBox Err.Description
Resume Exit_Cmd_复制_Click
End Sub
把'....变为要复制的其他字段和内容，当然还要应用dao

作者: 真主 时间: 2009-7-30 10:51
首先谢谢aslxt
不好意思，我要【C_CB102产品复制】窗体的用途是因为我除了复制主表外，同时还复制了几个子表，所在上面的代号与我想要的功能不一致

作者: wxf2008hz 时间: 2009-7-31 11:36
yiban

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)