Đá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
  Lưu Record honglv157 6 211 15-07-16, 10:56 AM
Bài mới nhất: honglv157
  [Lỗi] Lỗi code event! toancvp 18 1,039 07-07-16, 01:36 AM
Bài mới nhất: maidinhdan
  [Hỏi] Cách hiện các record trong combo box theo điều kiện toancvp 5 334 02-07-16, 12:21 AM
Bài mới nhất: toancvp
  [Hỏi] Gõ dấu tiếng Việt trong code cannguyen 2 134 25-05-16, 02:41 PM
Bài mới nhất: cpucloi
  [Hỏi] click record trên sub form, thì noi dung được thể hiện ở main form kuzinhy 4 336 25-05-16, 12:29 PM
Bài mới nhất: lmthu

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ơ