Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] viết code xóa 1 record như thế nào ạh
#1
chào các bạn,

Đây là CSDL của mình http://www.mediafire.com/?mkvjfycyn7bg15r

Mình muốn xóa record của kỳ thi trong form Dskythimonthi thì viết code làm sao?

Đây là code:

Private Sub cmdXoakythi_Click()

If DCount("[MA_KY_THI]", "KY_THI") > 0 Then
MsgBox("Ban co muon xoa mau tin nay khong?", vbYesNo + vbQuestion, "Thong bao") = vbYes
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.GoToRecord , , acLast
Forms!DSkythimonthi!Gridkythi.Requery
End If

End Sub

Mong các bạn chỉ giúp
Chữ ký của tigergirl Xin chào, mình là tigergirl, Tham gia http://thuthuataccess.com/forum từ ngày 05-08 -12.
Reply
Những người đã cảm ơn
#2
Bạn thử đoạn code này đúng ý bạn k. Mình thay đổi chút xíu.

Hàm Dcount của bạn dùng để đếm số môn thi trong kỳ thi đó nhưng bạn đã khai báo sai table.

Mã:
Private Sub cmdXoakythi_Click()

Dim so_mon_thi As Integer

so_mon_thi = DCount("[MA_KY_THI]", "KY_THI_CO_MON_THI", "MA_KY_THI='" & [Gridkythi].Form![MA_KY_THI] & "'")

If so_mon_thi > 0 Then
    MsgBox "Khong the xoa vi ky thi nay da co mon thi "
    
ElseIf MsgBox("Ban co muon xoa mau tin nay khong?", vbYesNo + vbQuestion, "Thong bao") = vbYes Then

    DoCmd.SetWarnings False
    'DoCmd.RunCommand acCmdDeleteRecord
    CurrentDb.Execute "DELETE FROM KY_THI " & _
                       "WHERE MA_KY_THI = '" & [Gridkythi].Form![MA_KY_THI] & "'"
        
    DoCmd.GoToRecord , , acLast
    Forms!DSkythimonthi!Gridkythi.Requery
End If

End Sub
Chữ ký của Cafe Via He Ở nhờ nhà mẹ mình big green
ღღღღღTài sản của Cafe Via He (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#3
cám ơn bạn rất nhiều, chính xác là nó.big hug
Chữ ký của tigergirl Xin chào, mình là tigergirl, Tham gia http://thuthuataccess.com/forum từ ngày 05-08 -12.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Chọn nhiều record trong listbox của Form haidc 5 683 21-11-17, 06:30 PM
Bài mới nhất: haidc
  Code VBA không chạy trong access 2016 tranthanhan1962 5 245 15-11-17, 03:47 PM
Bài mới nhất: tranthanhan1962
  [Lỗi] Nút xóa không xóa được Record tieulong272 4 141 24-10-17, 12:57 PM
Bài mới nhất: tranthanhan1962
  [Help] Xin code kiểm tra hai mật khẩu nhập có giống nhau kiepgiangho79 9 261 30-09-17, 02:17 PM
Bài mới nhất: kiepgiangho79
  Hiện nội dung record của subform lên main form hueqlhc 9 3,034 02-08-17, 04:36 PM
Bài mới nhất: tvn_hut

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ