双击子窗体某列记录，将其复制到它的下方？

[baidu_35647517]

在Access子窗体中某列中输入数据，常常遇到相同内容，在Excel中可以使用下拉的方式输入，但在Access中没有这个功能，能否使用双击下面空白行，复制上面的记录？谢谢各位老师！

[shw014]

Private Sub A_DblClick(Cancel As Integer)
If Me.CurrentRecord = 1 Then Exit Sub
If Me.Recordset!A <> "" Then Exit Sub

     DoCmd.GoToRecord , "", acPrevious
   Dim s1 As String
   If IsNull(Me.Recordset!A) Then
     s1 = ""
   Else
     s1 = Me.Recordset!A
    End If
      DoCmd.GoToRecord , "", acNext
 If Me.CurrentRecord <= Me.Recordset.RecordCount Then
    Me.Recordset.Edit
 Else
    Me.Recordset.AddNew
 End If
 Me.Recordset!A = s1
 Me.Recordset.Update
End Sub

子窗体 设计视图 右键 事件生成器 代码生成器 加入 以上代码 ， A_DblClick 中 A 是列名 ， 您需要自己改，只是这个方法您几列需要就要 写几次 DoCmd.GoToRecord , "", acPrevious 是跳到上一行 s1 = Me.Recordset!A 零时保存列A的值 DoCmd.GoToRecord , "", acNext 是跳到下一行 Me.Recordset!A = s1 将零时保存数据房到下一行 Me.Recordset.Update 数据写到数据库中