إضافة بعض التعديلات على الكود المرفق

أم بشرى كتب:

السلام عليكم ورحمة الله وبركاته

أولاً كل العام وأنتم بأـلف خير بمناسبة قرب حلول الشهر الفضيل ربنا يقدرنا وإياكم أن نعطيه حقه

أرفق بهذا الطلب برنامج صغير أعددته

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

لاأريد استخدام Datacontrol بل أريد كود يتعامل مع الـ Recordset مباشرة

شكراً جزيلاً سلفاً

تركتكم في حفظ الله ورعايته

قد لا أكون قد وضحت طلبي جيداً لكني أحتاج مساعدة لمعرفة كيفية عمل كود السابق واللاحق في برنامجي دون استخدام datacontrol وخاصة عند تحديد البيانات وفق رقم معين مثلاً

وشكراً

اقتباس

أرفق بهذا الطلب برنامج صغير أعددته

أين المرفق ؟

ملاحظة : من الأفضل التخلص من الأدوات غير الضرورية ( مثل ActiveSkin ) قبل إرفاق المشروع ..

السلام عليكم ورحمة الله وبركاته

أخي المبرمج أحمد بارك الله فيك على تفاعلك وردك

أرجو أن تقييم طريقة برمجتي وتبين أخطأئي لكي أتفادها

وأريد معرفة كيفية إضافة كود السابق واللاحق بما يتوافق مع طريقة بحثي أو تعديلها حسب الأنسب ، بالإضافة إذا تكرمت تحديد أخطائي في التعامل مع التقارير

وستجد في الرسائل الخاصة بي مجموعة رسائل خطأ تواجهتني أرجو المساعدة في معرفة كيفية تفاديها

وشكراً سلفاً وكل العام وأنتم جميعاً بألف خير

بارك الله جهودكم ومساعداتكم

_____.rar

إليك الحل يأم بشرى

طبقية على برنامجك

Private Sub Form_Load()
'نقوم بفتح الجدول وعرض الحقول في مربعات النص
Set tb1 = db.OpenRecordset("tab")
	Call ViewRecord
End Sub


'في زر التالي
Private Sub Command1_Click()
	If Not tb1.EOF Then tb1.MoveNext
	If tb1.EOF And tb1.RecordCount > 0 Then
		tb1.MoveLast
	End If
	Call ViewRecord
End Sub

'في زر السابق
Private Sub Command2_Click()
	If Not tb1.BOF Then tb1.MovePrevious
	If tb1.BOF And tb1.RecordCount > 0 Then
		tb1.MoveFirst
		Exit Sub
	End If
	Call ViewRecord
End Sub

'دالة لعرض الحقول
Sub ViewRecord()
	If Not tb.RecordCount = 0 Then
		If Not IsNull(tb1![Field1]) Then Text1 = tb1![Field1]
		If Not IsNull(tb1![Field2]) Then Text2 = tb1![Field2]
	End If
End Sub

أرجو أن أكون وفقت في الاجابة على سؤالك

وتقبلي خالص تحياتي

abohamed كتب:

إليك الحل يأم بشرى

طبقية على برنامجك

Private Sub Form_Load()
'نقوم بفتح الجدول وعرض الحقول في مربعات النص
Set tb1 = db.OpenRecordset("tab")
	Call ViewRecord
End Sub


'في زر التالي
Private Sub Command1_Click()
	If Not tb1.EOF Then tb1.MoveNext
	If tb1.EOF And tb1.RecordCount > 0 Then
		tb1.MoveLast
	End If
	Call ViewRecord
End Sub

'في زر السابق
Private Sub Command2_Click()
	If Not tb1.BOF Then tb1.MovePrevious
	If tb1.BOF And tb1.RecordCount > 0 Then
		tb1.MoveFirst
		Exit Sub
	End If
	Call ViewRecord
End Sub

'دالة لعرض الحقول
Sub ViewRecord()
	If Not tb.RecordCount = 0 Then
		If Not IsNull(tb1![Field1]) Then Text1 = tb1![Field1]
		If Not IsNull(tb1![Field2]) Then Text2 = tb1![Field2]
	End If
End Sub

أرجو أن أكون وفقت في الاجابة على سؤالك

وتقبلي خالص تحياتي

الله يبارك فيك يأخي الله يجزيك خير ساجربه وأرد عليك

شكراً جزيلاً