通过一个窗体打开别一窗体并自动跳到指定记录上的问题？

真主

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

试一试吧：      
  DoCmd.OpenForm "新窗体名称", acNormal
            Forms!新窗体名称.SetFocus
            Forms!新窗体名称.产品ID.SetFocus
            DoCmd.FindRecord Forms!C_CB_102产品复制!Txt_新的编号, , , , , acAll, True

真主

2楼的方法不行

Henry D. Sy

把例子传上来

真主

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

aslxt

把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

真主

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

wxf2008hz

yiban