quan_pc > 17-05-11, 10:03 AM
(17-05-11, 12:08 AM)hieuvn Đã viết: sao không nói sớm, khổ tâm ghê, hàng về này:
Private Sub Command2_Click()
DoCmd.GoToRecord , , acNext 'nut tiep
End Sub
Private Sub Command3_Click()
DoCmd.GoToRecord , , acPrevious 'nut lui
End Sub
Private Sub Command4_Click()
DoCmd.GoToRecord , , acNewRec 'nút thêm ban doc moi
End Sub
Private Sub Command5_Click()
DoCmd.RunCommand acCmdDeleteRecord ' nut xoa
End Sub
Private Sub Command6_Click()
DoCmd.RunCommand acCmdSaveRecord 'nut luu
MsgBox "da luu thanh cong", vbOKOnly, "thongbao"
End Sub
have fun