Search results

Import multiple Excel workbooks into 1 Access table Hi everyone, Just want to say thanks to everyone who helped me on my last project. It is now in “production” and is running great. Now I have a new project and I would love your help. 1) I would like to use VB to import 3 different Excel...

My apologies... should of caught that. Anyways, everything is working as it should... thank you... I'm curious though, why doesn't it like dd/mm/yyyy?

Ok this is how the code looks like now: - It didn't work, still blank report. Private Sub Set_Filter_Click() Dim quote As String Dim strSql As String quote = Trim(" ' ") 'single quote If Filter1 <> "" Then strSql = strSql & " Employee = " & quote & Filter1 & quote & " AND " If Filter2 <> ""...

This line of code? : strSql = strSql & " [Date] >=#" & startDate & "# And [Date] <=#" & endDate & "# AND "

This worked... OMG thanks you both!!!!! Only one small problem left.... Filter by date works like a charm except when I use single digits for the "Day", perhaps this might happen for month as well - I will test. example.... I enter start date (dd/mm/yyyy) "10/10/2008" end date "31/10/2008"...

I'm sorry, misunderstood.

Ok this is confusing as when I try to change the date column in the table... an error comes up - it won't let me.

Thank you... we are getting close... Here is how the code looks like now. Private Sub Set_Filter_Click() Dim quote As String Dim strSql As String quote = Trim(" ' ") 'single quote If Filter1 <> "" Then strSql = strSql & " Employee = " & quote & Filter1 & quote & " AND " If Filter2 <> ""...

OMG!!!!!! - It works.... I would like to thank you so much!!! Now on to my next problem, I need to be able to filter the report by a dates, i.e. enter a range, example Oct 1 to Oct 10, and only show those results, of course with the variables seleted by the combo boxes. How do I begin?

Ok it now works... I mis-titled the combo boxes... it was labled cboFilter1, but should be only "Filter1" Im testing right now.

Ok, that worked... I no longer get the error - however, nothing happens now, the report does not get filtered????

It only works, and does not produce an error if this line of code is added (without it, I get the error) strSql = "ContactName = 'John Smith' AND " This is how the code looks now. Private Sub Set_Filter_Click() Dim quote As String Dim strSql As String quote = Trim(" ' ") 'single quote If...

This is how the code looks now: Private Sub Set_Filter_Click() Dim quote As String quote = Trim(" ' ") 'single quote If cboFilter1 <> "" Then strSQL = strSQL & " Employee = " & quote & cboFilter1 & quote & " AND " If cboFilter2 <> "" Then strSQL = strSQL & " Company = " & quote & cboFilter2...

I still get the same error????

I get an error with: strSQL = Left(strSQL, Len(strSQL) - 5)' Runtime error '5': Invalid proceedure call or argument

Ok I edited to the following code... so far so good, the errors are gone, but when I click on the "set Filter" button, nothing happens, no report by the variables I selected. Private Sub Set_Filter_Click() Dim quote As String quote = Trim(" ' ") 'single quote If cboFilter1 <> "" Then strSQL =...

Sorry, I didn't mean I don't want to try... I will... It's just that I don't understand code much. I take bits and pieces from the web and malipulate them to fit my needs... but I never do anything too complex... I'm I over my head here? - I will try your code.

Ah man... so that procedure outline by MS is not valid for Access 2007? - man, Im lost now... I need to use multi filters in a form with the ability to filter by date as well. Please advise! Thanks again. -Keith

Also, take a look at the atached file, it will be clear what I'm trying to accomplish... and thanks for looking into this!

Did you happen to follow the link I provided... it show all the steps outlined by MS to pass on variables to a report. :)