Đá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] Tô màu cho record ( HighLight Record for Continue form) vkaccess 0 46 07-12-17, 05:24 PM
Bài mới nhất: vkaccess
  [Thủ Thuật] [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar] maidinhdan 24 3,115 21-09-17, 10:17 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Demo_Code Ẩn tất cả mọi thứ, ngoại trừ Form+Report maidinhdan 160 19,269 06-09-17, 11:45 PM
Bài mới nhất: vkaccess
  Hướng Dẫn Xin cách xổ list kết quả khi đánh chữ trong form datasheet tien1505 10 528 02-07-17, 01:23 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Lấy dữ liệu bảng A mà ko trùng dữ liệu bảng B duynamvnn1208 6 508 02-07-17, 09:34 AM
Bài mới nhất: duynamvnn1208

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ơ