عمل كمبو بكس يفلتر كمبوبكس اخر وإعادة ترقيم التقرير

اخ yah460

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

اقتباس

2-اريد اثنين كمبو بوكس الاول يفلتر الثاني كما في المثال بس عن طريق الجداول في قاعدة البيانات تم عملها ولكن <_< ليس عن طريق الجداول.

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

	'HnHn : جملة الاستعلام
	rs.Open "SELECT * FROM [الجدول] WHERE [اسم الحقل] = '" & (combo1) & "' " & "", db

'HnHn  اذا تحقق الاستعلام قم بوضع البيانات في الكمبو 2 
If rs.RecordCount > 0 Then

'HnHn : تنظيف الاداة قبل ملئها بالبيانات 
Combo2.Clear
With rs
   Do Until .EOF
	  Combo2.AddItem !name	   
	  .MoveNext 'Next Record

	  DoEvents 

Loop   
	   End With


end if

اقتباس

3-كيف يكن اضافة داتا قريد او فلكس والتحكم بها عن طريق الاول والتالي وهكذا وتتغير معها البيانات التى في مربعات النص.

استخدم اداة MSHFlexGrid ووجه لها الشفرة التالي عند اي حدث تريد أن تظهر التغيرات فيه

	'HnHn : عرض البيانات المفروزه  في الاداة
	Set MSHFlexGrid1.DataSource = rs

اتمنى ان اكون وفقت

شكرا اخي على ردك السريع

بالنسبة للكمبو بكس استخدمت كود لك في احدى مشاركتك والحل بالمرفق.

واما الفلكس فاستخدمت كودك الذي في الاعلى وهو Set felxGrid2.Datasource=rs ولكن لم تتأثر عند التحريك للاما او الخلف او اخر سجل فما رأيك

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

' تحديث قيمة حقل الترقيم و تعبئته بالصفر

rs.Open "UPDATE DATA SET DATA.ID = 0;", db, adOpenKeyset, adLockPessimistic

' استعلام للجدول مع انشاء حقل فارغ لنقوم بتعبئته لاحقاً برقم مسلسل

'rs.Open "SELECT Num, Name FROM MainTable;", db, adOpenKeyset, adLockPessimistic ', adLockBatchOptimistic

Call OpenTable

rs.MoveFirst

Dim Count As Integer

Count = 0

' تكرار مالم نصل لنهاية السجلات

While rs.EOF = False

Count = Count + 1

' تعبئة الحقل رقم واحد بقيمة عداد

rs.Fields(0).Value = Count

rs.Update

rs.MoveNext

Wend

Set DataReport1.DataSource = rs

'هذا الامر لاظهار التقرير

DataReport1.Show 1

'وهذا الامر لطباعة التقرير مباشرة

'DataReport1.PrintReport False

'تحياتي لك

End Sub

وشكرا مجددا اخي الكريم

_______TELEPHONE.rar