Recent content by Waabs

I just tested it and that is how it works. If you input 13/7/2005 (dd/mm/yyyy) it goes in correctly and appears in the table as 13/7/2005. If you input 12/7/2005 it gets swapped to 7/12/2005.

It was the SQL statement. It was really strange though. I copied the SQL into the query window (and edited out all the unnecessary VB parts) and at first thought that it didn't work. However it was just that it ran excessively slowly. The strange part is in the module it would cause Access...

It's quite possible that my code is wrong. It's been a while since I've looked back at the reason I created it the way I did. I think I recall that Access only changed the dates under the circumstances in which I created the code. So it was right for 12/7/2005 to become 7/12/2005 and...

Ok I tried those two things and niether fixed it. I've now checked every single module that has this fault and the common thing among them is that they all involve an SQL Union. The code that I left out of my original post (the sql statement) is: sqlStat = "SELECT ClientA.ClientID...

Could you give a bit more detail about what you're trying to do?

Yes. The distinct generally applies to the whole select statement. That's why you can't do something like: Select FirstName, Distinct SecondName, Address, Distinct DOB ...

I'm not 100% clear about what you're asking but I think this might help: SELECT DISTINCT Name, ID FROM TestTable Name ID John 1 John 2 John 3 The returned records are distinct because no combination of Name and ID is the same. Hope this helps.

Here's a piece of code I use for just this problem: Dim daypart As Integer Dim monthpart As Integer Dim yearpart As Integer 'breaking apart the dates daypart = DatePart("d", theDate) monthpart = DatePart("m", theDate) yearpart = DatePart("yyyy", theDate) 'doing a check for dates like...

Thanks for the replies. I will give these ideas a go however I don't think they are the problem. I've got numerous other modules where I have used: Dim rst, rst2 As DAO.Recordset and "row" I am extremely desperate so I'm willing to try anything at the moment! No matter how illogical it...

The code below is from a project that outputs a lot of data from recordsets to Excel. When I run this piece of code and various others I get the error message: Run-time error '-2147221080 (800401a8)' Method of 'Cells' of object '_Worksheet' failed I've tried copying the code into another...

Ok it's a code module so you can have your non US dates put into SQL and work as you want: Dim daypart As Integer Dim monthpart As Integer Dim yearpart As Integer 'breaking apart the dates daypart = DatePart("d", theDate) monthpart = DatePart("m", theDate)...

I've made a function that sorts that right out. I can't remember the specifics of it but there is a logical way to swap the months and days that will always get it to the format you want.