Tùy chọn
FORM NHẬP LIỆU P1: Dùng 1 Form nhập cho nhiều Table (cùng thiết kế Fields)
- FORM NHẬP LIỆU P1: Dùng 1 Form nhập cho nhiều Table (cùng thiết kế Fields)
-
RE: FORM NHẬP LIỆU P1: Dùng 1 Form nhập cho nhiều Table (cùng thiết kế Fields)
NguyenDungAnh > 21-07-18, 05:34 PM
Cám ơn bác để em thử -
RE: FORM NHẬP LIỆU P1: Dùng 1 Form nhập cho nhiều Table (cùng thiết kế Fields)
yamakashi2003 > 01-11-20, 11:57 PM
(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 -
RE: FORM NHẬP LIỆU P1: Dùng 1 Form nhập cho nhiều Table (cùng thiết kế Fields)
ongke0711 > 02-11-20, 12:38 AM
(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. -
RE: FORM NHẬP LIỆU P1: Dùng 1 Form nhập cho nhiều Table (cùng thiết kế Fields)
yamakashi2003 > 02-11-20, 01:02 AM
(02-11-20, 12:38 AM)ongke0711 Đã viết:
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(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.