想在窗口实现一个记录的复制,但有问题,请高手帮忙!

小成　发表于：2009-06-20 00:06:37 　

复制

想在窗口用一个命令按钮复制当前的记录到一个新的记录上,但有问题,想请高手帮帮忙.另外不知道有没有办法用一个Inputbox的命令去提示输入名称呢? 请高手帮帮忙!谢谢!

点击下载此附件

Top

钱玉炜发表于：2009-06-20 08:41:21

设置个变量，存储inputbox对话框输入的数据比如 dim x as string

x=inputbox(......)

Top

点燃一支烟发表于：2009-06-20 11:17:18

复制到哪里?表?....

Top

82077802 发表于：2009-06-20 11:49:48

Private Sub Form_Current()　　
'窗体成为当前事件代码
If Me.NewRecord = True Then　　'如果新增记录
      Dim rsClone As Recordset　　'定义记录集
      Set rsClone = Me.RecordsetClone
      rsClone.MoveLast　　'移动到最后一条记录
      Me!FirstName = rsClone!FirstName　　'给控件赋上条记录的相关字段值,其它控件赋值方法类似,只须更改相应控件名及字段名即可
      Set rsClone = Nothing　　'关闭记录集
End If
End Sub

Top

小成发表于：2009-06-20 17:59:10

我的意思是,当点击"复制成新的联系人"这个命令按钮时把当前的记录的内容复制到新的记录里面并产生新的记录.好象上面这个运行不了.请再再帮帮忙吧.

Top

点燃一支烟发表于：2009-06-20 22:05:59

Private Sub Command45_Click()
Dim Rec As New ADODB.Recordset
Rec.Open "Select * from 联系人", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    With Rec
       .AddNew
       '!姓氏 = Me!姓氏 '你的表里哪有姓氏这个字段啊?特此注释掉
       !名字 = Me!名字
       !公司名称 = Me!公司名称
       .Update
       .Close
     End With
End Sub

Top

trynew 发表于：2009-06-23 15:05:43

修改了一下，请参看：http://www.accessoft.com/bbs/index.asp

还可以做成连续复制多条记录：

Private Sub Command47_Click()
Dim Stemp As String
Stemp = InputBox("输入新联系人名字，不输内容则停止复制")
If Nz(Stemp) = "" Then Exit Sub

'当前为新记录则进行保存
If Me.NewRecord Then DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
'将RecordsetClone定位到当前（被复制）的记录位置
Me.RecordsetClone.Bookmark = Me.Bookmark
'添加新记录
DoCmd.GoToRecord acActiveDataObject, , acNewRec
'复制所需的字段数据
Me![公司名称] = Me.RecordsetClone![公司名称]
Me![私人电子邮件] = Me.RecordsetClone![私人电子邮件]
'用输入框输入需改变的字段
Me![名字] = Stemp
Call Command47_Click
End Sub

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

想在窗口实现一个记录的复制,但有问题,请高手帮忙!