کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

شمارش تعداد رکوردها ( ردیف ها ) ی یک جدول یا کوئری توسط زبان SQL



نام جدول : 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 یک راه آسان برای جمع آوری رکوردها در سابفرم است دوستان .