Search results

Hi Just realised I didn't post back on here about this... namliam, had to change the reference to 'x' at the end to be the route count, but other than that it was perfect. sql = "SELECT Max(RouteCount.CountOfROUTE) AS MaxRoutes " & _ "FROM ( " & _ "SELECT...

Hi I currently have 2 queries.. Query 1 select statement getting count of field Query 2 getting max of Query 1 Instead of the queries I want to do this in vba with a recordset ' Select from first query sql = "SELECT tblOriginal.ROUTE, Count(tblOriginal.ROUTE) AS CountOfROUTE " & _...

Hi Just thought I'd share another way a colleague suggested doing this... Achieves the same result but seems be tidier. In Table1 I've created a calculated field NEWFIELD: LEFT(Field,6) and then in Query1 Join the NEWFIELD with the Field in Table2 SELECT Table2.ORDDETTYPE...

Hi I think I know the answer but want to check. I've been asked to create a query, without querying a query first, but it's the only way I know. I have two tables Table1 will have data in a column that is 9 characters long ULCABC123 ULCABC124 ULCABC125 PLTABC123 PLTABC124 Table2 will have...

Excellent... Thank you. Thats sorted it.

Hi Yes password is correct and opens fine manually The database has been converted to 2013 format. (accdb)

BUMP! Can anyone help with this please?

Hi I thought I had this working but it isn't working when I have a password on the database The password is correct as I can open it manually I'm getting the error message "Not a valid password" Dim wrkspc As DAO.Workspace Set wrkspc = DBEngine(0) Set db =...

Hi I've found the solution in this link here http://answers.microsoft.com/en-us/office/forum/office_2010-access/use-dao-to-open-a-password-protected-access-2010/7193f26f-a275-e011-8dfc-68b599b31bf5 Here is the solution, I just needed to add the workspace. Dim wrkspc As DAO.Workspace...

Hi I've change my db to a accdb file and in my Excel (xlsm) file I am trying to use the open database (DAO method) I've changed the reference to: Microsoft Office 15.0 Access database engine It was working fine until I added a password to the database Here is the code: Set db =...

Hi Is this supposed to work with Win 7 and Access 2010 :banghead: In answer to my own question, yes it does... Although, it didn't work until I closed on reopened access. Thanks for code Nigel

Hi I'm using the code to hide the access window which is all great for the user point of view. However, when I restore it with this... fSetAccessWindow(SW_SHOWMAXIMIZED) I don't get any of the toolbars/ribbon back until I close and reopen access. Its not a major one, just an inconvenience...

This is excellent... so clean and efficient. Thanks for taking the time to help with this. A massive help and I'm sure lots of people will find it useful. Thanks again Kev :D :D :D

Hi, good tip... The annoying this was I was sure I asked a question about it a couple of years about it but couldn't find anything..

Hi Chris Thanks for this.. I've got that working now...:):cool: Last question on this I think. I wanted reduce the amount of times the event is called and prevent unnecessary updating of controls. In the section detail I've sorted it (I think this is the right way) Private Sub...

Hi I had tried to pass the form directly into the class and I created a new property UsrFrm which in my post above. So I pass it into the class like this Set newCmd = New clsEvents Set newCmd.UsrFrm = Me col.Add newCmd, Me.Name and in the class ive done this Public Property Set...

Hi, sorry for not getting back to you on this sooner... although it was messy I had bigger fish to fry... Anyway, just wanted to say thanks to you both for this. Perfect solution. :):):)

:)Ha, I did say it didn't feel right...:)

Hi I've got this code (which I can't remember where from now, but I don't claim to have done it). Basically I have a class event that works for all controls on any userform. Its all working fine but I can't add an event to trap the click or mouse move of the userform itself. Basically so...

I've kind of got round it but it doesn't feel right to do it like this... Basically, changed the name of the field to include a "%" symbol and the use instr to determine the existence of the percentage symbol. If InStr(1, rs.Fields(y).Name, "%") > 0 Then r.NumberFormat = "0.00%" Any better ideas?