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