Tùy chọn
CODE ĐÓNG HẾT CÁC FORM ĐANG MỞ
- CODE ĐÓNG HẾT CÁC FORM ĐANG MỞ
-
CODE ĐÓNG HẾT CÁC FORM ĐANG MỞ
yamakashi2003 > 02-03-20, 08:01 PM
Em chào các bác ạ,
Nhờ các bác chỉ giúp em đoạn code đóng hết các form đang mở với ạ,
em có dùng câu lệnh: DoCmd.Close, nhưng nó chỉ đong form em đang thao tác còn các form khác thì không
Tiện các bác cho em hỏi em có tham khảo 1 đoạn code xuất excel của 1 bác,
Nhưng đoạn đầu tiên:
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
Set Wbk = excelApp.Workbooks.Open(strWorkbookPath)
If Err.Number <> 0 Or Len(strWorkbookPath) = 0 Then
Set Wbk = excelApp.Workbooks.Add
Set sht = Wbk.Worksheets("Sheet1")
If Len(strTargetSheetName) > 0 Then
sht.Name = Left(strTargetSheetName, 34)
End If
End If
Các bác cho em hỏi câu lệnh if then ở trên có tác dụng gì ạ
Mong các bác chỉ giúp
Em xin cảm ơn -
RE: CODE ĐÓNG HẾT CÁC FORM ĐANG MỞ
thuyyeu99 > 02-03-20, 10:13 PM
2 if muốn hỏi ít nào -
RE: CODE ĐÓNG HẾT CÁC FORM ĐANG MỞ
thuyyeu99 > 02-03-20, 10:18 PM
If đầu tiên là bẫy lỗi nếu open xay ra lỗi hay đường dẫn tới file không có tạo wb mới sau đó đổi tên sheet mới bằng strTargetSheetName mà chỉ lấy 34 ký tự.
If thứ 2 là kiểm tra có nhập tên sheet1 mới chưa
Hết -
RE: CODE ĐÓNG HẾT CÁC FORM ĐANG MỞ
tranthanhan1962 > 02-03-20, 11:09 PM
(02-03-20, 08:01 PM)yamakashi2003 Đã viết: Nhờ các bác chỉ giúp em đoạn code đóng hết các form đang mở với ạ,
Mod đóng Form:
...
Các bác cho em hỏi câu lệnh if then ở trên có tác dụng gì ạ
Sub modDongform()
Dim XForm As AccessObject, CSDL As Object ''Đặt biến XForm kiểu AccessObject, CSDL kiểu Object
Set CSDL = Application.CurrentProject 'Đặt CSDL= Application.CurrentProject (Application.CurrentProject = ứng dụng dự án hiện hành)
For Each XForm In CSDL.AllForms 'Dành cho mỗi XForm trong tất cả các form trong CSDL
If XForm.IsLoaded = True Then ' [Nếu] form đó được tải thì
DoCmd.Close acForm, XForm.Name, acSaveYes ' Đóng form đó và lưu
End If ' Hết [Nếu]
Next XForm ' Tiếp tục các form đã mở cho đến hết
End Sub
For i=A To B....Next = Vòng lặp từ A đến B lần
For Each A In B ....Next = Vòng lặp tất cả A nằm trong B
*Tôi không hiểu lắm về các biến số của công thức này. Nhưng có lẽ strWorkbookPath là đường dẫn tập tin excel và strTargetSheetName là tên tập tin excel
Err.Number <> 0 --> Có lỗi (VBA có mấy trăm ngàn mã lỗi nhưng không có lỗi số 0
Len(strWorkbookPath) = 0 (Số lượng ký tự của đối số strWorkbookPath =0)
Có thể diễn giải như sau
If Err.Number <> 0 Or Len(strWorkbookPath) = 0 Then
(Nếu có lỗi và không có đường dẫn đến tập tin excel thì)
Set Wbk = excelApp.Workbooks.Add
(Tạo Wbk là Workbooks)
Set sht = Tên Workbooks là "Sheet1"
If Len(strTargetSheetName) > 0 Then
(Nếu số lượng ký tự của strTargetSheetName lớn hơn 0
sht.Name = Left(strTargetSheetName, 34)
Sth.Name =cắt bên trái của strTargetSheetName 34 ký tự
Ở đây có lẽ phải đặt vào một dữ liệu cụ thể hơn, nếu không công thức sẽ không chạy -
RE: CODE ĐÓNG HẾT CÁC FORM ĐANG MỞ
yamakashi2003 > 02-03-20, 11:10 PM
Em cảm ơn bác ạ,
Nhờ các bác chỉ giúp em đoạn code đóng hết các form đang mở với ạ,
em có dùng câu lệnh: DoCmd.Close trong sự kiện onclick của 1 button, nhưng nó chỉ đóng form em đang thao tác còn các form khác thì không -
RE: CODE ĐÓNG HẾT CÁC FORM ĐANG MỞ
tranthanhan1962 > 02-03-20, 11:16 PM
-
RE: CODE ĐÓNG HẾT CÁC FORM ĐANG MỞ
tranthanhan1962 > 02-03-20, 11:32 PM
Thực ra còn có một các khác:
Sub modDongform()
DoCmd.Close acForm, "Tên Form 1"
DoCmd.Close acForm, "Tên Form 2"
DoCmd.Close acForm, "Tên Form 3"
...
End Sub
Bạn điền hết tất cả các form trong cơ sở dữ liệu, nó sẽ đóng hết, cái nào chưa mở thì thôi (không bị lỗi), nhưng cách này lôm côm quá giống em bé học lớp 3
. Cũng như trên code trên bạn có thể bỏ phần if ... End if chỉ chừa DoCmd.Close acForm, XForm.Name, acSaveYes nó cũng đóng hết (chưa mở thì khỏi đóng), nhưng như vậy thì không giống yêu cầu, không được pro 
-
RE: CODE ĐÓNG HẾT CÁC FORM ĐANG MỞ
yamakashi2003 > 04-03-20, 12:52 PM
(02-03-20, 11:32 PM)tranthanhan1962 Đã viết: Thực ra còn có một các khác:
Em cám ơn bác ạ,
Sub modDongform()
DoCmd.Close acForm, "Tên Form 1"
DoCmd.Close acForm, "Tên Form 2"
DoCmd.Close acForm, "Tên Form 3"
...
End Sub
Bạn điền hết tất cả các form trong cơ sở dữ liệu, nó sẽ đóng hết, cái nào chưa mở thì thôi (không bị lỗi), nhưng cách này lôm côm quá giống em bé học lớp 3 . Cũng như trên code trên bạn có thể bỏ phần if ... End if chỉ chừa DoCmd.Close acForm, XForm.Name, acSaveYes nó cũng đóng hết (chưa mở thì khỏi đóng), nhưng như vậy thì không giống yêu cầu, không được pro
Tiện bác cho em hỏi sự kiện trên form, sự kiện On Load, On Current, On Open khác nhau như thế nào ạ,
Bác ví dụ dễ hiểu hộ em với, em trên microsof k hiểu do nó dùng ngôn ngữ của lập trình viên
Mà cái này chắc đơn giản nên e k tiện lập topic -
RE: CODE ĐÓNG HẾT CÁC FORM ĐANG MỞ
tranthanhan1962 > 04-03-20, 04:13 PM
(04-03-20, 12:52 PM)yamakashi2003 Đã viết: Em cám ơn bác ạ,
Event giờ thì người ta dĩch là sự kiện theo kiểu sự kiện lễ hội. Nhưng nghĩa trong access chính thức là sự cố, kiểu như bạn bị ai bóp cổ hay xe bị nổ bánh...
Tiện bác cho em hỏi sự kiện trên form, sự kiện On Load, On Current, On Open khác nhau như thế nào ạ,
Bác ví dụ dễ hiểu hộ em với, em trên microsof k hiểu do nó dùng ngôn ngữ của lập trình viên
Mà cái này chắc đơn giản nên e k tiện lập topic
Từ Event được dùng trong form hay report để xác định việc ai đó làm gì với form (report), và các đối tượng của nó hoặc form (report) và các đối tượng của nó tự làm một việc gì đó.
Theo thứ tự của các sự kiện mà bạn nói thì nó sẽ là: On Open, On Load, On Resize, On Activate, On Current.
On Open: Khi có lệnh mở form (Form, Report chưa hiển thị)
On Load: Sau sự kiện On Open form tải lên, lúc này form, report vẫn chưa hiển thị
On Resize: Nếu là sự kiện sau sự kiện On Load form lúc này chưa hiển thị. Sự cố On Resize là làm thay đổi kích thước và vị trí theo lệnh. Ngoài sự kiện On Resize sau sự kiện On Load bạn có thể xử lý sự cố này bất kỳ lúc nào.
On Activate: Lúc này form đã hiển thị trên màn hình, và đây là sự kiện form hiện hành (form bạn đang làm việc). Trong trường hợp nhiều form được mở thì form Activate là form đang nhận tiêu điểm (hiện hành, đang làm việc). Các form còn lại là form Deactivate. Sự kiện chuyển từ Form Activate thành Form Deactivate là On Deactivate.
On Current: Sự cố thay đổi record hiện hành trên form, Record đang được nhận tiêu điểm là CurrentRecord (Record hiện hành)
Tương tự:
On Close: Đóng form (Xoá form ra khỏi màn hình)
On Unload: Sự cố một form được đóng nhưng trước khi nó bị xóa khỏi màn hình.
Ngoài ra còn 2 sự cố On Got Focus (Nhận tiêu điểm xảy ra trước On Activate) và On Lost Focus (Mất tiểu điểm xảy ra trước On Deactivate). Do quá trình hoạt hộng của các sự cố rất nhanh nên thông thuờng chúng ta cũng không cần quan tâm việc đặt lệnh ở đâu miễn là người trần mắt thịt thấy nó OK là được. Lệnh Ở On On Open, On Load cũng giống như nhau (lệnh được thực thi trước khi nhìn thấy form). Tuy nhiên, trong những trường hợp form nặng mà máy yếu thì vẫn có thể thấy quá trình xảy ra.
Ví dụ trên form có hình ảnh nằm trong một Object Image có ControlSource là đường dẫn một ảnh full HD trên ổ cứng. Nều bạn gán đường dẫn ở On Open và sau đó có lệnh thay đỗi kích thức ảnh ở On Resize cho nó lớn hơn lúc thiết kế, bạn sẽ thấy Form có một ảnh nhỏ sau đó lớn lên theo đúng lệnh resize, Nếu gán đường dẫn ảnh vào ControlSource ở On Resize và dưới cùng sau các lệnh resize bạn sẽ thấy Object Image trống không có ảnh sau khi kích thước nó lớn lên bằng lệnh trên On Resize hình ảnh mới hiện ra. Tuy nhiên việc này chỉ xảy ra trên các máy yếu chứ máy bây giờ tốc độ xung của CPU rất cao nên khó phát hiện. Muốn thử nghiệm thì cố gắng tìm mấy cái máy 586,486 có tốc độ CPU dưới 100 Hz/s Chứ CPU Core i3 giờ cũng 3-4 tỷ hz/s mà chạy một lượt nhiều con thì không có cửa
-
RE: CODE ĐÓNG HẾT CÁC FORM ĐANG MỞ
yamakashi2003 > 04-03-20, 10:10 PM
(04-03-20, 04:13 PM)tranthanhan1962 Đã viết:
Bác ơi cho em hỏi tí trong combobox thuộc tính(04-03-20, 12:52 PM)yamakashi2003 Đã viết: Em cám ơn bác ạ,
Event giờ thì người ta dĩch là sự kiện theo kiểu sự kiện lễ hội. Nhưng nghĩa trong access chính thức là sự cố, kiểu như bạn bị ai bóp cổ hay xe bị nổ bánh...
Tiện bác cho em hỏi sự kiện trên form, sự kiện On Load, On Current, On Open khác nhau như thế nào ạ,
Bác ví dụ dễ hiểu hộ em với, em trên microsof k hiểu do nó dùng ngôn ngữ của lập trình viên
Mà cái này chắc đơn giản nên e k tiện lập topic
Từ Event được dùng trong form hay report để xác định việc ai đó làm gì với form (report), và các đối tượng của nó hoặc form (report) và các đối tượng của nó tự làm một việc gì đó.
Theo thứ tự của các sự kiện mà bạn nói thì nó sẽ là: On Open, On Load, On Resize, On Activate, On Current.
On Open: Khi có lệnh mở form (Form, Report chưa hiển thị)
On Load: Sau sự kiện On Open form tải lên, lúc này form, report vẫn chưa hiển thị
On Resize: Nếu là sự kiện sau sự kiện On Load form lúc này chưa hiển thị. Sự cố On Resize là làm thay đổi kích thước và vị trí theo lệnh. Ngoài sự kiện On Resize sau sự kiện On Load bạn có thể xử lý sự cố này bất kỳ lúc nào.
On Activate: Lúc này form đã hiển thị trên màn hình, và đây là sự kiện form hiện hành (form bạn đang làm việc). Trong trường hợp nhiều form được mở thì form Activate là form đang nhận tiêu điểm (hiện hành, đang làm việc). Các form còn lại là form Deactivate. Sự kiện chuyển từ Form Activate thành Form Deactivate là On Deactivate.
On Current: Sự cố thay đổi record hiện hành trên form, Record đang được nhận tiêu điểm là CurrentRecord (Record hiện hành)
Tương tự:
On Close: Đóng form (Xoá form ra khỏi màn hình)
On Unload: Sự cố một form được đóng nhưng trước khi nó bị xóa khỏi màn hình.
Ngoài ra còn 2 sự cố On Got Focus (Nhận tiêu điểm xảy ra trước On Activate) và On Lost Focus (Mất tiểu điểm xảy ra trước On Deactivate). Do quá trình hoạt hộng của các sự cố rất nhanh nên thông thuờng chúng ta cũng không cần quan tâm việc đặt lệnh ở đâu miễn là người trần mắt thịt thấy nó OK là được. Lệnh Ở On On Open, On Load cũng giống như nhau (lệnh được thực thi trước khi nhìn thấy form). Tuy nhiên, trong những trường hợp form nặng mà máy yếu thì vẫn có thể thấy quá trình xảy ra.
Ví dụ trên form có hình ảnh nằm trong một Object Image có ControlSource là đường dẫn một ảnh full HD trên ổ cứng. Nều bạn gán đường dẫn ở On Open và sau đó có lệnh thay đỗi kích thức ảnh ở On Resize cho nó lớn hơn lúc thiết kế, bạn sẽ thấy Form có một ảnh nhỏ sau đó lớn lên theo đúng lệnh resize, Nếu gán đường dẫn ảnh vào ControlSource ở On Resize và dưới cùng sau các lệnh resize bạn sẽ thấy Object Image trống không có ảnh sau khi kích thước nó lớn lên bằng lệnh trên On Resize hình ảnh mới hiện ra. Tuy nhiên việc này chỉ xảy ra trên các máy yếu chứ máy bây giờ tốc độ xung của CPU rất cao nên khó phát hiện. Muốn thử nghiệm thì cố gắng tìm mấy cái máy 586,486 có tốc độ CPU dưới 100 Hz/s Chứ CPU Core i3 giờ cũng 3-4 tỷ hz/s mà chạy một lượt nhiều con thì không có cửa
- AllowValueListEdits : No
có tác dụng gi ạ, em test thử mà không thấy thay đổi gì