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

[amir_adam83]

10 hours ago, jjafferr said:

جرب هذا المرفق 🙂

هو كما بالرابط الذي اعطيتك في مشاركتي اعلاه 🙂

 

جعفر

1383.Drag_Forms.accdb.zip 107.96 kB · 1 download

jjafferr

بارك الله فيك استاذي الكريم هذا بالفعل هو المطلوب جزاك الله خير الجزاء

9 hours ago, أبو إبراهيم الغامدي said:

لم أقم بأي إجراء على شجرة البيانات..

لم أراعي ما يتعلق بنواة الأوفس 

المرفق بعد التعديل 

ODB.accdb 676 kB · 4 downloads

 

أبو إبراهيم الغامدي

بارك الله فيك استاذي الكريم هذا بالفعل هو المطلوب جزاك الله خير الجزاء

شكرا لك الساده الاساتذه الكرم عل كل ماتقدمونه من علما  ربي يسعد قلوبكم مثلما اسعتمونا بارك الله فيكم

[amir_adam83]

 

أبو إبراهيم الغامدي

بارك الله فيك استاذي الكريم هذا بالفعل هو المطلوب جزاك الله خير الجزاء

[amir_adam83]

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

ظهرت لي مشكه عند فتح البرنامج بعد تطبيق عليه ماتفضلتوا  علينا بمساعدتكم الكريمه

اولا عند فتح البرنامج في وضع التصميم بالضغط على مفتاح شيفت يعمل بصوره تلقائيه مائه بالمائه

ثانيا عند فتحه في الوضع العادي  عند الضغط على اسم الشاشه داخل الشجره لا يفتح معي حيث استخدم

fSetAccessWindow (SW_SHOWMINIMIZED)
fSetAccessWindow (SW_HIDE)

والمديول الخاص بها هو

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 PtrSafe 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
If nCmdShow = SW_HIDE Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
err.Clear
End If
Else
If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
End If
fSetAccessWindow = (loX <> 0)
End Function

شكرا لكم

مرفق البرنامج بعد التعديل وظهور المشكله

ODB21.rar

تم تعديل يونيو 3, 2021 بواسطه amir_adam83

[amir_adam83]

On 6/3/2021 at 1:31 PM, amir_adam83 said:

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

ظهرت لي مشكه عند فتح البرنامج بعد تطبيق عليه ماتفضلتوا  علينا بمساعدتكم الكريمه

اولا عند فتح البرنامج في وضع التصميم بالضغط على مفتاح شيفت يعمل بصوره تلقائيه مائه بالمائه

ثانيا عند فتحه في الوضع العادي  عند الضغط على اسم الشاشه داخل الشجره لا يفتح معي حيث استخدم

fSetAccessWindow (SW_SHOWMINIMIZED)
fSetAccessWindow (SW_HIDE)

والمديول الخاص بها هو

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 PtrSafe 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
If nCmdShow = SW_HIDE Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
err.Clear
End If
Else
If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
End If
fSetAccessWindow = (loX <> 0)
End Function

شكرا لكم

مرفق البرنامج بعد التعديل وظهور المشكله

ODB21.rar 71.35 kB · 5 downloads

[amir_adam83]

السلام عل

On 6/3/2021 at 1:31 PM, amir_adam83 said:

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

ظهرت لي مشكه عند فتح البرنامج بعد تطبيق عليه ماتفضلتوا  علينا بمساعدتكم الكريمه

اولا عند فتح البرنامج في وضع التصميم بالضغط على مفتاح شيفت يعمل بصوره تلقائيه مائه بالمائه

ثانيا عند فتحه في الوضع العادي  عند الضغط على اسم الشاشه داخل الشجره لا يفتح معي حيث استخدم

fSetAccessWindow (SW_SHOWMINIMIZED)
fSetAccessWindow (SW_HIDE)

والمديول الخاص بها هو

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 PtrSafe 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
If nCmdShow = SW_HIDE Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
err.Clear
End If
Else
If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
End If
fSetAccessWindow = (loX <> 0)
End Function

شكرا لكم

مرفق البرنامج بعد التعديل وظهور المشكله

ODB21.rar 71.35 kB · 7 downloads

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

ارجو المساعده لاكمال مشروعي شكرا لكم جميعا

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

[amir_adam83]

[amir_adam83]

jjafferr

أبو إبراهيم الغامدي

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

اساتذتي الكرام

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

ولكن في وضع فتح تحت التصميم يعمل معي بصوره رائعه

ولكن تشغيل تلقائي يتعارض مع 

fSetAccessWindow (SW_SHOWMINIMIZED)
fSetAccessWindow (SW_HIDE)

برجاء مساعدتي حيث انتم من تعلمون بالحديث من بدايته

شكرا لحسن تعاونكم

[amir_adam83]

On 6/8/2021 at 10:25 AM, amir_adam83 said:

jjafferr

أبو إبراهيم الغامدي

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

اساتذتي الكرام

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

ولكن في وضع فتح تحت التصميم يعمل معي بصوره رائعه

ولكن تشغيل تلقائي يتعارض مع 

fSetAccessWindow (SW_SHOWMINIMIZED)
fSetAccessWindow (SW_HIDE)

برجاء مساعدتي حيث انتم من تعلمون بالحديث من بدايته

شكرا لحسن تعاونكم

الرجاء بالتفضل بالنظر للموضع  لانهاء العمل على قاعدة البيانات

شكرا لكم

[amir_adam83]

On 6/8/2021 at 10:25 AM, amir_adam83 said:

jjafferr

أبو إبراهيم الغامدي

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

اساتذتي الكرام

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

ولكن في وضع فتح تحت التصميم يعمل معي بصوره رائعه

ولكن تشغيل تلقائي يتعارض مع 

fSetAccessWindow (SW_SHOWMINIMIZED)
fSetAccessWindow (SW_HIDE)

برجاء مساعدتي حيث انتم من تعلمون بالحديث من بدايته

شكرا لحسن تعاونكم

 

[jjafferr]

اخوي امير ، هل جربت تعمل البرنامج بالطريقة اللي اقترحتها عليك:

 

جعفر

[amir_adam83]

 

On 6/10/2021 at 10:48 AM, jjafferr said:

اخوي امير ، هل جربت تعمل البرنامج بالطريقة اللي اقترحتها عليك:

 

جعفر

هلا اخي واستاذي الكريم

jjafferr

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

fSetAccessWindow (SW_SHOWMINIMIZED)
fSetAccessWindow (SW_HIDE)

 فهو يتعارض مع التحديثات التي قدمتهالي

ولذا ارفقت مثال للمشكله

 

ODB21.rar

[أبو إبراهيم الغامدي]

في ٨‏/٦‏/٢٠٢١ at 10:25, amir_adam83 said:

jjafferr

أبو إبراهيم الغامدي

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

اساتذتي الكرام

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

ولكن في وضع فتح تحت التصميم يعمل معي بصوره رائعه

ولكن تشغيل تلقائي يتعارض مع 

fSetAccessWindow (SW_SHOWMINIMIZED)
fSetAccessWindow (SW_HIDE)

برجاء مساعدتي حيث انتم من تعلمون بالحديث من بدايته

شكرا لحسن تعاونكم

أعتذر عن التأخر في الرد،، وأرجو أن تكون الإجابة في هذا التعديل..

ODB21.accdb

[د.كاف يار]

10 دقائق مضت, أبو إبراهيم الغامدي said:

أعتذر عن التأخر في الرد،، وأرجو أن تكون الإجابة في هذا التعديل..

ODB21.accdb 724 kB · 0 downloads

 

كفوووو ما شاء الله عليك يا بو ابراهيم ابدعت

اتوقع انك مستخدم مكتبة ماهي موجودة عندي

[amir_adam83]

13 hours ago, أبو إبراهيم الغامدي said:

أعتذر عن التأخر في الرد،، وأرجو أن تكون الإجابة في هذا التعديل..

ODB21.accdb 724 kB · 4 downloads

بارك الله فيك بالفعل هو المطلوب وتم تعديله على البرنامج

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

أبو إبراهيم الغامدي

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