• 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

• Nhờ giúp đỡ code Delete Record

  DoquangLam > 27-09-11, 08:56 PM

  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 !

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

  DoquangLam > 28-09-11, 02:17 PM

  Code 1 : Khi bấm vào nút lệnh có code này thì xoá được liền nhưng không có câu thông báo.
  Code 2 : Khi bấm vào nút lệnh có code này thì có câu thông báo (rất hay) nhưng phải bấm nhiều lần mới xoá được, mình chưa tìm ra được nguyên nhân, không biết code menutree trên forms chính có ảnh hưởng không ?
  
  Có bạn nào gặp trường hợp này chưa ? Rất mong được giúp đỡ. Cám ơn !

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

  domfootwear > 28-09-11, 02:40 PM

  Demo lên đi bạn.

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

  Noname > 28-09-11, 10:07 PM

  Thì bạn bỏ quách mấy câu thông báo rườm rà msgbox là hết thông báo ngay

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

  DoquangLam > 28-09-11, 10:25 PM

  Mình muốn giữ câu thông báo lại, chỉ có điều bấm nút lệnh xoá nhiều lần mới xoá được. Vậy nguyên nhân từ câu thông báo đó sao bạn ?

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

  haquocquan > 28-09-11, 10:56 PM

  Bạn thử xem nhé
  
  

  Mã:

  On Error GoTo LOIXOA
If MsgBoangry"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
Thoat:
Exit Sub
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
Resume Thoat

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

  DoquangLam > 29-09-11, 03:23 PM

  Mình đã sửa lại theo bạn, nhưng vẫn vậy bạn ạ. Phải bấm nhiều lần (5, 6 lần) mới xóa được.

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

  domfootwear > 29-09-11, 03:54 PM

  Thử như sau xem coi được không nha bạn
  
  

  Mã PHP:

  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.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
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 


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

  DoquangLam > 29-09-11, 08:49 PM

  Vẫn không được, bó tay rồi bạn ơi.
  

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

  haquocquan > 30-09-11, 09:55 AM

  (29-09-11, 08:49 PM)DoquangLam Đã viết: Vẫn không được, bó tay rồi bạn ơi.

  
  bạn post file lên đi
• Bài trước Bài tiếp