NganNguyen > 17-09-15, 12:08 AM
Option Compare Database
Private Sub cmdcuoi_Click()
If CurrentRecord = Recordset.RecordCount Then
MASV.SetFocus
cmdcuoi.Enabled = False
cmdsau.Enabled = False
Else
cmdtruoc.Enabled = True
cmddau.Enabled = True
DoCmd.GoToRecord , , acLast
End If
End Sub
Private Sub CmdDau_Click()
If CurrentRecord = 1 Then
MASV.SetFocus
cmddau.Enabled = False
cmdtruoc.Enabled = False
Else
cmddau.Enabled = True
cmdsau.Enabled = True
cmdcuoi.Enabled = True
cmdsau.Enabled = True
DoCmd.GoToRecord , , acFirst
End If
End Sub
Private Sub cmdsau_Click()
If CurrentRecord = Recordset.RecordCount Then
MASV.SetFocus
cmdcuoi.Enabled = False
cmdsau.Enabled = False
Else
cmdtruoc.Enabled = True
cmddau.Enabled = True
DoCmd.GoToRecord , , acNext
End If
End Sub
Private Sub cmdtruoc_Click()
If CurrentRecord = 1 Then
MASV.SetFocus
cmdtruoc.Enabled = False
cmddau.Enabled = False
Else
cmdsau.Enabled = True
cmdcuoi.Enabled = True
DoCmd.GoToRecord , , acPrevious
End If
End Sub
Private Sub Form_Open(Cancel As Integer)
cmddau.Enabled = False
cmdtruoc.Enabled = False
cmdsau.Enabled = True
cmdcuoi.Enabled = True
End Sub