Office中国论坛/Access中国论坛

标题: 已解决：如何：双击弹出窗体数据返回当前窗体，并新增 [打印本页]

作者: luhao 时间: 2009-5-12 20:49
标题: 已解决：如何：双击弹出窗体数据返回当前窗体，并新增
本帖最后由 luhao 于 2009-5-17 19:34 编辑

如何：双击弹出窗体数据返回当前窗体，并新增

作者: luhao 时间: 2009-5-13 11:44
1# luhao
有没人帮我

作者: luhao 时间: 2009-5-13 18:32
1# luhao
请老师们指教。。。谢谢

作者: Henry D. Sy 时间: 2009-5-13 19:05
什么是弹也

作者: luhao 时间: 2009-5-13 21:55

什么是弹也
Henry D. Sy 发表于 2009-5-13 19:05

对不起，因心急打错字了，在工作中用快速查询来新增数据，比一笔一笔输入资料效率高很多。

作者: Henry D. Sy 时间: 2009-5-14 00:32
你自己不是实现了吗

作者: luhao 时间: 2009-5-14 07:11

你自己不是实现了吗
Henry D. Sy 发表于 2009-5-14 00:32

设为子窗体就出现问题了。

作者: Henry D. Sy 时间: 2009-5-14 08:36
Private Sub 列表_DblClick(Cancel As Integer)
Dim strSQL As String
strSQL = "insert into A(机型id,机型,颜色,主板)values('" & Me.列表.Column(1) & "','" & _
Me.列表.Column(2) & "','" & Me.列表.Column(3) & "','" & Me.列表.Column(4) & "')"
CurrentDb.Execute strSQL
Forms("A").Child1.Requery
End Sub

作者: luhao 时间: 2009-5-14 19:06

Private Sub 列表_DblClick(Cancel As Integer)
Dim strSQL As String
strSQL = "insert into A(机型id,机型,颜色,主板)values('" & Me.列表.Column(1) & "','" & _
Me.列表.Column(2) & "' ...
Henry D. Sy 发表于 2009-5-14 08:36

谢谢Henry D.sy版主
你的ACC解压有点问题。

作者: Henry D. Sy 时间: 2009-5-15 00:53
不是acc的问题，
请用高版本的winrar

作者: philipsnow 时间: 2009-5-17 19:27
学习一下

作者: jack.powell 时间: 2009-11-9 21:05
试一下，谢谢楼主的辛勤劳动！

作者: 鱼儿游游 时间: 2009-12-5 11:44

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)