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!

13 7 lượt tải Tải xuống
Chia sẻ Báo cáo tài liệu

Môn: Công nghệ thông tin (HUBT)

Trường: Đại học Kinh Doanh và Công Nghệ Hà Nội

Thông tin:

4 trang 2 tuần trước

Tác giả:

Profile Lan Anh Trần
lOMoARcPSD| 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()
lOMoARcPSD| 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()
lOMoARcPSD| 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
lOMoARcPSD| 48704538
End Sub
| 1/4
| | Tải xuống

Có thể bạn quan tâm:

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