<div>
Before opening the Recordset, use:<br />
<br />
rsInvDetailStatus.CursorLo<wbr />cation = adUseClient<br />
<br />
This will enable you to use .RecordCount
</div>


Before opening the Recordset, use:

rsInvDetailStatus.CursorLocation = adUseClient

This will enable you to use .RecordCount

<div>
I am sure if you were to maintain your open questions, you would find experts more receptive. &nbsp;For the record:<br />
<br />
Questions Asked 19 <br />
Last 10 Grades Given A A B A A B A B B B &nbsp;<br />
Question Grading Record 11 Answers Graded / 11 Answers Received <br />
<br />
Anthony
</div>


I am sure if you were to maintain your open questions, you would find experts more receptive.  For the record:

Questions Asked 19
Last 10 Grades Given A A B A A B A B B B  
Question Grading Record 11 Answers Graded / 11 Answers Received

Anthony

<div>
<div class="content wysiwyg-content">
i am using a stored procedure to &quot;fill&quot; a recordset but the recordset.recordcount = 0 doesnt seems to work at all!<br />
anyone can point me into the right direction?<br />
<br />
sqlstr = &quot;up_Top_ABCD '&quot; &amp;&nbsp;period8 &amp;&nbsp;&quot;' &quot;<br />
<br />
Set rsInvDetailStatus = New ADODB.Recordset<br />
<br />
With rsInvDetailStatus<br />
&nbsp; .CursorLocation = adUseServer<br />
&nbsp; .Open sql66, frmMainMenu.db, adOpenKeyset, adLockBatchOptimistic, adCmdText<br />
End With<br />
<br />
If rsInvDetailStatus.RecordCo<wbr />unt = 0 Then<br />
&nbsp; errmsg = MsgBox(&quot;No matching records found!&quot;, vbCritical, &quot;No records found&quot;)<br />
&nbsp; Set rsInvDetailStatus.ActiveCo<wbr />nnection = Nothing<br />
<br />
else<br />
<br />
&nbsp;msgbox &quot;have records&quot;<br />
<br />
end if<br />

</div>
</div>


i am using a stored procedure to "fill" a recordset but the recordset.recordcount = 0 doesnt seems to work at all!
anyone can point me into the right direction?

sqlstr = "up_Top_ABCD '" & period8 & "' "

Set rsInvDetailStatus = New ADODB.Recordset

With rsInvDetailStatus
  .CursorLocation = adUseServer
  .Open sql66, frmMainMenu.db, adOpenKeyset, adLockBatchOptimistic, adCmdText
End With

If rsInvDetailStatus.RecordCount = 0 Then
  errmsg = MsgBox("No matching records found!", vbCritical, "No records found")
  Set rsInvDetailStatus.ActiveConnection = Nothing

else

 msgbox "have records"

end if


recordcount not working......

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.