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
Nguyendinhthanh > 21-05-11, 11:46 PM
(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
mrchau911 > 22-05-11, 08:23 AM
quan_pc > 22-05-11, 09:43 PM
(22-05-11, 08:23 AM)mrchau911 Đã viết: Cứ làm một command có sẵn của access, tìm đoạn code chính, copy vào command của mình bạn ạ. Access là vậy. Các câu lệnh khác cũng tương tự.
Nguyendinhthanh > 28-10-12, 09:31 PM
(22-05-11, 08:23 AM)mrchau911 Đã viết: Cứ làm một command có sẵn của access, tìm đoạn code chính, copy vào command của mình bạn ạ. Access là vậy. Các câu lệnh khác cũng tương tự.