Office中国论坛/Access中国论坛

标题: 一个可能很实用的问题啊---我看了很多的例子都没有这个功能--看看能否解决? [打印本页]

作者: ququ 时间: 2004-1-4 19:38
标题: 一个可能很实用的问题啊---我看了很多的例子都没有这个功能--看看能否解决?
一个可能很实用的问题啊---我看了很多的例子都没有这个功能--看看能否解决?
有一个窗体,上面有多个文本框和组合框,因为目录这笔资料与下一笔资料大部门都是一样的,能不能利用COPY功能把上一笔的资料复制到下一笔的相对应的文本框和组合框内.最好是做成按钮式,即一个复制按钮和一个粘贴按钮.

作者: cg1 时间: 2004-1-4 19:48
很多软件里面都有这个功能啊？

原理非常简单。

只要添加一个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编辑过]

作者: ququ 时间: 2004-1-4 19:57
最好是做成按钮式,即一个复制按钮和一个粘贴按钮.

作者: cg1 时间: 2004-1-4 19:58
相信上述代码中的原理你已经明白。

既然明白原理，是否做两个按钮已经无关紧要

作者: ququ 时间: 2004-1-4 21:29
最好是做成按钮式,即一个复制按钮和一个粘贴按钮.

作者: cg1 时间: 2004-1-4 21:35
已经是按钮式了。

作者: ququ 时间: 2004-1-4 21:45
呵,谢谢

作者: ququ 时间: 2004-1-4 23:02
cgl兄,用CONTROLS循环怎麼來做.能不能說得具體一點.多謝有機會請你吃飯,呵

作者: cg1 时间: 2004-1-5 01:18
controlS

做关键字查帮助。

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

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