Office中国论坛/Access中国论坛

标题: 怎么连续向表单添加明细? [打印本页]

作者: koohhj    时间: 2009-2-16 20:35
标题: 怎么连续向表单添加明细?
如图里所示,双击机型ID,可以打开机型表,将机型明细添加进去,

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

有没有办法可以打开机型表后,可以连续的把要添加的多个机型添加进,订单明细里去呢?[attach]35190[/attach]
[attach]35191[/attach]
作者: Henry D. Sy    时间: 2009-2-16 20:48
表设计有问题
没有必要重复保存同样的数据
作者: koutx    时间: 2009-2-17 11:17
1# koohhj
把你的窗体等稍改一下,即可实现:不重复打开机型信息表即可把要添加的多个机型添加进需求计划中。见附件
[attach]35220[/attach]

作者: Henry D. Sy    时间: 2009-2-17 11:59
将列表的绑定列更改为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




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3