设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 1690|回复: 12
打印 上一主题 下一主题

[窗体] 已解决:如何:双击弹出窗体数据返回当前窗体,并新增

[复制链接]
跳转到指定楼层
1#
发表于 2009-5-12 20:49:04 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 luhao 于 2009-5-17 19:34 编辑

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2009-5-13 11:44:10 | 只看该作者
1# luhao
有没人帮我
3#
 楼主| 发表于 2009-5-13 18:32:56 | 只看该作者
1# luhao
请老师们指教。。。谢谢
4#
发表于 2009-5-13 19:05:14 | 只看该作者
什么是弹也
5#
 楼主| 发表于 2009-5-13 21:55:38 | 只看该作者
什么是弹也
Henry D. Sy 发表于 2009-5-13 19:05

对不起,因心急打错字了,在工作中用快速查询来新增数据,比一笔一笔输入资料效率高很多。
6#
发表于 2009-5-14 00:32:24 | 只看该作者
你自己不是实现了吗
7#
 楼主| 发表于 2009-5-14 07:11:57 | 只看该作者
你自己不是实现了吗
Henry D. Sy 发表于 2009-5-14 00:32

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
8#
发表于 2009-5-14 08:36:21 | 只看该作者
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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
9#
 楼主| 发表于 2009-5-14 19:06:45 | 只看该作者
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解压有点问题。
10#
发表于 2009-5-15 00:53:57 | 只看该作者
不是acc的问题,
请用高版本的winrar
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-18 22:30 , Processed in 0.093979 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表