Tree _ شجرة العائلة

[jo_2010]

السادة الخبراء الافاضل 

اولا اهنئكم باقتراب المولد النبوى الشريف

ثانيا هل من الممكن فتح نموذج او تقرير من خلال الشحرة

وكيف يتم ذلك اريد عند الضغط على jo يفتح نموذج jo

عند الضغط على cash يفتح نموذج cash

ثالثا هل من الممكن عمل مربع بحث فى الشجرة لسهولة الوصول للشخص المطلوب

خالص الشكر

tree.accdb

تم تعديل سبتمبر 25, 2023 بواسطه jo_2010

[ابوخليل]

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

حينما اكتب كودا محكما يشتمل على حروف عربية .. حينما ارجع اليه بعد فترة لا يمكنني فهمه ولا ماذا يعمل

معذرة .. لا اكف عن طبعي في اسداء النصائح ، مع علمي بأنها ثقيلة على المتلقي .

على كل حال تم تحقيق طلبك بفتح النموذج المحدد بناء على العقدة

 

 

tree2.accdb

[عمر ضاحى]

اولا باعتذر عن التأخر فى الرد لظروف الشغل 

وبعد اذن استاذي / @ابوخليل اسمح لى بالمداخله هذه 

وهذا حل اخر يمكنك الاستفاده منه 

وطبعا افضل لك وانصح لك ان تتبع تعليمات استاذى فى عد ادخال اللغه العربيه 

فى مسميات الجداول والاكواد قدر المستطاع 

هناك مواضيع فى المنتدي تقدم دائما افضل النصائح للمبتدئين وانا عن نفسي اتعلمت الكثير منهم 

سائل المولى عز وجل ان يجعله فى ميزان حسناتهم 

tree.rar

[jo_2010]

معلمى الفاضل ابوخليل

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

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

استاذى عمر ضاحى

خالص الشكر لاهتمام حضرتك

مع العلم

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

 

تم تعديل سبتمبر 25, 2023 بواسطه jo_2010

[ابوخليل]

اتوقع ان الخلل في مركز التوثيق  عندك

قبل فتح اكسس انقر بالزر الايمن ثم خصائص وازل الحماية

ارفقت لك المثال مضغوط .. حتى لا تتم حمايته

جرب فك الضغط  وانقر نقرا مزدوجا على العقدة

tree2.rar

[jo_2010]

 الفاضل ابوخليل

اسف لازعاجك

تم تعديل سبتمبر 25, 2023 بواسطه jo_2010

[jo_2010]

الخبير الفاضل صاحب الافضال عليا      ابوخليل

حاولت تطبيق كود فتح النماذج على البرنامج الاصلى لكنة لم يعمل ممكن تصحيح الكود من فضلك خالص الشكر

شجرة TREE.accdb

تم تعديل سبتمبر 25, 2023 بواسطه jo_2010

[عمر ضاحى]

20 ساعات مضت, jo_2010 said:

معلمى الفاضل ابوخليل

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

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

استاذى عمر ضاحى

خالص الشكر لاهتمام حضرتك

مع العلم

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

 

الملف معي بيفتح النموذج من ضغطه واحده

بشكل طبيعي

ممكن تنظر للصورة القادمة

[عمر ضاحى]

اتفضل هذا الملف الخاص بك بعد التعديل

كان لا بد لك ان تراجع الكود واذا لم تفهم الفكره تكت لكى نشرح لك الفكره 

لان الغرض هنا فى المقام الاول لهذا الصرح العظيم هو التعليم اولا 

 

ما قمت بعمله هو كالاتى 

جعلت جميع نوع البيانات فى الجدول من نوع نص

قمت باضافة حقلين جدد 

وهو Other والمقصود منه Type بصراحة كسلت اعدلها ^_^ (اى نوع الفورم "هل هو نموذج ام تقرير")

واضفة ايضا ObjName اسم العنصر (اسم الفورم الذى سوف يفتح من الشجرة)

ثم قمت باضافة هذا الكود 

On Error GoTo HandleError
    Dim IDListObj, IDPriName As Double
    Dim strObjName, xOtheR As String
'هنا انا بحدد رقم المعرف للفورم من الشجرة لانه هيكون هو معياري
    IDListObj = Right(Me.TreeView2.SelectedItem.Key, Len(Me.TreeView2.SelectedItem.Key) - 1)

'        IDPriName = Nz(DLookup("[Code]", "[Family]", "[ID] =" & IDListObj & ""))
'انا هنا بحاول اوصل لاسم الفورم او التقرير المسجل فى الجدول الخاص ب الاسم المسجل فى الشجرة
        strObjName = DLookup("[ObjName]", "[Family]", "[ID]=" & IDListObj & "")
'هنا انا محتاج اعرف نوع العنصر ال هيفتح هل هو فورم ولا تقرير
        xOtheR = DLookup("[Other]", "[Family]", "[ID]=" & IDListObj & "")
'        MsgBox IDPriName & "  -  " & strObjName & "  -  " & xOtheR
'هنا الكود الخاص بعملية الفتح للنماذج او التقارير
If strObjName = "Close" Then
        Select Case MsgBox(Buttons:=vbYesNo + vbQuestion, Prompt:="هل تريد غلق البرنامج؟", Title:="تنبيه!")
        Case vbYes
            DoCmd.Quit acQuitSaveAll
        Case vbNo
            Exit Sub
        End Select
Else
        If xOtheR = "Report" Then
            DoCmd.OpenReport strObjName, acViewPreview
        ElseIf xOtheR = "Form" Then
            DoCmd.OpenForm strObjName, , , , , acDialog
        End If
    
End If

HandleExit:
    Exit Sub
    
HandleError:
    If err.Number = 0 Then
        Exit Sub
    ElseIf err.Number = 94 Then
'    MsgBox "لم يتم تسجيل اسم النموذج فى القائمه بعد؛؛؛"
    Exit Sub
    ElseIf err.Number = 2478 Then
    Exit Sub
    Else
        MsgBox err.Number & vbNewLine & vbNewLine & err.DESCRIPTION
    End If
    Resume HandleExit

 

 

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

شجرة TREE.rar

[jo_2010]

معلمى الخبير  عمر ضاحى

خالص الشكر لاهتمام حضرتك البرنامج يعمل مع حضرتك كما هو موضح ولكنة لا يعمل معى

 

شكرا على تعب حضرتك مع العلم البرنامج لايعمل معى لايفتح النماذج والا التقارير ولا close

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

خالص الشكر

ملحوظة الفاضل  ابو خليل

قال لى 

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

[عمر ضاحى]

5 دقائق مضت, jo_2010 said:

معلمى الخبير  عمر ضاحى

خالص الشكر لاهتمام حضرتك البرنامج يعمل مع حضرتك كما هو موضح ولكنة لا يعمل معى

 

شكرا على تعب حضرتك مع العلم البرنامج لايعمل معى لايفتح النماذج والا التقارير ولا close

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

خالص الشكر

ملحوظة الفاضل  ابو خليل

قال لى 

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

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

[jo_2010]

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

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

انا نشطت هذا الاصدار السادس فى المكتبة   ماذا افعل

 

[عمر ضاحى]

والله لا ادري ما السبب

الطبيعي انه يعمل جيدا معك

هل يظهر لك خطأ عند محاولة فتح الفورم

وهل جربت تضغط عليهم كلهم

انا حاليا بعيد عن الكمبيوتر علشان اقدر اساعدك

بالاتصال على كمبيوتر بالتيم فيور

لكن ننتظر رد الاخوة والاساتذة الكرام فى تجربة الملف لديهم

[jo_2010]

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

[عمر ضاحى]

لا ادري ما المشكلة لديك فى الكمبيوتر

 

 

[ابوخليل]

المثال عمل عندي على اكمل وجه

بالنسبة للحماية التي يعملها وندوز على الملف:

انقر بالزر الأيمن على ملف اكسس ثم اختر الخصائص انظر الصورة :

وضع علامة على خانة الاختيار ثم تطبيق / موافق

 

[jo_2010]

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

[عمر ضاحى]

7 ساعات مضت, jo_2010 said:

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

جرب تشغل اوفس 2016 نسخة 64بت

[عمر ضاحى]

وايضا انا جربت على وندوز 7 
وشغال تمام 

اعتقد ان المشكلة ممكن فى اعدادات اللغه عندك (محتمل)

[Eng.Qassim]

اعتقد المشكلة في اوفيس 2013

جرب 2007 او 2010

[jo_2010]

الخبير الفاضل Eng.Qassim

بالفعل قمت بتثبيت اوفيس 2016 والبرنامج يعمل بكفاءة شكرا لك