Replies

The report was designed to return total hours worked on each job, showing OrdT OT and T2 for a working week. I was trying to insert a subreport, linked by name, showing the start and finish times for each day of the week covered in the main report.

Gary,

Ive had a foulup here. Checked my private email while at work and your send with attachment was there, but it kept stalling at 99% downloaded, and when I got home it didn’t show up at all in my mail.

Would you mind trying one more time to my private address

I haven’t seen your email yet. try also abelcher@powerup.com.au

Thanks again, the KB article had the solution, all is now as it should be.

thanks for the direction . I will be trying it as soon as I get to work

Gary,
This whole idea for me is in the “It would be nice, let’s get some information” stage at the moment. As I mentioned in my original post, I do not have the programming skills needed to do this, I just know it can be done.

We used to use Project 95 and 1 guy used to sit all day updating the job status for the 50 or so jobs in the shop. The machine usage chart was used but it was felt that the time needed to manually input was not worth the results. (Considered “non productive” time)

I hate to seem like a freeloader, but I was sort of hoping that if you turned up the document you spoke of, that I could use that as the basis of my project and hopefully modify it from there. (I hope!)

I have been able to understand an example I got to input into word from access and modify it slightly to fit my requirements, but I would not have been able to write the procedure myself.

I have also discovered that the copy of Project 98 that is on my machine seems to be corrupt, and due to a company restucturing, I have no idea as to whether I can get hold of the CD to restore it.

I was waiting to see if you came up with anything before pestering the IT dept as to the whereabouts of a CD.

If it is beyond me, then a price for doing it would be my next question.

Thankyou Charlotte, for clearing up that point. I thought that would be the case, but with my lack of programming skills, lots of things I think impossible I find here on the forum as quite do-able.

Many thanks for the info Hans. I didn’t have acDataErrAdded, nor was I using acDialog. I have added both to my event and the whole process now works flawlessly (or so it seems).

The more I learn, the more I realize I need to learn

Just my 2c worth on this.

NOTE: I am no expert and am just thinking out loud for feedback!!!!!!

Would it work if you had 1 table for current employees and 1 table for inactive employees and and related the employees to the job table using a union query? That way, the new job form could be linked to the current employee table only but the job table would find all employees for history purposes.

Comments?

I solved it myself!

Ended up with:

Dim dbs As Database, rst As Recordset
‘ Return reference to current database.
Set dbs = CurrentDb
‘ Set search criteria.
‘ Create dynaset-type Recordset object.
Set rst = dbs.OpenRecordset(“tblQuoteNum”, dbOpenDynaset)

With rst
.Edit ‘ Enable editing.
[QuoteNum] = !QuoteNum
!QuoteNum = [QuoteNum] + 1
.Update ‘ Save changes.
End With

rst.Close
Set dbs = Nothing

Thanks for the help, it worked fine!

Pat,

I am using the command shown by HansV but without luck. I would like to try and use your method.

I’ve looked at the Edit Example in the help file, but I don’t understand.

.edit reads the value into the copy buffer, how do I refer to the copy buffer to paste the value into my form?

“tblQuoteNum” is a single record table with 1 number field called “QuoteNum” as suggested

This is what I have so far:

Dim dbs As Database, rst As Recordset
‘ Return reference to current database.
Set dbs = CurrentDb
‘ Set search criteria.
‘ Create dynaset-type Recordset object.
Set rst = dbs.OpenRecordset(“tblQuoteNum”, dbOpenDynaset)

With rst
.Edit ‘ Enable editing.
<>
!QuoteNum = [QuoteNum] + 1 ‘ Is this correct???
.Update ‘ Save changes.
End With

rst.Close
Set dbs = Nothing

Thankyou very much!

I’ve got the answer

objWord.windowstate = 0

causes the window to open in the default size

Just thought I would post the answer for interest sake

Thankyou so much!