kaiya92 > 23-04-12, 01:02 AM
Private Sub next_bt_Click()
On Error GoTo Loi
If CurrentRecord = Recordset.RecordCount Then
MsgBox "Day la mau tin cuoi, khong the di chuyen tiep", , "Thong bao"
Else
Me.username.enabled = False
Me.pass.enabled = False
Me.group.enabled = False
Me.enabled.enabled = False
Me.change_data.Value = False
DoCmd.GoToRecord , , acNext
End If
Me.save_bt.Visible = False
Me.check_bt.Visible = False
Me.undo_bt.Visible = False
thoat_sub:
Exit Sub
Loi:
MsgBox "Co loi trong qua trinh di chuyen, ban thu lai sau nhe! ", , "Canh bao"
Resume thoat_sub:
End Sub