بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'رسالة مزعجة وخطاء في الكود'.
تم العثور علي 1 نتيجه
-
السلام عليكم ورحمة الله انا قمت بنسخ هذا الكود في الميديول 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
