bahbah

أخي ببساطة لأنه لا يوجد خاصية Orientation للداتا ريبورت :happy: لذى إمسح الكود

ممكن ترفق البرنامج ؟؟

ولكنه دائماً يتغير هذا الرقم !!!

أخي هل الـHandle هو رقم :sad: فإذا كان هذا هو فأنا قد وجدت الحل (قد يساعدك) وإذا أردت أيضاً إغلاقه فالكود أيضاً يقوم بعمليت إغلاقه ولكن بحسب اسم البروسس

نعم قد تكون المشكلة فيه أي أن هو قد يكون هناك مشكلة في الداتا ريبورت من حيث ربط قاعدة البيانات فالخطأ يقول لك أنه لم يعثر على data member

عبر ربط صندوق النصوص بقاعدة البيانات ثم رابط الدرس : إضغط هنا

هل هناك مشكلة في الداتا بيس أو طريقة ربطها بالداتا ريبورت :mellow:

مجرد فكرة : قم بعمل متغير يقوم بحساب العمود الرابع . أو قم بعمل متغير ينتقل من سطر إلى السطر الأخير ويقوم بحساب العمود الرابع كلما إنتقل إلى سطر مثال : Dim X As Integer X = 0 Data1.Recordset.MoveFirst 'ومثلاً مربع النص الخاص بـالعمود الرابع هو Text1.Text X = X…

تقول أنه لم يجد أحد Data Member أو Method لذلك تأكد من الداتا ريبورت قد يكون فيه خلل أو أرفق برنامجك

قد أشترك أن أيضاً :cool:

شكراً لك على توضيح إجابتي :blush: وكلامك صح أيضاً .... Memo بالإنجليزي و مذكرة بالعربي لأن أكسس الخاص بي عربي :happy:

الكود صحيح ولكن ضعي بعده هذا الكود TreeView1.SetFocus ولكنه فقط سيحدده لن يضغط عليه لذلك لن تظهر البيانات في مربعات النصوص

لو أردتي النص الخاص بهم : Label1.Caption = TreeView1.SelectedItem.Text لو أردتي الكي الخاص بالعنصر المضغوط عليه : Label1.Caption = TreeView1.SelectedItem.Key

وللتحديد الابن DataDiff TreeView1.SelectedItem = TreeView1.Nodes.Item(43)

كود فتح التصنيف دوال الوقت والتاريخ TreeView1.Nodes.Item(4).Expanded = True

لو ترفقين مثال يكون أفضل :blush: وسنعدل عليه إن شاء الله :cool:

لا ، لم يكن فصدي أنهم مرقمين ولكن كان قصدي أن تحسبي من 1 إلى العنصر الذي تريدين أن يحدده الكود فإذا كان العنصر رقم 10 تغيير رقم 1 في الكود إلى 10 أو مثلاً لو كان هذا العنصر في الأداة معرف بأنه Nodes كما في أول المشاركة سيصبح الكود هكذا : TreeView1.SelectedItem…

سيكون الكود هذا MsgBox(txt(Rnd)) :blush: نعم تستطيع هكذا أولاً التعريف سيكون : Dim txt(2) As String وتستبدل الرقم 2 بأي عدد تريد حسب عدد مكونات المصفوفة ملاحظة : 0 يعد رقماَ ثانياُ : تعريف مكونات المصفوفة هكذا : txt(0) = "mmg" txt(1) = "ali" txt(2) = "mohamedf…

مثلاً لو كان الكود هذا يعني إضافة عناصر للأداة Dim N As Node Set N = TreeView1.Nodes.Add N.Text = "asa" N.Key = "as" Dim X As Node Set X = TreeView1.Nodes.Add X.Text = "asa" X.Key = "aa" ونريد تحديد X سيكون الكود هذا TreeView1.SelectedItem = X أتمنى أني أفدتك …

الملف هو السور كود في المشاركة الثانية :happy: لم أجرب المشاركة الأولى :mellow: