Bài thực hành 15 môn Công nghệ thông tin | Trường đại học kinh doanh và công nghệ Hà Nội
Private Sub XOA_Click() Dim MA_XOA As Integer MA_XOA = InputBox("Nhap Ma nhan vien can xoa:", "Find And Delete Record")
If Not IsNull(MA_XOA) Then Dim TIM_Del As String TIM_Del = "Select * From NHAN_VIEN Where MANV=" & MA_XOA Dim Rec As DAO.Recordset Set Rec =CurrentDb.OpenRecordset(TIM_Del) .Tài liệu giúp bạn tham khảo, ôn tập và đạt kết quả cao. Mời đọc đón xem!
Môn: Công nghệ thông tin (HUBT) 138 tài liệu
Trường: Đại học Kinh Doanh và Công Nghệ Hà Nội 1.2 K tài liệu
Tác giả:
Preview text:
lOMoAR cPSD| 48704538 THỰC HÀNH: BÀI 15
- Thiết kế Form theo gợi ý, Kết nối Database vào bảng Private Sub CUOI_Click() lOMoAR cPSD| 48704538
If Me.CurrentRecord < Me.Recordset.RecordCount Then
DoCmd.GoToRecord , , acLast Else
MsgBox ("Het roi - khong chuyen tiep nua") End If End Sub
Private Sub DAU_Click()
If Me.CurrentRecord > 1 Then
DoCmd.GoToRecord , , acFirst Else
MsgBox ("Khong the lui tiep nua, cung duong roai") End If End Sub
Private Sub SAU_Click()
DoCmd.GoToRecord , , acNext End Sub
Private Sub TRUOC_Click() lOMoAR cPSD| 48704538
DoCmd.GoToRecord , , acPrevious End Sub --
Private Sub XOA_Click() Dim MA_XOA As Integer
MA_XOA = InputBox("Nhap Ma nhan vien can xoa:", "Find And Delete Record") If Not IsNull(MA_XOA) Then Dim TIM_Del As String
TIM_Del = "Select * From NHAN_VIEN Where MANV=" & MA_XOA Dim Rec As DAO.Recordset
Set Rec = CurrentDb.OpenRecordset(TIM_Del) If Not Rec.EOF Then Rec.Delete
MsgBox ("Da xoa ban ghi: " & MA_XOA) Else
MsgBox ("Khong tim thay Nhan vien cos Ma: " & MA_XOA) End If End If lOMoAR cPSD| 48704538 End Sub