START_DATE and END_DATE

[jainson]

Hi,

Are those two some kind of key words or so in access VBA? I am trying to run a form and it has a line
StartDate = Form_Daily_BSReport.START_DATE
EndDate = Form_Daily_BS_Report.END_DATE

I was wondering if someone could let me know that.

Thanks

 

[Montez659]

I know that "Date" itself is a reserved word in Access, but the way that you present them, there should be no problem. I currently used startDate and endDate in a number of databases and have no problem with them.

Look at this for reference: http://office.microsoft.com/en-us/a...7-reserved-words-and-symbols-HA010030643.aspx

Are you getting an error on these lines of code?

 

[boblarson]

Look at this for reference: http://office.microsoft.com/en-us/a...7-reserved-words-and-symbols-HA010030643.aspx

Here's an even better reference:

http://www.allenbrowne.com/AppIssueBadWord.html

 

[Montez659]

Here's an even better reference:

http://www.allenbrowne.com/AppIssueBadWord.html

Much better! Thanks!

 

[jainson]

Hi,

Thanks for the responses.

So I have a huge table with records saved like in stacks. I was trying to create a filter in a form for dates, like a drop down menu from where user can select one or more than one date for which he wants the records, using a query or so. The query is quite simple using transform, select, from, where, group by and pivot by date so entered by the user.

But I am not able to create the filter. Any ideas on how to do that? I am trying to achieve this using a VBA Macro.

Thanks!

 

[boblarson]

You can use a listbox which can have all of the applicable dates by using a query from the table as its row source (have it use something like

Select Distinct DateFieldNamehere FROM tableNameHere ORDER BY DateFieldNameHere

and then you would need to set the listbox's Multi-Select property to either Simple or Extended and then you would iterate through to get the list to filter by:

Dim strWhere As String
Dim varItem As Variant
 
If Me.ListBoxNameHere.ItemsSelected.Count > 0 Then
 
   For Each varItem In Me.ListBoxNameHere.ItemsSelected
         strWhere = strWhere & "#" & Me.ListBoxNameHere.ItemData(varItem) & "#,"
   Next
 
   strWhere = "[DateFieldNameInTheFormsRecordset] In(" & Left(strWhere, Len(strWhere) - 1) & ")"
 
   Me.Filter = strWhere
   Me.FilterOn = True
 
Else
   Msgbox "No dates have been selected.", vbInformation, "Selection Error"
End If