Querying table with looping date finction

[ndrake]

Hello,

I am trying to do basically this, the actual SQL is much uglier but if someone can help with this I would be able to adapt it to that. Here is basically my VB:

Option Compare Database
 
Option Explicit
 
Function CreateDate()
Dim strSQL As String
Dim StartDate, EndDate, MyDate As Date
Dim rs As DAO.Recordset
StartDate = #1/1/2013#
EndDate = #1/31/2013#
CreateDate = StartDate
While CreateDate <> EndDate
CreateDate = CreateDate + 1
strSQL = "Select * from Sheet1" & _
"Where [Field2] = " & CreateDate
Set rs = CurrentDb.OpenRecordset(strSQL)
Debug.Print strSQL
Wend
End Function

Nick

[Rabbit]

Please use code tags when posting code.

I don't know what your question is. As far as the title of thread, "Querying table with looping date finction", you're already doing that. So I'm not sure what it is that you're having trouble with.

[ndrake]

Thanks for the edit. I will add the code tags in the future. The problem I am having is I get an error when executing. And the debug points to rs. When I remove the rs and really just try and output a value I don't have anything returned. I will post more information tonight about the problem but that is the jist of the issue

[Rabbit]

When you do, please post the full error message.