Tùy chọn
cách chạy form ngoài Desktop
- cách chạy form ngoài Desktop
-
cách chạy form ngoài Desktop
papito > 10-04-14, 10:50 AM
Cho mình hỏi, có cách nào đưa bản form(đã hoàn chỉnh) ra ngoài desktop được không vậy ?, lúc ở ngoài desktop thì nó như 1 chương trình riêng biệt (mặc dù nó vẫn lấy dữ liệu từ access) ?
Nếu ai biết thì chỉ mình nhé. -
RE: cách chạy form ngoài Desktop
hugox03 > 10-04-14, 01:07 PM
Đơn giản , bạn click chuột phải vào phần mềm của bạn . Tạo Create Shortcut , rồi lấy Create Shortcut vừa tạo bỏ ra ngoài desktop . Khi bạn click vào Shortcut ngoài desktop thì nó sẽ tụ chạy chương trình của bạn thôi !
-
RE: cách chạy form ngoài Desktop
papito > 10-04-14, 05:18 PM
ý mình nói là form trong access kìa bạn -
RE: cách chạy form ngoài Desktop
paulsteigel > 11-04-14, 01:11 PM
Những thứ bạn yêu cầu có thể thực hiện được nhờ can thiệp vào hệ thống. Sau đây là đoạn code trên mạng http://www.access-programmers.co.uk/foru...stcount=11
Xin sưu tầm về cho bạn.
Gọi hàm này trong sự kiện form_load nhé
Đưa đoạn hiển thị lại cửa sổ Access vào sự kiện Form_UnloadMã PHP:Call fSetAccessWindow(0)
Mã PHP:Call fSetAccessWindow(1)
Form chủ của bạn phải được để thuộc tính PopUp = Yes và Modal = Yes nhé
Đoạn code sau đây hãy đưa vào một Module
Mã PHP:Option Compare Database
Option Explicit
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)
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If Err <> 0 Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
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
fSetAccessWindow = (loX <> 0)
End Function -
RE: cách chạy form ngoài Desktop
papito > 11-04-14, 02:42 PM
mình làm giống bạn chỉ, khi mình tắt rồi mở lại access thì không vào được file access đó nữa, có cách nào mở file đó lên không bạn ? -
RE: cách chạy form ngoài Desktop
paulsteigel > 11-04-14, 02:52 PM
(11-04-14, 02:42 PM)papito Đã viết: mình làm giống bạn chỉ, khi mình tắt rồi mở lại access thì không vào được file access đó nữa, có cách nào mở file đó lên không bạn ?
Mình nghĩ bạn quên cái này:
Thủ tục này phải được đặt trong sự kiện Form_Unload để hiển thị trở lại màn hình access.Mã PHP:Call fSetAccessWindow(1)
Nếu không bạn bắt buộc phải dùng Task Manager để tắt phiên làm việc trước đó của Access rồi đưa lại thủ tục đã nói ở trên vào! -
RE: cách chạy form ngoài Desktop
papito > 11-04-14, 03:02 PM
không được luôn bạn ơi >"<, tắt bằng task manager rồi nhưng mở vẫn không lên, mở access mới rồi open nó vẫn không ra, có cách nào mở file đó lên lại không bạn, mình chưa copy nữa -
RE: cách chạy form ngoài Desktop
hugox03 > 12-04-14, 02:00 PM
-
RE: cách chạy form ngoài Desktop
MTNQ > 14-04-14, 12:31 AM
(11-04-14, 03:02 PM)papito Đã viết: không được luôn bạn ơi >"<, tắt bằng task manager rồi nhưng mở vẫn không lên, mở access mới rồi open nó vẫn không ra, có cách nào mở file đó lên lại không bạn, mình chưa copy nữa
Bạn đè phím Shift khi mở ứng dụng là được mà. Nếu phím Shift cũng bị khóa luôn thì tạo một file mới rồi import tất cả từ file cũ sang. Nếu VBA cũng đặt pass luôn không import được thì... chịu
