مشكلة إخفاء شاشة الأكسس

[ebrahim1400]

السلام عليكم ورحمة الله 

انا قمت بنسخ هذا الكود في الميديول 

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 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

عملت زر اظهار 

fSetAccessWindow SW_HIDE

وزر اخفاء

fSetAccessWindow SW_SHOWNORMAL

ولكن تواجهني مشكلة بأنه لم يتم الإخفاء او الإظهار بظهور رسالة الخطاء المزعجة 

لا اعرف ما هو السبب . واليكم المرفق 

وجزاكم الله الف خير 

data job - نسخة.rar

[Barna]

تفضل

data job - نسخة.rar

[ebrahim1400]

اخي العزيز نفس الوضع عند تشغيل البرنامج يظهر خطاء في المديول على كلمة Function

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

وفي نفس الوقت تظهر لي رسالة كالتالي :

compile error

the code in this project must be updated for ues on 64-bit systems please review and update declare statements and then mark them with the ptrsafe attribute 

اريد ان يختفي شاشة البرنامج بالكامل ويظهر النموذج فقط 

وفي نموذج الpassword يكون هناك زر اظهار شاشة الأكسس وزر اخر يخفي شاشة الأكسس اذا دعت الحاجة 

اسف على الأطالة ولك تحياتي ,,,,,

 

[Barna]

البرنامج يعمل لدي دون مشاكل ... جرب على جهاز اخر واعلمنا بالنتيجة

[Shivan Rekany]

على الرغم ان القاعدة الاعلاه بيعمل الطلوب

لكن اليك طريقة اخرى

اعمل كوبى باست هذا في وحدة نمطية جديدة

Option Compare Database

Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Sub HideAccess()
Call ShowWindow(Access.hWndAccessApp, 0)
End Sub
Public Sub ShowAccess()
Call ShowWindow(Access.hWndAccessApp, 5)
End Sub

وفي اي حدث تريد لاخفاء خلفية اكسس اكتب

Call HideAccess

ولاظهار اكتب

Call ShowAccess

اليكقاعدة على ذلك

 

اخفاء شاشة اكسس.rar

[ebrahim1400]

الف شكر لكم والله يجزاكم الف خير 

تم التنفيذ 

[samisab]

المشكلة عند اخفاء شاشة اكسس لا يعمل التقرير

فتظهر التقارير كشريط ..

الرجاء المساعدة في الموضوع عاجلا

 

[Shivan Rekany]

9 ساعات مضت, samisab said:

المشكلة عند اخفاء شاشة اكسس لا يعمل التقرير

فتظهر التقارير كشريط ..

الرجاء المساعدة في الموضوع عاجلا

 

اتفضل اليك هذا الرابط

 

[samisab]

شكرا جزيلا