双击一个表中数据如何向另外一个有自定义编号的表中复制数据

我是学习者

如何双击tb订单中凭证号后，在td送货单中新建单子（ID为自定义编号）并把tb订单中相关数据复制到td送货单中。   

现在td送货单中用系统自动编号能达到目的，但用自定义编号则不能。

aslxt

你不是已经这样做了吗？
Private Sub 凭证号_DblClick(Cancel As Integer)
DoCmd.OpenForm "td送货单", , , , acFormAdd
    Forms("td送货单").Form.客户 = Me.客户
    Forms("td送货单").Form.产品 = Me.产品
    Forms("td送货单").Form.单价 = Me.单价
End Sub
再增加其他字段就可以了，怎么说不达目的呢？

我是学习者

可能是我没表达清楚，现贴图

我是学习者

用系统自动编号时能行，

我现在改用自定义编号时，自动编号不能建立。

我是学习者

经过努力终于达到了目的。{:soso_e100:}