إخوتي الاعزاء
هل يوجد في الفيجوال بيسك ActiveX يعمل مثل Subforms في الاكسس
او كيف أعمل Subforms مثل الموجود في الاكسس
كالصورة الموجودة في المرفقات
كيفية Subforms في الفيجوال بيسيك
فين الصورة ؟؟
جرب تعمل خطوات إضافة Form .. وبدل متختار Form إختار MDIForm
وضيف Form عادي وغير الخاصية MDIChild وخليها True .. طبعا في الـ Form العادي
وإذا مش عاوز تشتغل بالـ MDIForm و حابب تشتغل بـ API
Private Sub Form_Load()
SetParent Form2.hWnd, Form1.hWnd
Form2.Show
End Sub
Private Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
كده Form1 لما يفتح هتلاقي فيه Form2
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
عذرا
هذه هي الصورة بالمرفقات
أنت تريد أن تجمع القيم الموجودة داخل الحقول ؟
بطريقةٍ أفقيَّةٍ أو عموديَّةٍ ؟
------------
إذا كان هذا طلبك ، فتفضَّل برنامجي
لعلَّه ينفعك
مع تحيَّاتي لك
شكرأ للدكتور أنس عباس
ولكن ليس هذا المطلوب
المطلوب أنه عندي جدولين وبينهما علاقة اريد ان أعمل فورم رئيسي وبداخله Subforms كالموجود في الاكسس يكون الجدول الاول هو في الفورم الرئيسي والجدول الثاني في Subforms وان أقدر أن أحذف واضيف واتحكم في الداتا في Subforms وان يكون عبارة عن datasheet
او Forms Continus تماماً كالموجود في الاكسس
فهل يمكن أن نعمل ذلك في الفيجوال بيسيك او ان يتكون هناك اداة لذلك كالتي في الفيجوال بيسيك؟
وشكراً
أين الاخوة المبرمجينى شو القضية ألا يوجد حل
السلام عليكم...
نفرض أنك تستعمل المكون Adodc1 للاتصال بالجدول الرئيسي الذي يحتوي على الحقل ID كمفتاح أساسي. و أنك تستعمل المكون Adodc2 للاتصال بالجدول الفرعي (نفرض اسمه Table2) و الذي يحتوي أيضاً على حقل باسم ID كمفتاح أجنبي للربط مع الجدول الأول.
في معالج الحدث MoveComplete للمكون Adodc1 (الرئيسي) اكتب الكود التالي:
- Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.
Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) - Dim ID As Long
- If IsNull(pRecordset("ID")) Then
- ID = -1
- Else
- ID = pRecordset("ID")
- End If
- Adodc2.RecordSource = "SELECT * FROM Table2 WHERE (ID = " & CStr(ID) & ")"
- Adodc2.Refresh
- End Sub
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
للرفع
اخي يمكنك استخدام الداتا فيو او الداتا جريد .. او الفليكس جريد لعمل هذا النوع من النماذج .
ابحث في المنتدى ستجد العديد من الامثله لهذا الغرض ... اما بالنسبة للنموذج الفرعي Subform فهذه الخاصية غير موجودة في الفيجوال ويعتمد طريقة تنفيذها على المبرمج نفسه .
تحياتي
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------