amir_adam83

مشاء الله تبارك الله ممتاز

ممكن استعلام دمج والله اعلا واعلم

السلام عليكم ورحمة الله وبركاته لدي قاعدة بيانات اكسس تم تطويرها بمساعدة الساده المشرفين المحترفين في منتدانا المحترم هل يوجد طريقه لعمل صلاحيات المستخدمين من خلال الشجره حيث ان الشجره تم تحميل كافة النماذج عليه ومن خلالها تستطيع التعامل مع البرنامج اولا: يوجد نموذج رئيسي ونموذج فرعي يحتوي على بيانات المستخدم والفرعي يحتوي على اسم الشاشه الاب والابناء والصلاحيات ثانيا:تم انشاء شجره النماذج داخل النموذج الخاص بصلاحيات المستخدمين ومن شاشة التي تحتوي على كافة النماذج ثالثا: عند الضغط على الشجره وفتح ملف رئسي داخل الشجر يفتح لي الابناء ومن ثم عند الضغط على شاشه يفتح لي النموذج المرتبط بها كالتالي نريد بدلا من ان يفتح لي النموذج ينقل اسم النموذج المطلوب فتحه باسمه كما هو مرتب في الشجره الى النموذج الفرعي الخاص بصلاحيات المستخدمين هل من طريقه لانشاء الصلاحيات لكافة المستخدمين على البرنامج مرفق البرنامج للاطلاع ODB_UserTree.rar

مشكور اخي الكريم ولكن ماسبب هذه الرسالة اليك البرنامج للمرجعه عليه ODB_Database.rar

السلام عليكم ورحمة الله وبركاته تم الاشتراك بالفعل كما تفضلت وشرحت لنا ولكن ظهر معي هذه رسالة الخطاء

بارك الله فيك بالفعل هو المطلوب وتم تعديله على البرنامج وهو لحد الان يعمل بصورة رائعه احسنت الله يجزاك خير استاذي الكريم أبو إبراهيم الغامدي الف تحيه وتقدير لك استاذنا الكريم مشكور كل الشكر والله يعطيك الف عافية يارب

هلا اخي واستاذي الكريم jjafferr نعم قمت بالتجربه ومحاولة تطبيقه على برنامجي ولكن لم يظبط معي حيث انني استخدم fSetAccessWindow (SW_SHOWMINIMIZED) fSetAccessWindow (SW_HIDE) فهو يتعارض مع التحديثات التي قدمتهالي ولذا ارفقت مثال للمشكله ODB21.rar

مشاء الله عليك سبع بمعنى كلمة سبع الله يحفظك

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

برجاء النظر لانتهاء البرنامج شكرا لكم

jjafferr أبو إبراهيم الغامدي السلام عليكم ورحمة الله وبركاته اساتذتي الكرام اعتزر منكم ولكن البرنامج معي لا يعمل عند تشغيله تلقائي بعد اضافة تشغيل كافة النماذج داخل النموزج الرئيسي ولكن في وضع فتح تحت التصميم يعمل معي بصوره رائعه ولكن تشغيل تلقائي يتعارض مع fSetAccessWindow (SW_SHOWMINIMIZED) fSetAccessWindow (SW_HIDE) برجاء مساعدتي حيث انتم من تعلمون بالحديث من بدايته شكرا لحسن تعاونكم

السلام عل السلام عليكم ورحمة الله وبركاته ارجو المساعده لاكمال مشروعي شكرا لكم جميعا بارك الله فيكم وجزاكم خير الجزاء

السلام عليكم ورحمة الله وبركاتة ظهرت لي مشكه عند فتح البرنامج بعد تطبيق عليه ماتفضلتوا علينا بمساعدتكم الكريمه اولا عند فتح البرنامج في وضع التصميم بالضغط على مفتاح شيفت يعمل بصوره تلقائيه مائه بالمائه ثانيا عند فتحه في الوضع العادي عند الضغط على اسم الشاشه داخل الشجره لا يفتح معي حيث استخدم 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

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

jjafferr بارك الله فيك استاذي الكريم هذا بالفعل هو المطلوب جزاك الله خير الجزاء أبو إبراهيم الغامدي بارك الله فيك استاذي الكريم هذا بالفعل هو المطلوب جزاك الله خير الجزاء شكرا لك الساده الاساتذه الكرم عل كل ماتقدمونه من علما ربي يسعد قلوبكم مثلما اسعتمونا بارك الله فيكم

اتفضل استساذي الكريم تم عمل نسخه مماثله لبرنامج ODB.rar

لا اخي الكريم فورم 1 ده الفورم الرئيسي عند فتح البرنامج اساسي هل لما تفتحه ، تغلق النموذج الذي فتحه ؟ لا اخي الكريم هو ثابت ولكن لا يقبل غير فتح نموذج واحد فقط بداخل واذا اردت فتح نموذج اخر عليه لايقبل الا اذا اغلقت المفتوح عليه ولكن المطلوب كما تفضل استاذي الكريم ابو ابراهيم اريد مساعدة في ربط هذا العمل بالشجره شكرا لكم

اخي واستاذي الكريم اسف على التاخر بالرد اعتزر منك هذا هو form1 ده رئيسي Form A Form B Form C نماذج فرعيه .form1 Pop Up>>>>>>>>>> yes Modal>>>>>>>>>>> yse وباقي النماذج الفرعيه(الابناء) نفس الشيء Pop Up>>>>>>>>>> yes Modal>>>>>>>>>>> yse

د.كاف يار jjafferr أبو إبراهيم الغامدي ابا جودى شكرا لكم وجزيل الشكر والاحترام لكم وجعله الله لكم في ميزان حسناتكم على ماتقدمونه لنا من علما نافعا بارك الله فيكم هذا هو المطلوب بالفعل هل يتم تطبيق هذا العمل على الشجره حيث ان نماذج البرنامج مرتبطه بجدول فيه كافة النماذج عن طريق استعلام وهو Private Sub Form_Load() On Error Resume Next '------------------------------------------------------------- Dim Dbs As DAO.Database Dim rst As Recordset Dim nodeX As Node TreeView0.PathSeparator = "_" Set Dbs = CurrentDb Set rst = Dbs.OpenRecordset("Tabl_Name_Foms_QueryTree", dbOpenDynaset) nodeX = TreeView0.Nodes.add(, , "A", "Alpha Skay System") With rst Do While Not .EOF Set nodeX = TreeView0.Nodes.add("A" & CStr(Nz(!NoDMin)), tvwChild, "A" & CStr(!NoFormsD), CStr(!NoFormsD) & "-" & !NameFormsE) nodeX.EnsureVisible .MoveNext Loop End With rst.Close Set Dbs = Nothing For Each nodeX In TreeView0.Nodes nodeX.Expanded = False nodeX.Sorted = True nodeX.BackColor = rgb(180, 243, 250) Next ChangeBackgroundColor TreeView0.Hwnd, rgb(180, 243, 250) '-------------- TreeView0.Font = "حمدين بولد" TreeView0.Font.Size = "11" 'TreeView RTL Call RTL_SetTree(Me, TreeView0) '-------------------------------------------------- 'TreeView RTL Call RTL_SetTree(Me, TreeViewAZ) End Sub الوحده النمطيه Option Compare Database Option Explicit Sub SortTabl_Name_Foms_QueryTree() On Error Resume Next Dim MaxOrder As Long Dim Digits As Integer MaxOrder = DMax("NoFormsD", "Tabl_Name_Foms_QueryTree") If MaxOrder <= 1 Then Exit Sub End If Digits = Len(MaxOrder & "") CurrentDb.Execute "Update Tabl_Name_Foms_QueryTree Set AccSort= " & _ "NoFormsD * (10 ^ (" & Digits & "- Len(NoFormsD)))" End Sub اسف على عدم رفع البرنامج لكبر حجمه هل اضيف الوحده النمطيه التي وضعها استاذي الكريمأبو إبراهيم الغامدي Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long وهل لكود واحد وفريد يتم وضعه داخل كود الشجره يقوم بمهام الاكواد هذه Private Sub Command0_Click() Dim result As Long Dim chwnd As Long DoCmd.OpenForm "form2" chwnd = Screen.ActiveForm.Hwnd result = SetParent(chwnd, Me.Hwnd) End Sub Or Private Sub Command2_Click() Dim chwnd As Long DoCmd.OpenForm "form3" chwnd = Screen.ActiveForm.Hwnd SetParent chwnd, Me.Hwnd End Sub بارك الله فيكم وشكركم جميعا

jjafferr بالطبط اخي واستاذي الكريم ولكنها تاتي لي بشكله صفحهpage ومثبته داخل الشاشه الرئسية متل ماذكرت في ما وضعته حيث ان لدي مما يتعدى 90 شاشه هل هي الطريقه ... بارك الله فيك على المساعده الكريمه منك