[Help] Tạo lệnh các nút Thêm, Sửa, Xóa... ????

[maixuanthu]

Em muốn tạo các command là các nút ĐẦU, TRƯỚC, CUỐI, SAU, THÊM, SỬA, XÓA để điều khiển các mẫu tin trong form. Ở trong form thì có sẵn chế độ wizard nhưng em muốn làm bằng code. Có ai biết xin chỉ giáo giùm em. Em cảm ơn rất nhiều!!

[cuong0202]

Em muốn tạo các command là các nút ĐẦU, TRƯỚC, CUỐI, SAU, THÊM, SỬA, XÓA để điều khiển các mẫu tin trong form. Ở trong form thì có sẵn chế độ wizard nhưng em muốn làm bằng code. Có ai biết xin chỉ giáo giùm em. Em cảm ơn rất nhiều!!

Mã:

Private Sub Cuoi_Click()
On Error GoTo Err_Cuoi_Click
If cmt = sophieunhap Then
MsgBox "day la phieu nhap cuoi cung, khong di chuyen nua!", vbExclamation + vbDefaultButton1, "chu y"

Else

    DoCmd.GoToRecord , , acLast
End If
Exit_Cuoi_Click:
    Exit Sub

Err_Cuoi_Click:
    MsgBox Err.Description
    Resume Exit_Cuoi_Click
    
End Sub

Mã:

Private Sub Dau_Click()
On Error GoTo Err_Dau_Click
If dmt = sophieunhap Then
MsgBox "day la phieu nhap dau tien, khong di chuyen nua !", vbExclamation + vbDefaultButton1, "chu y"
Else
End If

    DoCmd.GoToRecord , , acFirst

Exit_Dau_Click:
    Exit Sub

Err_Dau_Click:
    MsgBox Err.Description
    Resume Exit_Dau_Click
    
End Sub

Mã:

Private Sub Sau_Click()
On Error GoTo Err_Sau_Click
If cmt = sophieunhap Then
MsgBox "day la phieu nhap cuoi cung, khong di chuyen nua !", vbExclamation + vbDefaultButton1, "chu y"
Else

    DoCmd.GoToRecord , , acNext
End If

Exit_Sau_Click:
    Exit Sub

Err_Sau_Click:
    MsgBox Err.Description
    Resume Exit_Sau_Click
    
End Sub

Mã:

Private Sub Truoc_Click()
On Error GoTo Err_Truoc_Click
If dmt = sophieunhap Then
MsgBox "ban dang o phieu nhap dau tien, khong di chuyen nua!", vbExclamation + vbDefaultButton1, "chu y"
Else

    DoCmd.GoToRecord , , acPrevious
End If

Exit_Truoc_Click:
    Exit Sub

Err_Truoc_Click:
    MsgBox Err.Description
    Resume Exit_Truoc_Click
    
End Sub