在A窗体中双击ID号，插入数据到B窗体后，并在B窗体中显示的数据问题

随心飞去　发表于：2015-05-13 01:04:45 　

Private Sub ID_DblClick(Cancel As Integer)

Dim rst As Object

msg = "您开始选定的记录数据追加到下表中。如果您确定,请选择“是”！" & vbCrLf & _
        "                                          " & vbCrLf & _
        "如果您操作错误,请选择“否”"
If MsgBox(msg, vbYesNo) = vbNo Then
Exit Sub
    End If

DoCmd.RunSQL " INSERT INTO 领料到货情况 ( ID, 物资名称, 型号规格, 计量单位, 数量, 单价, 金额 ) select 计划合同清单.ID, 计划合同清单.物资名称, 计划合同清单.型号规格, 计划合同清单.计量单位, 计划合同清单.数量, 计划合同清单.单价, 计划合同清单.金额 FROM 计划合同清单 WHERE 计划合同清单.ID=" & Form_计划未到货数据!ID

MsgBox "操作成功"

Set rst = Nothing '释放内存，让计算有更多的空间，通道顺畅。
DoEvents

strFrm = Form_计划核消窗体!领料到货情况子窗体.SourceObject
Form_计划核消窗体!领料到货情况子窗体.SourceObject = strFrm

Forms!计划核消窗体!领料到货情况子窗体.Form!ID = Me.ID

End Sub

上面的代码是在《计划未到货数据》子窗体中，双击某一条ID号数据，该ID号数据就插入到《领料到货情况子窗体》，数据插入完成后，在《领料到货情况子窗体》中显示双击的ID号相对应的数据。

(为什么到这里后，运行中没有什么问题，但最后在《领料到货情况子窗体》显示的是全部的ID号数据，而不是刚刚完成插入的ID号数据（双击的ID号），请教各位老师正确的方法怎样书写？

Top

茼蒿发表于：2015-05-13 08:15:59

窗口没有筛选吧，不筛选就是显示全部数据的

Forms!计划核消窗体!领料到货情况子窗体.Form!ID = Me.ID （这句后面没有requiry，也没有应用筛选）

Top

煮江品茶发表于：2015-05-13 08:27:15

Private Sub ID_DblClick(Cancel As Integer)
dim frm as form
dim ssql as string

If MsgBox("选择是否正确？", vbYesNo) = vbNo Then Exit Sub

ssql="INSERT INTO 领料到货情况 ( ID, 物资名称, 型号规格, 计量单位, 数量, 单价, 金额 ) "
ssql=ssql & "select ID,物资名称,型号规格,计量单位, 数量, 单价, 金额 "
ssql=ssql & "FROM 计划合同清单 WHERE ID=" & Me.ID.value

DoCmd.RunSQL ssql

set frm=Forms!计划核消窗体!领料到货情况子窗体.Form

frm.filter ="ID=" & nz(Me.ID.value,0)
frm.filteron=true
End Sub

Top

随心飞去发表于：2015-05-13 15:22:31

有问题的哈，请看下图

Top

煮江品茶发表于：2015-05-13 15:44:48

set frm=.....

frm.filter=...

frm.filteron=true

Top

随心飞去发表于：2015-05-13 18:06:17

谢谢楼上的无私帮助

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

在A窗体中双击ID号，插入数据到B窗体后，并在B窗体中显示的数据问题