Tùy chọn
[Demo P1] Code Ẩn tất cả mọi thứ, ngoại trừ Form+Report
- [Demo P1] Code Ẩn tất cả mọi thứ, ngoại trừ Form+Report
-
RE: Demo_Code Ẩn tất cả mọi thứ, ngoại trừ Form+Report
vulhu06 > 06-03-17, 04:13 PM
(12-09-15, 05:08 PM)maidinhdan Đã viết: Hôm trước mình có giới thiệu [Demo]_Code Kiểm tra Máy chủ tắt hay mở... và nhiều demo khác và thấy rất ít bạn có ý kiến gì nên kể từ Demo này trở về sau mình sẽ khóa code VBA, ai cần nghiên cứu sử dụng, liên hệ qua Email của mình.
Demo_Code Ẩn tất cả mọi thứ, ngoại trừ Form+Report
Công dụng:
- Ẩn mọi thứ, bạn chỉ nhìn thấy khi chạy form hoặc report ( nhìn giống như viết trên các ngôn ngữ lập trình VB vậy)
- Ẩn luôn biểu tượng tại Thanh Taskbar ( Chúng ta thường thấy khi mở nhiều form thanh Taskbar của Window sẽ ra rất nhiều dù chỉ có 1 ứng dụng Access, Khi xem video phía dưới chú ý cái này là sẽ thấy)
Khả năng ứng dụng:
- Làm cho ứng dụng ta thấy chuyên nghiệp hơn.
Hạn chế:
- Không áp dụng cho những ứng dụng có sử dụng thanh công cụ Menu Bar, ToolBar, hay Ribbon...
Code sử dụng:
1. Hàm ẩn Form
2. Hàm ẩn Report
3. Hàm đóng mở tự động các form/report
Video minh họa: 10 phút nửa post lên
Demo phía dưới
Hôm nay, chỉ làm được cái này. Mệt wá đi nằm nghỉ chút đây.
Hi anh!
1. Mình đã nhận demo cùng Pass VBA của chương trình. Mình cũng làm thử và áp dụng theo nhưng cứ báo lỗi thế này hoài ""Cannot hide Access unless a form is on screen", đôi lúc nó lại báo dòng code DoCmd.Close acForm, FormCandong, mình tìm tòi code hoài nhưng vẫn không được, ứng dụng mình có sử dụng Form Login. Nó chừa lại thẻ Home
2. Theo như bạn đã trả lời ở những bài trước, do Access không hỗ trợ việc ẩn form, File của mình là .mdb!
3. Cái file của bạn cũng .mdb, mình mở trên access 2013 vẫn đẹp tuyệt , tại sao của mình không được nhỉ?
Mong bạn giúp đỡ -
RE: Demo_Code Ẩn tất cả mọi thứ, ngoại trừ Form+Report
kutieu2016 > 10-04-17, 01:23 PM
Cho mình xin pass VBA với ạ: kutieu2016@gmail.com
Cám ơn nhiều ạ! -
RE: Demo_Code Ẩn tất cả mọi thứ, ngoại trừ Form+Report
kutieu2016 > 13-04-17, 01:31 PM
Em đã áp dụng vào file của em nhưng không hiểu sao khi open file chạy nó hiện:
[img]![[Hình: mD5e89.jpg]](http://imageshack.com/a/img924/610/mD5e89.jpg)
[/img]
Em không biết là còn thiếu bước nào nữa. Nhờ anh @maidinhdan và mọi người chỉ thêm cho em nhé!
Cám ơn nhiều ạ! -
RE: Demo_Code Ẩn tất cả mọi thứ, ngoại trừ Form+Report
maidinhdan > 13-04-17, 09:41 PM
Gửi cái file của bạn cho mình để mình xem, hình này báo là bạn làm không đúng công đoạn gọi code ẩn "Khong the An khi Giao dien Access dang duoc mo" -
RE: Demo_Code Ẩn tất cả mọi thứ, ngoại trừ Form+Report
kutieu2016 > 13-04-17, 10:53 PM
Nhờ anh xem thêm cho em nhé!
Link: http://www.mediafire.com/file/629bbqlj1x...n_Hien.rar -
RE: Demo_Code Ẩn tất cả mọi thứ, ngoại trừ Form+Report
maidinhdan > 14-04-17, 12:32 AM
(13-04-17, 10:53 PM)kutieu2016 Đã viết: Nhờ anh xem thêm cho em nhé!
Link: http://www.mediafire.com/file/629bbqlj1x...n_Hien.rar
Tôi thấy bạn có gọi hàm ẩn form để dùng đâu mà muốn nó ẩn
Sửa như sau:
1. Import 2 form trong Demo vao file của bạn là frmMain1, frmMain2
2. Mở form frmMain2 sửa lại như sau:
3. Chọn Tool Startup/ chọn frmMain1 chạy đầu tiênMã PHP:Private Sub Form_Timer()
Call AncuasoForm(0)
Call DongMofrm("frmMain", "frmMain2")
End Sub
4. form frmMain chọn Popup = Yes; Modal = Yes ( nhấn chuột phải chọn properties của form frmMain, ngay thẻ Other).... Tốt nhất là form nào cũng chọn như thế
* Lưu ý
+ frmMain của bạn nên tạo nút Thoát bằng Docmd.Quit ( Nếu không khi thoát ( close) Access sẽ không mở lại được ( ngoại trừ Restart/Shutdow máy).
+ Bạn không thể sử dụng hàm đóng mở của tôi ở sự kiện Form_Close được, nó sẽ báo lỗi.
Mã PHP:Private Sub Form_Close()
Call DongMofrm("frmMain", "frmDANHMUCHOIVIEN")
End Sub
Lý do lỗi: Form đã đóng rồi thì bạn lại gọi hàm này ra để đóng 1 lần nửa thì nó không hiểu.
* kHắc phục : 4 cách
- Tạo 1 nút nhấn mới dùng hàm DongMoForm
- hoặc chỉ gọi lệnh Docmd.Openform "frmMain" ở sự kiện Form_Close
- Hoặc chỉ ghi: DongMofrm("frmMain", "")
- Hoặc thêm 1 dòng vào hàm DongMofrm: On Error Resume Next
Mã PHP:Public Function DongMofrm(FormCanmo As String, FormCandong As String)
On Error Resume Next
If FormCanmo <> "" Then
DoCmd.OpenForm FormCanmo
End If
If FormCandong <> "" Then
DoCmd.Close acForm, FormCandong
End If
End Function -
RE: Demo_Code Ẩn tất cả mọi thứ, ngoại trừ Form+Report
tien1505 > 01-07-17, 11:06 AM
HI anh, nhờ anh share pass VBA để em ngâm cứu code này với nhé anh
Em cám ơn anh nhiều.
Email : Tienhoang.kg@gmail.com
, Thanks ! mail: goldandruby@yhahoo.com.vn