设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1310|回复: 8
打印 上一主题 下一主题

[与其它组件] 一个可能很实用的问题啊---我看了很多的例子都没有这个功能--看看能否解决?

[复制链接]
跳转到指定楼层
1#
发表于 2004-1-4 19:38:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
一个可能很实用的问题啊---我看了很多的例子都没有这个功能--看看能否解决?
有一个窗体,上面有多个文本框和组合框,因为目录这笔资料与下一笔资料大部门都是一样的,能不能利用COPY功能把上一笔的资料复制到下一笔的相对应的文本框和组合框内.最好是做成按钮式,即一个复制按钮和一个粘贴按钮.
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2004-1-4 19:48:00 | 只看该作者
很多软件里面都有这个功能啊?

原理非常简单。

只要添加一个COMMAND BUTTON 就可以了。

添加记录的代码相信大家都知道了。

Private Sub Command16_Click()
On Error GoTo Err_Command16_Click


    DoCmd.GoToRecord , , acNewRec

Exit_Command16_Click:
    Exit Sub

Err_Command16_Click:
    MsgBox Err.Description
    Resume Exit_Command16_Click
   
End Sub

我们更改一下即可,比如说现在有一个文本框,当然了,实际情况你可以再加代码,或者干脆用CONTROLS循环来做。


Private Sub Command16_Click()
On Error GoTo Err_Command16_Click

    dim strTemp as string
    strTemp=TextBox1.value
    '原理很简单,先将控件值赋值给变量
    '然后在添加记录后再将该变量值赋值给控件
    DoCmd.GoToRecord , , acNewRec

    TextBox1.Value=strTemp
Exit_Command16_Click:
    Exit Sub

Err_Command16_Click:
    MsgBox Err.Description
    Resume Exit_Command16_Click
   
End Sub

另外 Ctrl+'(单引号)可以复制上一条记录同一字段内容。



关于此主题请参考专题地址:http://access911.net/index.asp?board=4&recordid=71FAB61E14DC


[此贴子已经被作者于2004-1-4 11:48:59编辑过]

3#
 楼主| 发表于 2004-1-4 19:57:00 | 只看该作者
最好是做成按钮式,即一个复制按钮和一个粘贴按钮.
4#
发表于 2004-1-4 19:58:00 | 只看该作者
相信上述代码中的原理你已经明白。

既然明白原理,是否做两个按钮已经无关紧要
5#
 楼主| 发表于 2004-1-4 21:29:00 | 只看该作者
最好是做成按钮式,即一个复制按钮和一个粘贴按钮.
6#
发表于 2004-1-4 21:35:00 | 只看该作者
已经是按钮式了。
7#
 楼主| 发表于 2004-1-4 21:45:00 | 只看该作者
呵,谢谢
8#
 楼主| 发表于 2004-1-4 23:02:00 | 只看该作者
cgl兄,用CONTROLS循环怎麼來做.能不能說得具體一點.多謝 有機會請你吃飯,呵
9#
发表于 2004-1-5 01:18:00 | 只看该作者
controlS

做关键字查帮助。

只有窗体上字段比较多的时候才有必要用。

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-29 04:32 , Processed in 0.091037 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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