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

Nhờ giúp đỡ code Delete Record

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Nhờ giúp đỡ code Delete Record
• Nhờ giúp đỡ code Delete Record

• RE: Nhờ giúp đỡ code Delete Record

  hitmen > 07-10-11, 02:27 PM

  (27-09-11, 08:56 PM)DoquangLam Đã viết: Tôi có 2 code xoá như sau :
  Code 1 :
  
  On Error GoTo Err_Xoa_Click
  DoCmd.SetWarnings False
  DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
  DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
  Exit_Xoa_Click:
  Exit Sub
  Err_Xoa_Click:
  MsgBox Err.Description
  Resume Exit_Xoa_Click
  
  '''''''''''
  Code 2:
  On Error GoTo LOIXOA
  If MsgBox("Th«ng b¸o :" & Chr(13) & _
  "B¹n muèn xo¸ phiÕu kÕt chuyÓn ngµy : " & Me.NgayGhiSo & " ph¶i kh«ng ? NÕu xo¸ chän Yes, ng­îc l¹i chän No", vbYesNo, vblnformation) = vbYes Then
  DoCmd.SetWarnings False
  DoCmd.RunCommand acCmdDeleteRecord
  DoCmd.SetWarnings True
  Exit Sub
  End If
  LOIXOA:
  MsgBox "Th«ng b¸o : " & Chr(13) & _
  Ch­a xo¸ ®­îc, cã thÓ ph¶i thùc hiÖn nhiÒu lÇn míi xo¸ ®­îc sè liÖu trªn chøng tõ nµy.", vbInformation
  
  
  Xin hỏi : Code 1, bấm vào là xoá được liên, code 2 bấm nhiều lần mới xoá được. Không biết lý do gì. Mong các bạn hướng dẫn.
  
  Xin cám ơn !

  
  
  
  
  Theo minh la nhung the nay:
  
  Dim saveAns As Integer
  saveAns = MsgBox("Th«ng b¸o :" & Chr(13) & _
  "B¹n muèn xo¸ phiÕu kÕt chuyÓn ngµy : " & Me.NgayGhiSo & " ph¶i kh«ng ? NÕu xo¸ chän Yes, ng­îc l¹i chän No", vbYesNo, vblnformation)
  If saveAns = vbYes Then
  DoCmd.SetWarnings False
  DoCmd.RunCommand acCmdDeleteRecord
  DoCmd.SetWarnings True
  Exit Sub
  End If
  LOIXOA:
  MsgBox "Th«ng b¸o : " & Chr(13) & _
  Ch­a xo¸ ®­îc, cã thÓ ph¶i thùc hiÖn nhiÒu lÇn míi xo¸ ®­îc sè liÖu trªn chøng tõ nµy.", vbInformation
  
  Tuy nhiên, sau khi VB yes rồi thì nó vẫn hỏi thêm 1 câu nữa, mình không biết xoá câu hỏi thứ 2

• RE: Nhờ giúp đỡ code Delete Record

  hitmen > 07-10-11, 02:50 PM

  (07-10-11, 02:27 PM)hitmen Đã viết:

  (27-09-11, 08:56 PM)DoquangLam Đã viết: Tôi có 2 code xoá như sau :
  Code 1 :
  
  On Error GoTo Err_Xoa_Click
  DoCmd.SetWarnings False
  DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
  DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
  Exit_Xoa_Click:
  Exit Sub
  Err_Xoa_Click:
  MsgBox Err.Description
  Resume Exit_Xoa_Click
  
  '''''''''''
  Code 2:
  On Error GoTo LOIXOA
  If MsgBox("Th«ng b¸o :" & Chr(13) & _
  "B¹n muèn xo¸ phiÕu kÕt chuyÓn ngµy : " & Me.NgayGhiSo & " ph¶i kh«ng ? NÕu xo¸ chän Yes, ng­îc l¹i chän No", vbYesNo, vblnformation) = vbYes Then
  DoCmd.SetWarnings False
  DoCmd.RunCommand acCmdDeleteRecord
  DoCmd.SetWarnings True
  Exit Sub
  End If
  LOIXOA:
  MsgBox "Th«ng b¸o : " & Chr(13) & _
  Ch­a xo¸ ®­îc, cã thÓ ph¶i thùc hiÖn nhiÒu lÇn míi xo¸ ®­îc sè liÖu trªn chøng tõ nµy.", vbInformation
  
  
  Xin hỏi : Code 1, bấm vào là xoá được liên, code 2 bấm nhiều lần mới xoá được. Không biết lý do gì. Mong các bạn hướng dẫn.
  
  Xin cám ơn !

  
  
  
  
  Theo minh la nhung the nay:
  
  Dim saveAns As Integer
  saveAns = MsgBox("Th«ng b¸o :" & Chr(13) & _
  "B¹n muèn xo¸ phiÕu kÕt chuyÓn ngµy : " & Me.NgayGhiSo & " ph¶i kh«ng ? NÕu xo¸ chän Yes, ng­îc l¹i chän No", vbYesNo, vblnformation)
  If saveAns = vbYes Then
  DoCmd.SetWarnings False
  DoCmd.RunCommand acCmdDeleteRecord
  DoCmd.SetWarnings True
  Exit Sub
  End If
  LOIXOA:
  MsgBox "Th«ng b¸o : " & Chr(13) & _
  Ch­a xo¸ ®­îc, cã thÓ ph¶i thùc hiÖn nhiÒu lÇn míi xo¸ ®­îc sè liÖu trªn chøng tõ nµy.", vbInformation
  
  Tuy nhiên, sau khi VB yes rồi thì nó vẫn hỏi thêm 1 câu nữa, mình không biết xoá câu hỏi thứ 2

  
  
  
  
  Code này có lẽ sẽ đầy đủ:
  
  Private Sub cmdDelete_Click()
  On Error GoTo Err_cmdDelete_Click
  
  Dim TR As Boolean
  TR = MsgBox("Ban co muon xoa ban ghi nay khong?", vbYesNo, "Chú ý") = 6
  If TR = True Then
  DoCmd.SetWarnings (False)
  
  DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
  DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
  DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 'refresh
  DoCmd.GoToRecord , , acLasRec 'goto last record
  
  DoCmd.SetWarnings (True)
  
  Exit_cmdDelete_Click:
  Exit Sub
  
  Err_cmdDelete_Click:
  MsgBox Err.Description
  Resume Exit_cmdDelete_Click
  End If
  
  End Sub

• RE: Nhờ giúp đỡ code Delete Record

  quanghoasla > 07-10-11, 09:23 PM

  theo mình để đỡ phức tạp cho người mới lập trình vb ms access. bạn lên bỏ mấy cái đoạn err_... đi. để test chuẩn đã. sau đó mới ghép đoạn code đó với phần err để tránh khỏi rườm rà khó kiểm soát code bạn ạ.' theo ý mình là để đơn giản hoá vấn đề- cắt ngắn bớt code đi. đoạn nào bạn không muốn thực thi thì sử dụng dấu nháy đơn (' noi dung cau lenh khong muon thuc thi). chúc các bạn vui vẻ
  
  

• RE: Nhờ giúp đỡ code Delete Record

  nhoc77 > 05-02-13, 03:33 PM

  Tui có viết 1 đoạn code cho nút XÓA như sau:
  Private Sub XOA_Click()
  DoCmd.SetWarnings False
  A = MsgBox("Ban chan muon xoa???", vbYesNo, "THONG BAO")
  If A = vbYes Then
  
  DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
  DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
  MsgBox "Da xoa thong tin", , "THONG BAO"
  
  Else
  MsgBox "Khong xoa thong tin", , "THONG BAO"
  End If
  End Sub
  
  Không biết bị lỗi gì không xóa được (tui dùng AC 2010, nhưng AC 2003 thì được)
• Bài trước Bài tiếp