• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

viết code xóa 1 record như thế nào ạh

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] viết code xóa 1 record như thế nào ạh
• viết code xóa 1 record như thế nào ạh

• viết code xóa 1 record như thế nào ạh

  tigergirl > 20-08-12, 12:01 PM

  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

• RE: viết code xóa 1 record như thế nào ạh

  Cafe Via He > 22-08-12, 11:14 AM

  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

• RE: viết code xóa 1 record như thế nào ạh

  tigergirl > 22-08-12, 12:18 PM

  cám ơn bạn rất nhiều, chính xác là nó.
• Bài trước Bài tiếp