هل استطيع ان اخفي شاشة اكسس ( الرمادية ) في برنامجي ؟

ألا يوجود رد يا اخوان ؟

اخي الكريم ابو عمر

سؤالك متكرر .. ولو بحثت في المنتدى لوجدت الحل

كل ما عليك هو ان تقوم بعمل وحدة نمطية جديدة New Modul وتضع فيها هذا الكود

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)
'Usage Examples
'Maximize window:
' ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
' ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
' ?fSetAccessWindow(SW_HIDE)
'Normal 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

ثم تغير في النماذج خاصية منبثق = نعم

شكلي او مشروط = نعم

وبس

اخوك حازم

هناك طرق مشروحة بالمنتدى بهذا الخصوص أخي قبل طرح سؤالك الرجاء استخدم محرك البحث في المنتدى ..

وهذا شرح لمشرفتنا العزيزة زهرة وفقها الله

اضغط هنا

شكرا لكما اخواي العزيزان : ابو رهف و حازم