Recent content by Smee

I have the same issue and it is causing quite a problem. Compact and Repair works randomly, sometimes completing, othertimes stopping and giving the same error. In all cases it doesn't correct the error. Oddly, db1 which is creates for the compact, also doesn't get cleaned up and remains...

I use a query to change all the values to 1 if true and then sum... In the field value something like : New Field Name: IIf([Check Box field name],1,0) Hope that helps.:)

I don't know if it will help, but I use the Excel reference and the following code to connect to Excel. 'Excel variables required for Connection Dim xlapp As Excel.Application Dim xlbook As Excel.Workbook Dim xlsheet As Excel.Worksheet 'Connect to Excel Set xlapp = New Excel.Application 'Open...

Thanks for that :)

Does anyone know of a setting that would make the "analyze with excel" button on one users machine to be greyed out and unclickable, when it is fine for other users? Is it a permission setting? Maybe something missing from the install? Any and all help appreciated. Regards.

I'm sure someone will be along with a better answer than mine, but as I remember it you need something along the lines of: Time: (vb_short)[Times]![leaving time] - [Times]![Interval] That looks wrong, but I think you need to cast the result to type Short Time somehow. Apologies for my ramblings

I have an excel sheet, which is populated with data from various Access queries. The excel sheet has some conditional formatting set - but it doesn't provide all that I need. I need a way to manipulate and change the conditional formatting in Excel from the Access code. i.e. something along...

A copy of a small database that serves as a timesheet for each member of staff in my department did something bizarre today. :confused: :confused: Each member of staff has a local copy of it in their personal space, and they all update a central copy when they are exited. This morning one...

Hey, Just a few bits of code that might help with the recordset business Dim rs As DAO.Recordset Dim db As DAO.Database 'Connect to database Set db = CurrentDb 'Connect to recordset Set rs = db.openrecordset("Name of form") 'Check for empty recordset If rs.EOF Then 'Use flag to leap...

I saw this in this thread Maybe it is worth PM'ing SiE - see how he did it.

I often check out the database lock file by opening it in Word - it's not pretty but you can often see a computer id, or login name to identify people. Shift - rightclick the lock file and choose 'open with'. I haven't tried but it'd probably work with notepad, certainly notepad2.

Thanks Jack - very helpful. :)

Thanks Pat - excellent as always :)

Hey All, I've had a search for the last hour, but I haven't found anything for this topic. :confused: I have a query def (qdf) setup for query1 I want to change the criteria part of qdf.fields(0) from: =date() -1 to =date() - x : x will change in the code. I was hoping for something...

Does anyone have a solution to this one - I have the same requirement now. :confused: