التحكم في بيانات جدولين أو أكثر من قاعدة بيانات

الحمد الله تم حل المشلكة ولكن بمقابل مشكلة أخرا !!

ألا وهي أداة Mshflrxgrid

المشكلة هي عدم إستطاعة المستخدم على تحديد السجل في الجدول أو الشكبة

أرجوا إجاد حل للمشكلة

وهل يوجد أداة بديل قوية كقوة أداة Mshflrxgrid

علما إني أستخدم مكتبة ADO

مواضيع ذات صلة

/index.ph...;hl=MSHFlexGrid

تحيااااااتي

Up

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

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

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

وجدول يحوي على مبالغ العلاج والنسبة التي تعطيها الشركة

والجدول الثالث يحوي على رقم واسم الشعبة التي يعملون بها المنتسبين

والجدول الرابع يحوي علة التواريخ التي تطبع فيها كل مجموعة تعويضات

المطلوب:

هو عند اعطاء تعويض لكل منتسب في الجدول الثاني يجب ان يقارن بالمبلغ المخصص الموجود في الجدول الاول لكل منتسب وذلك بعمل loop وعندما يكون مبلغ التعويض اكبرمن المبلغ المخصص يوضع البلغ المخصص بدله واذا كان اقل من المبلغ المخصص فقط يطرح منه ويقل شيء فشيء المبلغ المخصص فكيف اعمل هذه العملية بين الجدولين في واجه واحدة form واحد

اتمنى الاجابة على استفساري مع جزيل الشكر وخالص التقدير

أبو فهيد كتب:

الحمد الله تم حل المشلكة ولكن بمقابل مشكلة أخرا !!

ألا وهي أداة Mshflrxgrid

المشكلة هي عدم إستطاعة المستخدم على تحديد السجل في الجدول أو الشكبة

أرجوا إجاد حل للمشكلة

وهل يوجد أداة بديل قوية كقوة أداة Mshflrxgrid

علما إني أستخدم مكتبة ADO

الموضوع بسيط بس محتاج افهم ماالمقصود ( المشكلة هي عدم إستطاعة المستخدم على تحديد السجل في الجدول أو الشكبة) لكى اتمكن من مساعدتك

عفوا يا أخوان المشكلة حلت من فترة طويلة لكن معليش كان خطيئ لإني ما كتبت إن المشكلة حلت ...

المشكلة الأولى فكان حلها :

ضع هذا الكود في زر كوماند :

rs.Filter = "[No] = #" & Text1.Text & "#"

Text1.Text = ""


If rs.RecordCount = 0 Then
MsgBox "áÇíæÌÏ ÇáÑÞã ÇáÐí ÃÏÎáÊå"
Text1.SetFocus
Exit Sub
End If


'Call ViewRecord1
Call AddRecord
Call SetHFlexGridDataSource(MSH1, rs1)

في الميوديل : ضع كود إجراء AddRecord و SetHFlexGridDataSource

Public Sub AddRecord()

rs1.AddNew
 rs1![No] = rs![No]
rs1![Name] = rs![Name]
rs1![Time] = Time
rs1![Date] = Date

أما الإجراء SetHFlexGridDataSource فهي حل للمشكلة الثانية وسوف نأتي إليها

المشكلة الثاني فكان حلها :

أولا سبب المشكلة :

المشكلة تكمن فى أن تصميم MSHFlexGrid يشترط أن يكون عدد Rows أكبر من FixedRows (أو مساوى لها مجازاً) ، ولكن عندما يكون لا توجد سجلات فإن عدد Rows يساوى صفر وعدد FixedRows يساوى واحد ، وهذا هو الذى يسبب المشكلة.

ولتجنب ذلك والدوران حول هذه المشكلة يجب تجنب حدوث هذه الحالة وذلك بفحص هل توجد سجلات (Records) أم لا قبل ملئ MSHFlexGrid ،

حل المشكلة :

ضع في الميديول هذا الكود

Public Function SetHFlexGridDataSource(ByRef fg As MSHFlexGrid, ByRef adoRS As ADODB.Recordset) As Boolean


	If adoRS.EOF And adoRS.BOF Then
		fg.Rows = 1
		fg.Rows = 2
		fg.FixedRows = 1
		fg.Row = 0
	Else
		Set fg.DataSource = rs1
		fg.Row = 1
		fg.RowSel = fg.Row
	End If

End Function

وبكذا إنحلت كل المشكلتين

ويعطيكم العافية

تحياااتي