ش | ی | د | س | چ | پ | ج |
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 |
نام جدول : Customers
فرض کنیم شامل 91 ردیف باشد.
Select Count(*) From Customers
لطفا بعد از مطالعه مطالب در نظر سنجی شرکت نُمائید
Ctrl+G را بزنید به صفحه ای منتقل خواهید شد در آن کد زیر را با علامت سوال برنید و نام جدول خود را جایگزین tblFoo نُمائید در کد اول تعداد ستون ها که ZeroBased هستند و کد دوم تعداد ردیف های جدولتون را بازیابی می کند
? CurrentDb.TableDefs("tblFoo").Fields.Count
13
? CurrentDb.TableDefs("tblFoo").RecordCount
11
? DCount("*", "tblFoo")
11
Forms!Orders.RecordsetClone.MoveLast
MsgBox "My form contains " _
& Forms!Orders.RecordsetClone.RecordCount _
& " records.", vbInformation, "Record Count"
البته اول از MoveFirst استفاده کنید بعد MoveLast و در اینجا از پراپرتی RecordCount برای شمارش استفاده شده بکار ببر ید چنانچه بکار بردن Dcount سخت تر یا دیر بازده است.
در مثال بالا به آخرین رکورد در مجموعه رکوردها که در فرم Orders است رفته و پیامی که حاوی تعداد رکوردها است را نمایش می دهد توسط باکس یا پنجره Msgbox
Dim rs as Dao.Recordset
Set rs=Me.RecordsetClone
With rs
.MoveFirst
.MoveLast
Msgbox .RecordCount
End With
Using a RecordsetClone is an easy way to manipulate records on a subform
استفاده از RecordsetClone یک راه آسان برای جمع آوری رکوردها در سابفرم است دوستان .