Làm sao ẩn hoàn toàn cửa sổ access

[tung99]

Các bạn cho mình hỏi: Trong file access, startup mình đã check bỏ tất cả các mục, Application icon cũng đã thay đổi bằng biểu tượng khác. Nhưng khi mở file thì nền Microsoft access cùng biểu tượng chiếc chìa khóa vẫn mở ra trước, sau đó khi form mở ra mới che khuất được nền access.
Vậy làm sao để ẩn hoàn toàn và người sử dụng không biết đang thực hiện trên access
Cảm ơn các bạn rất nhiều!

 

[vtvt]

Các bạn cho mình hỏi: Trong file access, startup mình đã check bỏ tất cả các mục, Application icon cũng đã thay đổi bằng biểu tượng khác. Nhưng khi mở file thì nền Microsoft access cùng biểu tượng chiếc chìa khóa vẫn mở ra trước, sau đó khi form mở ra mới che khuất được nền access.
Vậy làm sao để ẩn hoàn toàn và người sử dụng không biết đang thực hiện trên access
Cảm ơn các bạn rất nhiều!

Để bypass logo Access, ta tạo 1 new bitmap (BMP) and save vào cùng folder với database. Đặt tên file bitmap giống như database. Ví dụ:
C:\MyApp\SuperApp.MDB
C:\MyApp\SuperApp.BMP

 

[tung99]

Oh! Oh quá thú vị, mình không ngờ lại đơn giản như vậy. Cảm ơn bạn vtvt, bái phục, bái phục. Ngoài ra còn có cách nào dẹp luôn cái nền access màu xám xịt đó mà chỉ còn nền form thôi không bạn? Hay mình có thể đổi màu nền xám xịt đó thành màu khác tươi mát hơn không?

 

[vn6899]

Để bypass logo Access, ta tạo 1 new bitmap (BMP) and save vào cùng folder với database. Đặt tên file bitmap giống như database. Ví dụ:
C:\MyApp\SuperApp.MDB
C:\MyApp\SuperApp.BMP

Bác ơi, thế đối với access 2007 thì làm thế nào, bác có thể hướng dẫn chi tiết cho em được chứ.
Cảm ơn bác trước nhé!

 

[agribanktanphu]

Cái đó đơn giản thôi. Trên form main để lúc start đặt sự kiện Load
Private Sub Form_Load()
DoCmd.MoveSize 20, 20, 12000, 8000
End Sub
là nó load đầy màn hình. Muốn màu mè thì vào Option lựa chọn màu nền cho form "Main". Vấn đề thay biểu tượng access thì vào tool->startup trong khung Application nhấn brow để lựa chọn icon là nó lên ngay (nên bỏ icon vào cùng thư mục với chương trình)

 

[tung99]

Cái đó đơn giản thôi. Trên form main để lúc start đặt sự kiện Load
Private Sub Form_Load()
DoCmd.MoveSize 20, 20, 12000, 8000
End Sub
là nó load đầy màn hình. Muốn màu mè thì vào Option lựa chọn màu nền cho form "Main". Vấn đề thay biểu tượng access thì vào tool->startup trong khung Application nhấn brow để lựa chọn icon là nó lên ngay (nên bỏ icon vào cùng thư mục với chương trình)

Chào bạn!
Việc form load đầy màn hình mình cũng đã dùng sự kiện:
Private Sub Form_Load()
DoCmd.maximize
End Sub
Bạn quan sát nhanh sẽ thấy rằng trước khi form startup được mở ra thì nền access màu xám với chữ Microsoft access và biểu tượng chiếc chìa khoá được load qua trước. Ý mình muốn nói là che dấu cái nền đó không cho load qua luôn, và màu sắc mình cũng nói là màu của nền đó chứ không phải màu của form.

 

[imex40]

Tạo Module trong đó có cái này :

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3


Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)

'Phóng lớn window:
' ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Thu Nhỏ window:
' ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Ẩn window:
' ?fSetAccessWindow(SW_HIDE)
'Hiện window:
' ?fSetAccessWindow(SW_SHOWNORMAL)
'
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If Err <> 0 Then 'no Activeform
If nCmdShow = SW_HIDE Then
MsgBox "Cannot hide Access unless " _
& "a form is on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else
If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
End If
fSetAccessWindow = (loX <> 0)
End Function

Ở Startup Form :

- Set property : Popup= Yes
- Set OnOpen Even =fSetAccessWindow(SW_HIDE)

hoặc tùy chọn tham số để ẩn hiện MsAccess Windows :

Phóng lớn window:
=fSetAccessWindow(SW_SHOWMAXIMIZED)
Thu Nhỏ window:
=fSetAccessWindow(SW_SHOWMINIMIZED)
Ẩn window:
=fSetAccessWindow(SW_HIDE)
Hiện window:
=fSetAccessWindow(SW_SHOWNORMAL)

Chúc vui

 

[xuanhuy2010]

Các bạn cho mình hỏi với nha:
Vấn đề thay biểu tượng access thì vào tool->startup trong khung Application nhấn brow để lựa chọn icon là nó lên ngay (nên bỏ icon vào cùng thư mục với chương trình)
Vấn đề này thì khỉ thay đổi được biểu tượng icon khi mình mở Phần mềm lên thì đúng là biểu tương có thay đổi, nhưng biểu tương của File .mdb vẫn còn hình chiếc chìa khóa, ( VD: mình lưu ngoài Desktop File QuanLyNhanSu.mdb , File này vẫn còn hình chiếc chìa khóa)
Vậy do máy mình không thay đổi được hay chỉ thay đổi icon trong khung của sổ của Phần mềm Access thôi,
bạn nào có cách thay đổi được chỉ cho mình với, xin chân thành cảm ơn.
nick chát của mình là :muaphonui_2010
mail: muaphonui_2010@yahoo.com
minh rất muốn làm quen với các bạn đam mê access.

 

[domfootwear]

Chào bạn!
Việc form load đầy màn hình mình cũng đã dùng sự kiện:
Private Sub Form_Load()
DoCmd.maximize
End Sub
Bạn quan sát nhanh sẽ thấy rằng trước khi form startup được mở ra thì nền access màu xám với chữ Microsoft access và biểu tượng chiếc chìa khoá được load qua trước. Ý mình muốn nói là che dấu cái nền đó không cho load qua luôn, và màu sắc mình cũng nói là màu của nền đó chứ không phải màu của form.

Bạn vào bài sau tham khảo cách ẩn ứng dụng Access nhé
Làm cách nào để ẩn ứng dụng Ms Access khi khởi động 1 form

 

[tio361]

Ðề: Làm sao ẩn hoàn toàn cửa sổ access

Các bạn cho mình hỏi với nha:
Vấn đề thay biểu tượng access thì vào tool->startup trong khung Application nhấn brow để lựa chọn icon là nó lên ngay (nên bỏ icon vào cùng thư mục với chương trình)
Vấn đề này thì khỉ thay đổi được biểu tượng icon khi mình mở Phần mềm lên thì đúng là biểu tương có thay đổi, nhưng biểu tương của File .mdb vẫn còn hình chiếc chìa khóa, ( VD: mình lưu ngoài Desktop File QuanLyNhanSu.mdb , File này vẫn còn hình chiếc chìa khóa)
Vậy do máy mình không thay đổi được hay chỉ thay đổi icon trong khung của sổ của Phần mềm Access thôi,
bạn nào có cách thay đổi được chỉ cho mình với, xin chân thành cảm ơn.
nick chát của mình là :muaphonui_2010
mail: muaphonui_2010@yahoo.com
minh rất muốn làm quen với các bạn đam mê access.

bạn đã tìm được cách chưa hả bạn? cho mình học hỏi với?