Xuân Thanh > 25-04-12, 01:11 PM
Private Sub Form_Current()
    If Me.NewRecord Then        
        Me!lblNavigate.Caption = "New Record"  'Neu dung Label
        'Me.txtNavigate.ControlSource = "New Record"      Neu dung Textbox
    Else
        With Me.RecordsetClone
            .Bookmark = Me.Bookmark
            'Neu dung Label
             Me!lblNavigate.Caption = "Record " & _
                    .AbsolutePosition + 1 _
                    & " of " & .RecordCount
            'Me.txtNavigate.ControlSource = "Record " & _
                    .AbsolutePosition + 1 _
                    & " of " & .RecordCount     Neu dùng Textbox
        End With
    End If
End Sub