تعديل كود لاظهار واجهة الاكسيس

[خير الايمان]

السلام عليكم اساتذة منتدانا الكرام

المرفق يحتوي على نموذج ادخال لقاعدة البيانات اسم المستخدم access كلمة المرور 123

المطلوب من حضراتكم اخفاء واجهة الاكسيس وعند كتابى اسم المستخدم وكلمة المرور تعود واجهة الاكسيس للعمل مرة اخرى

تقديري

تعديل 1.rar

تم تعديل مارس 17, 2022 بواسطه خير الايمان
رفع المرفق

[Ahmed_J]

السلام عليكم

لازم تعمل نموذج اخر نموذج العمل بيفتح عند ادخال اسم المستخدم وكلمة المرور

حتة من تشغل نموذج الاول يفتح النموذج الثاني  ويختفي الاول وتختفي كل كائنات الاكسس

المهم تفضل مثال عن ذلك

اخفاء الاكسس.accdb

[خير الايمان]

استاذي اعزك الله

المشكلة دة كود اخفاء واجهة اكسيس

ption Compare Database
Option Explicit
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

في الوحدة النمطة

-------------

كود حدث فتح النموذج

Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (SW_HIDE)
End Sub

وهذا يقوم بعملة المشكلة انه بخفي الواجهة للاكسيس والنموذج وانا اريد ان يخفي النموذج ويفتح واجهة الاكسيس ولا اريد نموذج اخر

شكرا لحضرتك

 

[Ahmed_J]

السلام عليكم

حسب فهمي لطلبك

تفضل الملف بعد التعديل

اتمنى ان يكون المطلوب

test.accdb

[خير الايمان]

بارك الله فيكي

تمام 

دمت بحفظ الله وامنه