Recent content by piedpiper8

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