php 上一条记录,HTML_如何重复上一条记录？，新手来看：如何重复上一条记

如何重复上一条记录？

新手来看：如何重复上一条记录？

问题：

如何重复上一条记录？

有一个窗体,上面有多个文本框和组合框,因为目录这笔资料与下一笔资料大部门都是一样的,能不能利用copy功能把上一笔的资料复制到下一笔的相对应的文本框和组合框内.最好是做成按钮式,即一个复制按钮和一个粘贴按钮。

方法一：

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

原理非常简单。

只要添加一个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+'(单引号)可以复制上一条记录同一字段内容。

方法二：

用controls循环的代码如下：

Private Sub AutoWriteRecord()

'自适应

On Error GoTo Err_AutoWriteRecord

Dim D '创建一个变量

Set D = CreateObject("Scripting.Dictionary")

Dim i As Long

For i = 0 To Me.Controls.Count - 1

If Me.Controls(i).ControlType = acTextBox _

Or Me.Controls(i).ControlType = acComboBox _

Or Me.Controls(i).ControlType = acListBox _

Or Me.Controls(i).ControlType = acCheckBox _

Or Me.Controls(i).ControlType = acOptionButton Then

If Me.Controls(i).Name <> "编号" Then

'自动编号字段不可写，所以除外，可以用on error resume next 忽略

D.Add Me.Controls(i).Name, Me.Controls(i).Value

End If

Next i

'原理很简单，先将控件值赋值给变量

'然后在添加记录后再将该变量值赋值给控件

DoCmd.GoToRecord , , acNewRec

Dim K

K = D.keys

For i = 0 To D.Count - 1

Me.Controls(K(i)).Value = D(K(i))

Next i

Set D = Nothing

Exit_AutoWriteRecord:

Exit Sub

err_autowriterecord:

MsgBox Err.Description

Resume Exit_AutoWriteRecord

End Sub

Private Sub AutoWriteRecord_1(strControlName As String)

'人工定义控件名

On Error GoTo Err_AutoWriteRecord

Dim D '创建一个变量

Set D = CreateObject("Scripting.Dictionary")

Dim strSName() As String

strSName = Split(strControlName, ";")

Dim i As Long

For i = 0 To UBound(strSName) - 1

D.Add strSName(i), Me.Controls(strSName(i)).Value

Next i

'原理很简单，先将控件值赋值给变量

'然后在添加记录后再将该变量值赋值给控件

DoCmd.GoToRecord , , acNewRec

For i = 0 To UBound(strSName) - 1

Me.Controls(strSName(i)).Value = D(strSName(i))

Next i

Set D = Nothing

Exit_AutoWriteRecord:

Exit Sub

err_autowriterecord:

MsgBox Err.Description

Resume Exit_AutoWriteRecord

End Sub

测试：

Private Sub Command16_Click()

'AutoWriteRecord

AutoWriteRecord_1 "字段1;字段2;字段4;"

End Sub

本文作者:相关阅读:

css 类选择器和id选择器

让你清楚的查看电脑硬件的配置情况

Linux服务器的常用备份方法

基于jquery实现的服务器验证控件的启用和禁用代码

IBM发布AJAX Toolkit Framework

JavaScript 存在陷阱删除某一区域所有节点

showModelessDialog()使用详解

控制文件对于Oracle的重要性

Ubuntu Linux系统建立FTP服务器方法步骤

CSS Alpha透明相关知识学习

刷新页面实现方式总结(HTML,ASP,JS)

Prototype实战教程----11.Inserttion

css IE8 兼容问题的汇总

Linux 2.6内核的编译步骤及模块动态加载

php 上一条记录,HTML_如何重复上一条记录？，新手来看：如何重复上一条记 - phpStudy...