[ تمت الإجابة ]التنقل بين السجلات في كائن ADO

اين اصحاب الخبرة لماذا لايوجد احد يرد على موضوعي هذا

يا استاذ مبروك

لقد خالفت قوانين المنتدى في المشاركات __ فقرة ( عنوان الموضوع )

وعلى شأنك خالفت القوانين أيضاً وسأرد عليك وعسى الإدارة ما تدري عن أنا ونت لأنها وضعت قوانين ويجب علينا جميع إحترام تلك القوانين لأن ذلك يعني إحترامنا لأعضاء الإدارة في الموقع وفي تلك القوانين الفوائد الكثيرة لنا جميعاً

الرجاء التقيد بضوابط المشاركات

اقتباس

اين اصحاب الخبرة لماذا لايوجد احد يرد على موضوعي هذا

لن تجد الرد لأن الجميع لا يشاركون في أي موضوع مخالف لأنهم يسعون جميعاً من أجل الرقي بالمنتدى

ولكن من أجلك سأرد عليك

إليك الشرح

في أعلى النموذج وتحت الكود التالي :

Option Compare Database

عرف المتغيرين التاليين :

Public rst As ADODB.Recordset  
Public intCount As Integer

قم بإنشاء كود لعرض البيانات في مربعات النصوص على النموذج كما يلي :

Private Sub MyRec()
	Dim strSQL As String
	strSQL = "SELECT * FROM tbl"

	Set rst = New ADODB.Recordset
	rst.CursorLocation = adUseClient
	rst.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockReadOnly

	With rst
		intCount = .RecordCount
		.MoveFirst
		showRecord .AbsolutePosition & " من " & intCount
	End With

End Sub

إنشي كود لعرض السجل الحالي ومجموع السجلات كما يلي :

Function showRecord(strRecordCount)
	With rst
		Me.Text0 = .Fields("No")
		Me.Text2 = .Fields("name")
		Me.txtCount = strRecordCount
	End With
End Function

للنتقال إلى السجل الأول أكتب الكود التالي:

   With rst
		.MoveFirst
		showRecord .AbsolutePosition & " من " & intCount
	End With

للإنتقال إلى السجل السابق أكتب الكود التالي :

 With rst
		.MovePrevious
		If Not .BOF Then
			showRecord .AbsolutePosition & " من " & intCount
		Else
			.MoveFirst
		End If
	End With

للإنتقال إلى السجل التالي أكتب الكود التالي :

 With rst
		.MoveNext
		If Not .EOF Then
			showRecord .AbsolutePosition & " من " & intCount
		Else
			.MoveLast
		End If
	End With

للإنتقال إلى السجل الأخير أكتب الكود التالي :

With rst

.MoveLast

showRecord .AbsolutePosition & " من " & intCount

End With

في حدث ( عند التحميل ) للنموذج استدع كود عرض البيانات أو على زر أمر كما في السطر التالي

Call MyRec

وإليك المثال بعد عمل اللازم

لك تحياتي

Mabrok.rar

ربي يطول في عمرك أخي الكريم

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

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة