Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Xóa record trên form bằng hàm VBA
#1
Nếu bạn không thích mã DoMenuItem do Wizard Button tạo ra để Xóa bản ghi hiện hành, bạn có thể sử dụng hàm sau để thay thế.

Mã PHP:
Function fDelCurrentRec(ByRef frmSomeForm As Form) As Boolean
    On Error 
GoTo Err_Section
    
    With frmSomeForm
        
If .NewRecord Then
            
.Undo
            fDelCurrentRec 
True
            
GoTo Exit_Section
        End 
If
    
End With
    
    With frmSomeForm
.RecordsetClone
        
.Bookmark frmSomeForm.Bookmark
        
.Delete
        frmSomeForm
.Requery
    End With
    fDelCurrentRec 
True
Exit_Section
:
    Exit Function

Err_Section:
    
fDelCurrentRec False
    Resume Exit_Section
End 
Function 

Tại nút cmdXoa của form, bạn chèn câu lệnh sau :

Mã PHP:
Private Sub cmdXoa_Click()
    If 
Not (fDelCurrentRec(Me)) Then
        MsgBox 
"An Error occurred!"
    
End If
End Sub 

(Sưu tầm)
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , dannynguyen1980


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] Demo_Code Ẩn tất cả mọi thứ, ngoại trừ Form+Report maidinhdan 128 7,451 5 Giờ trước
Bài mới nhất: thanhvanchi
  [Thủ Thuật] [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar] maidinhdan 13 536 30-11-16, 11:45 AM
Bài mới nhất: ongke0711
  [Thủ Thuật] Demo_Chọn ngày tháng bằng nút (No Calender Tiếng việt) maidinhdan 7 1,399 25-06-16, 12:44 AM
Bài mới nhất: zinzin8x
  [Thủ Thuật] Ẩn record trong table theo ngày tháng tvn_hut 6 486 24-04-16, 01:00 AM
Bài mới nhất: tvn_hut
  Hướng dẫn cơ bản về việc lập báo cáo tồn kho và in thẻ kho bằng query Xuân Thanh 30 14,943 13-02-15, 10:47 PM
Bài mới nhất: thucgia

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ơ