مرحبا شباااااب
أنا جاي اليوم اعرض لكم آخر مشكله تواجهني في مشروووعي على الله الاقي حلها عندكم
الموضوع كالاتي :
أولا عندي كينونة اسمها تبرع حلو يتفرع منها Sup Class كينونتين
الاولى عينية والثانية نقدية حلوووووووو أبغى اعمل استعراض للبيانات اللي موجوده في
قاعدة البيانات أنا لما أضغط على الزر Next لاستعراض البيانات راح يطلع معاااي السجل التالي
في الكينونه الام (الكينونة تبرع) راح اقرأ أحد الحقووول في هذاالسجل وهو نوع التبرع
أذا كان نوع التبرع عيني سوف آخذ السجل التالي في الكينونة الاولى (عينية) واذا كان نقدي
راح آخذ السجل التالي للكينونة الثانية (نقدية) تمااااام وهذه الكينونات الثلاث لها مفتاح اساسي مركب واحد
وهو رقم الملف ورقم الصرفية (المساعدة)
الســـــــؤال :/ كيف يمكنني البحث عن المفتاح المركب المساوي لمفتاح الكينونة الرئيسية في احدى الكينونتين الفرعية
وهذا كود
AdoHelp.Recordset.MoveNext If TxtHelpType.Text = "نقدية" Then OptCash.Value = True OptComm.Value = False FrmCash.Visible = True FrmComm.Visible = False AdoCash.Recordset.Find "FileID = '" & LblFileID2.Text & "'", 0, adSearchForward, 1 AdoCash.Recordset.Find "HelpID = '" & LblHelpID2.Text & "'", 0, adSearchForward, 1 If AdoCash.Recordset.EOF Then AdoCash.Recordset.MoveLast Else LblFileID4.Caption = AdoCash.Recordset!FileID LblHelpID4.Caption = AdoCash.Recordset!HelpID TxtChequeID.Text = AdoCash.Recordset!ChequeID TxtAmount.Text = AdoCash.Recordset!Amount TxtChequeDate.Text = AdoCash.Recordset!ChequeDate TxtBankID.Text = AdoCash.Recordset!BankID TxtAccountNum.Text = AdoCash.Recordset!AccountNum End If ElseIf TxtHelpType.Text = "عينية" Then OptCash.Value = False OptComm.Value = True FrmComm.Visible = True FrmCash.Visible = False AdoCommItem.Recordset.Find "FileID = '" & LblFileID2.Text & "'", 0, adSearchForward, 1 AdoCommItem.Recordset.Find "HelpID = '" & LblHelpID2.Text & "'", 0, adSearchForward, 1 If AdoCommItem.Recordset.EOF Then AdoCommItem.Recordset.MoveLast Else LblFileID1.Caption = AdoCommItem.Recordset!FileID LblHelpID1.Caption = AdoCommItem.Recordset!HelpID LblGroupID2.Text = AdoCommItem.Recordset!GroupID LblItemID2.Text = AdoCommItem.Recordset!ItemID TxtItemName.Text = AdoCommItem.Recordset!CommName TxtReleasedQty.Text = AdoCommItem.Recordset!ReleasedQty End If End If
أنا عملت هذا الكود ولكنة لايعمل بالشكل الصحيح اتمنى أي واحد يقدر يساعدني مايتردد وشكرا للجميع