مشکل عبارت sql چیست؟

[mohammadsaleh]

سلام
در فایل ضممیمه جهت شمارش تعداد پیامهای خوانده نشده از عبارت sql استفاده شده. اما عدد صحیح نشان داده نمی شود. علت چیست؟

[m.roustaei]

سلام
مشکل اینه که Query شما قبل از اینکه تا پایان خوانده شود شما درخواست شمردن رکوردها را اجرا کرده اید. کافی است دستور rs.MoveLast را قبل از سطر آخر اجرا کنید.



Dim rs As Recordset
Dim dbs As DAO.Database
Set dbs = CurrentDb
Dim intCount As Integer
Dim SQL As String
SQL = "SELECT * FROM message WHERE reciver='Abed.Ma' and read=0;"
Set rs = dbs.OpenRecordset("Select ID From message")
rs.MoveLast
MsgBox rs.RecordCount

[mohammadsaleh]

سلام دوست عزیز
ممنون