一个可能很实用的问题啊---我看了很多的例子都没有这个功能--看看能否解决?

ququ

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

cg1

很多软件里面都有这个功能啊？

原理非常简单。

只要添加一个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

最好是做成按钮式,即一个复制按钮和一个粘贴按钮.

cg1

相信上述代码中的原理你已经明白。

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

ququ

最好是做成按钮式,即一个复制按钮和一个粘贴按钮.

cg1

已经是按钮式了。

ququ

呵,谢谢

ququ

cgl兄,用CONTROLS循环怎麼來做.能不能說得具體一點.多謝 有機會請你吃飯,呵

cg1

controlS

做关键字查帮助。

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