Access911.net   |   a9BBS   |   OTaA System  
  搜索文章:  
Access911欢迎您光临  
   主页      上传      繁體版       论坛     
设为首页  |  加入收藏   
  
你现在的位置:文章索引 -> 文章分类 -> 窗体  
 首页|  近日更新|  下载  |  文章索引  |  搜索|  术语|  承接工程|  
 
系统正在加载内容,请耐心等待...
 
 查询
 窗体
 报表
 
 
 VBA
 函数
 ADO/DAO/ADO.NET
 API
 ADP
 安全
 发布
 OA
 ASP/ASP.NET
 其他语言
 控件
 DELPHI
 C#/.Net
 本站
 其他
 小例程
 常用软件
 参考文档
 业主作品
 网友大作
 
 
友情链接
 access911.net
 
访问人次
 1702309
 
站长 E-Mail
 net911@sina.com
 access911@gmail.com
 
RSS 订阅

显示附加信息 >>>

新手来看:如何重复上一条记录?

作者:cg1  摘自:access911.net  :cg1  更新日期:2004-1-4  浏览人次:

 

问题:

如何重复上一条记录?

有一个窗体,上面有多个文本框和组合框,因为目录这笔资料与下一笔资料大部门都是一样的,能不能利用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
        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

 

 

 
相关文章
     没有手动相关文章
     如何任意记录上进行编辑,然后保存成一条新的记录,同时原记录没有发生改变
     判断重复,只保留一条记录,但是要显示全部字段
     新手来看:如何获取recordset记录号?
     新手来看:如何实现文字的sum?
     如何得知一个查询(update insert select)将改变或影响多少条记录?
     如何添加、删除表的“索引:有(无重复)”属性?
     如何将一个窗体重复打开2遍,并且每一遍打开的窗体显示不同的数据?
     关于如何得到新增记录的自动编号字段数值方法二
     如何在表中新插入新记录后,获取该记录自动编号字段的值?
     新手来看:在报表中不显示重复的内容
 
评论
     查看或发表更多的评论,请单击这里。
 
 
 
 
 
   
  Access911.net   |   a9BBS   |   OTaA System   |
建站日期:2000年4月2日  |  设计施工:陈格 ( access911 & cg1 )
 Copyright © 2000 - 2003 COMET, 陈格 保留所有权利