كيفية فتح نموذج وتنفيذ أمر من شجرة Treeview

أشكرك أخي الكريم على مجهودك الكريم ... فقد وضعت كيفية استخدام شجرة البيانات بطريقة جيدة يمكن الرجوع إليها عند الحاجة ... كما أشكر مشرفتنا الغالية على فكرتها الرائعة و هي إمكانية كتابة بعض أكواد الأحداث يدوياً

اقتباس

تفضل اخي الكريم

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

عند اختيار اسم احمد يفتح النموذج الخاص به

وعند اختيار اسم محمد يفتح النموذج الخاص به

طريقة الـ Treeview تحتاج الى جدول خاص على شكل شجره

راجع الجدول وانظر كيف تم وضع الأسماء بتنسيق وترتيب معين

يمكن اضافة عنصر التحكم Treeview الى النموذج ولكن يحتاج الى وضع الكود اللازم له في حدث عند تحميل النموذج وهذه غير متوفره سوى في اكسيس 97 فقد كان في السابق تقوم بعمل اداة Treeview ويتم انتاج الكود اللازم معها مباشرة بدون ان تتعب نفسك اما في اكسيس 2000 او 2002 او 2003 فلا يوجد مثل هذا الكود ويجب عليك كتابته يدويا في حدث عند التحميل .

Private Sub TreeView2_NodeClick(ByVal Node As Object)
lblItemCode.Caption = ""
If Node.Key <> "Root" Then
   lblItemCode.Caption = Mid(Node.Key, InStr(Node.Key, "_") + 1)

	If Not IsNull(DLookup("[Form_Name]", "Items", "[ItemCode] = lblItemCode.Caption")) _
		And DLookup("[Form_Name]", "Items", "[ItemCode] = lblItemCode.Caption") <> 0 Then

		'لفتح أي شاشة فقط قم بإضافتها إلى الجدول ليتم فتحها من الشجرة
		DoCmd.OpenForm DLookup("[Form_Name]", "Items", "[ItemCode] = lblItemCode.Caption")

		'لتنفيذ أي أمر قم بإضافته إلى الجدول ليتم تنفيذه من الشجرة
		'مع ملاحظة رقم 103 الموجود في الشرط التالي، وهو رقم العنصر الموجود في الجدول
		'لذلك عليك بتكرار الشرط التالي مع تغيير الرقم لتنفيذ أي أمر أخر بعد إضافته للجدول
		ElseIf IsNull(DLookup("[Form_Name]", "Items", "[ItemCode] = lblItemCode.Caption")) _
		And DLookup("[ItemNUM]", "Items", "[ItemCode] = lblItemCode.Caption") = 103 Then

		Dim intResponse As Integer
		Dim strPrompt As String

		strPrompt = "هل تريد إغلاق النظام بالفعل؟"

		intResponse = MsgBox(strPrompt, vbMsgBoxRtlReading + vbYesNo, "إغلاق")

		If intResponse = vbYes Then
			DoCmd.Quit
		Else
			Cancel = False
		End If
	End If

End If
lblPath.Caption = Node.FullPath
End Sub

أشكرك على إضافتك وجزى الله الجميع الخير لما فيه الصالح لنا

هل لا يوجد متفاعلين أو مستفيدين؟

أين الردود؟

نرجو منكم ترك تعليقكم وتجاربكم، ربما يكون هناك ما يمكن إضافته.

مثال مفيد وجميل جزاك الله خيرا ، لا ينقصه سوى قائمة مختصرة لإضافة ابن جديد من نفس الشاشة

على كل حال مجهود رائع بارك الله فيك وبجهودك

عمر عبد العزيز كتب:

مثال مفيد وجميل جزاك الله خيرا ، لا ينقصه سوى قائمة مختصرة لإضافة ابن جديد من نفس الشاشة

على كل حال مجهود رائع بارك الله فيك وبجهودك

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

وأرجو من الأعضاء من رآى أنه يمكنه أن يقوم بالتعديل فعليه به، ومن له أي ملحوظة أخرى فليرفعها حتى تعم الفائدة.

نسألكم الدعاء ...

ASILIEM_TV_OPEN_FORM_EXECUTE_CMD.rar

بجد جميل جدا الموضوع