怎么连续向表单添加明细?

koohhj

如图里所示,双击机型ID,可以打开机型表,将机型明细添加进去,

但是如果有多个明细只能重复的打机型机型表添加,

有没有办法可以打开机型表后,可以连续的把要添加的多个机型添加进,订单明细里去呢?

Henry D. Sy

表设计有问题
没有必要重复保存同样的数据

koutx

1# koohhj
把你的窗体等稍改一下,即可实现:不重复打开机型信息表即可把要添加的多个机型添加进需求计划中。见附件

Henry D. Sy

将列表的绑定列更改为3
多选=无
子窗体的记录源更改为
SELECT 需求明细temp.需求ID, 需求明细temp.机型ID, 需求明细temp.计划数量, 需求明细temp.备注, 机型信息表.机型, 机型信息表.颜色, 机型信息表.主板
FROM 需求明细temp LEFT JOIN 机型信息表 ON 需求明细temp.机型ID = 机型信息表.机型ID;

子窗体的连接属性删除掉

然后在列表双击事件中输入
Private Sub 列表_DblClick(Cancel As Integer)
    Dim strSQL As String
    strSQL = "insert into 需求明细temp(机型id)select 机型id from 机型信息表 where 机型='" & Me.列表 & "'"
    CurrentDb.Execute strSQL
    Forms!需求计划!需求计划_子窗体.Requery
End Sub