求组:回车键功能,具体内容;请进

ytf123

是不是这样？是的话方法在2楼

[ 本帖最后由 ytf123 于 2007-8-29 13:09 编辑 ]

goto2008

学习一下...........

kangking

Private Sub 出生日期_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next    '有错误发生时继续执行
If KeyCode = 13 Then
    '如果按下回车键
    If Me.Recordset.AbsolutePosition + 1 = Me.Recordset.RecordCount Then
        如果到了最后一条记录
        DoCmd.GoToRecord , , acNewRec       '生成一条新的空记录
        Me.姓别.SetFocus
    Else
        '否则移动到下一条记录
        Me.Recordset.MoveNext
        Me.姓别.SetFocus
    End If
End If

End Sub

cangqiong

谢谢  ytf123  和  kangking  两位兄弟   
两种方法都可以.  
这个问题已经困绕我很久了.
今天我很有收获.谢谢

rym_yy

OK,学习大家的好经验!!!!