(21-07-18, 04:56 PM)pvhung76 Đã viết: Đã cho thì cho cho trót luôn đi! Cho em xin phần Queries trong data luôn đi,...!

Queries nào bạn?

Cám ơn bác để em thử

(14-07-18, 05:27 PM)ongke0711 Đã viết: Dùng chung 1 Form nhập liệu (Unbound) cho các Table tham chiếu (dạng danh mục)

------------------------------------------------------------------------------------------------------------------------------

Chào các bạn,

Thấy tình hình diễn đàn khá im ắng bữa giờ nên kiếm chuyện post bài để thảo luận   .

Bác ơi cho em hỏi sao trong câu lệnh xuất ra excel

Function DataToExcel(strSourceName As String, Optional strWorkbookPath As String, Optional strTargetSheetName As String)  
    Dim rst        As DAO.Recordset
    Dim excelApp    As Object
    Dim Wbk        As Object
    Dim sht        As Object
    Dim xlRng      As Object
    Dim fldHeadings As DAO.Field        
    Set rst = CurrentDb.OpenRecordset(strSourceName)
    Set excelApp = CreateObject("Excel.Application")    
    On Error Resume Next
    .................... 
    ..................
    rst.Close
    Set rst = Nothing
Exit Function
ErrorHandler:
    DoCmd.SetWarnings True
    MsgBox Err.Description, vbExclamation, Err.Number
    Exit Function
End Function

Tại sao đoạn cuối này, trước end function lại phải có ext function ạ. Không biết cách hoạt động khi có và không có exit function trước end funciton như thế nào ạ. Mong bác chỉ giúp. Em xin cảm ơn

(01-11-20, 11:57 PM)yamakashi2003 Đã viết:     .................... 
    ..................
    rst.Close
    Set rst = Nothing
Exit Function
ErrorHandler:
    DoCmd.SetWarnings True
    MsgBox Err.Description, vbExclamation, Err.Number
    Exit Function
End Function

Tại sao đoạn cuối này, trước end function lại phải có ext function ạ. Không biết cách hoạt động khi có và không có exit function trước end funciton như thế nào ạ. Mong bác chỉ giúp. Em xin cảm ơn

Bạn dư sức test thử vấn đề này mà, cứ bỏ nó đi xem có báo lỗi gì không.
Thực ra cái Exit Function cuối cùng là dư thừa, do tôi viết nhanh, không kiểm lại kỹ thôi. Sau nó không còn phải thực thi câu lệnh gì nữa thì không cần dùng Exit ở đây.

(02-11-20, 12:38 AM)ongke0711 Đã viết:

(01-11-20, 11:57 PM)yamakashi2003 Đã viết:

Bạn dư sức test thử vấn đề này mà, cứ bỏ nó đi xem có báo lỗi gì không.
Thực ra cái Exit Function cuối cùng là dư thừa, do tôi viết nhanh, không kiểm lại kỹ thôi. Sau nó không còn phải thực thi câu lệnh gì nữa thì không cần dùng Exit ở đây.

Vâng em có test rồi, nhưng gần đây thấy 1 số code demo cũng viết cả exit sub ở cuối nên tưởng là có thể về bản chất nó có thể khác nhau thì mọi người mới viết vậy