وحدة نمطية لأخفاء اطار الاكسس ... كيف أجعله لأظهار الاطار

[Barna]

الاخوة الافاضل ..... السلام عليكم ورحمة الله وبركاته

لدي وحدة نمطية لأخفاء اطار الاكسس .... كيف أجله يظهر الأطار بعد اخفاءه ... أي يعمل العكس ...

Option Compare Database
Global Const SW_HIDE = 0
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
 loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function

 

[Hamdi Edlbi-khalf]

السلام عليكم 

(لقد أزلت الإجابة نظراً  لأن التعديل لا يعمل .)

آمل أن تجد بغيتك قريباً 

 

تم تعديل نوفمبر 16, 2018 بواسطه Khalf

[Barna]

26 دقائق مضت, Khalf said:

آمل أن تجد بغيتك قريباً 

جزاك الله خيرا على محاولتك وكتب الله أجرك

[Barna]

up

[محمد أبوعبدالله]

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

تفضل وحدة نمطية بسيطة للاخفاء والاظهار

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

 

تحياتي

[Barna]

منذ ساعه, محمد ابوعبد الله said:

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

تفضل وحدة نمطية بسيطة للاخفاء والاظهار

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

 

تحياتي

أشكرك أخي محمد .... الكود يعمل ميه ميه .... بارك الله فيك

[Hamdi Edlbi-khalf]

السلام عليكم

أخي

@Barna

كم نموذجاً لديك في قاعدة البيانات ؟

 

لدى التجربة تبين أن الكود الذي أستعمله و هو مماثل لطريقة الأستاذ @محمد ابوعبد الله

يخفي كامل القاعدة عند وجود أكثر من نموذج فيها 

تم تعديل نوفمبر 23, 2018 بواسطه Khalf

[Barna]

أشكرك أخي @Khalf على اهتمامك بالموضوع ... النماذج عددها 7 نماذج بارك الله فيك

[Hamdi Edlbi-khalf]

مرحباً أخي العزيز

لقد حاولت تجريب شتى الاحتمالات الممكنة 

و وجدت لدي وحدة نمطية تخفي النموذج دون أن يكون مشروطاً 

أما في خال استخدام الوحدات النمطية الموجودة في السؤال فيجب أن يكون النموذج مشروطاً و ذلك قد لا يلاؤم بعض التطبيقات .

طالما أنه عمل لديك فقد لبى طلبك و الحمد لله .