خاصية maxrecords

حاولت مرارا استخدام خاصية "ماكس ريكوردز" ولكن يحدث معي خطأ في الاستعلام ، أو لا تظهر نتائج عن الاستعلام .

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

وذلك عند تغيير الرقم 10 في السطر التالي:

rstTemp.MaxRecords = 10 والاشارة إليه ليأخذ قيمته من خلال مربع نص في نموذج.

Public Sub MaxRecordsX() 

Dim rstTemp As ADODB.Recordset 

Dim strCnn As String

` Open recordset containing the 10 most expensive 

` titles in the Titles table. 

strCnn = "driver={SQL Server};server=srv;" & _ 

"uid=sa;pwd=;database=pubs" 

Set rstTemp = New ADODB.Recordset 

rstTemp.MaxRecords = 10 

rstTemp.Open "SELECT Title, Price FROM Titles " & _ 

"ORDER BY Price DESC", strCnn, , , adCmdText

` Display the contents of the recordset. 

Debug.Print "Top Ten Titles by Price:" 

Do While Not rstTemp.EOF 

Debug.Print " " & rstTemp!Title & " - " & rstTemp!Price 

rstTemp.MoveNext 

Loop 

rstTemp.Close 

End Sub

آمل التعديل على الكود حتى يقوم بالمهمة وشكرا لتعاونكم.