Replies

I’m sure it wasn’t that – I think maybe I’m losing my mind

Current all the files are accessed locally, my pc isn’t particularly slow (256MB RAM, 1GHZ processor) and the images aren’t large (3kb jpgs or 90kb bitmaps). There are only 10 records but I definitely see a fleeting glance of each dialog as the report – showing all records – opens.

If this was used for real, the files probably would be accessed across a network so I’m not sure how successful it will be.

However, I’m just testing the water with this idea at the moment – you may remember some very old posts I made about databases with OLE objects where we ended up with a monster db (only 200 records but nearly 500 MB in size).

Anything has to be better than that!

Firstly, thanks everyone for the prompt ideas.

Charlotte, I’d found your sample database before and it also behaves a bit oddly on my pc, except on the record with a bitmap of the yahoo logo.

So, I’ve just replaced the jpeg images I’m using with bitmaps and, guess what, yep, my database behaves fine – no mouse pointer skipping about. Now I’m really confused but I guess I can live with it – unless anyone has any others ideas that is.

Now to try to suppress the loading image dialogs

Thanks everyone

I’ve got report which uses a large custom paper size.

Through the ‘Page’ tab of the ‘Page Setup’ dialog, the report is set to use a specific printer, whose properties are then set to the desired size.

Trouble is, the report seems to keep forgetting this and reverts to using the default printer.

Any ideas whether this is due to Access or Windows?

Any help appreciated, this is driving me nuts.

Just tried the Access recovery tool demo from OfficeRecovery, works like a charm. Now I need to persuade someone to buy the full version.

Thanks everyone

Tried compact and repair but I just get the same message. There seems to be no way to get at the file.
The file is on a server, trouble is I don’t think our backups go far enough back to include a different version of the database.
I’m guessing the last time it was modified it got corrupted but its unlikely I’ll be able to get a backup of the database before this time.

Any opinion on whether it might be worth buying some recovery software?

Thanks All.

As ever a this is the place to come for sensible advice.

The database was written originally by myself in a blinding hurry for a specific job. It was pretty much the first database I did and it did the job, after a fashion.

Now, I think being the one responsible should’ve given me the right to make it clear that I thought it was inappropriate to use the same design again, let alone start ‘improving’ it. Unfortunately my opinion wasn’t wanted and a monster was created

Hence, said database was ‘modified’ beyond all recognition, being merged back together, with umpteen text fields changed to memos (ours it not to reason why) and the addition of an inappropriate number of OLE fields for storing drawings, bits of spreadsheets etc (these are the reason its got so big).

In a word, I wish I could wash my hands of it but I get the feeling things are going to get a lot worse befor they get better. Still, it should provide lots of work if all the tables need checking to look for corruption

Cheers. I think this will also come in useful for another database I’m working on.

Thanks, I didn’t really think there was any point but I’d got a bit confused.

However, on a similar note, I’ve mostly been using Autonumbers as key fields and a visible identifier to a record on forms on reports. Currently, I need to assign a sequential numeric ID value (Report_ID) to records associated with a particular client (ClientName) i.e the Report_ID is not unique in the table but would be for records with the same client name..

Any suggestions on the best approach. I was thinking of making ClientName and Report_ID both key IDs but would the user have to type the ID manually, with me writing code to check for duplication/prompting for the next number.

At the end of the day, the database doesn’t justify having a much time put into it, so if I don’t want to get into something that’ll be more complicated than I first thought.

Thanks Francois, I think that’s how the sample report I’ve seen does it, I just haven’t had chance to look at it properly yet.

My real question is would there be any point/would it be possible to do something similar on a form?

Thanks Wendell, it seems to work now.
Right now I don’t need options in the If isLoaded bit but its handy to see what to do when I need to do it in the future.

Regarding one of your previous comments about users saying ‘that’s cool’. If only!
Even if I manage to do anything bordering on ‘cool’ the users seem to think its something built in to Access, not appreciating the blood, sweat and tears I have shed . Still, I guess I can tell myself it’s cool.

OK, now I’m really baffled.
Does anyone have a better example of dealing with Not In List, using a popup form to input the new item. I beginning to think the example I’ve used is way over my head.

On the right track but so far off it it’s untrue.
I figured on using cboClientName.SetFocus and I’ve been trying it before I read your last post. Just can’t figure out where to put the thing.

Here’s the code I’m using (a function and event procedure triggered by the Not In List Event)

‘ From Access 2000 Developer’s Handbook, Volume I
‘ by Getz, Litwin, and Gilbert (Sybex)
‘ Copyright 1999. All rights reserved.

Private Function IsLoaded(strName As String, _
Optional lngType As AcObjectType = acForm) As Boolean
IsLoaded = (SysCmd(acSysCmdGetObjectState, _
lngType, strName) 0)
End Function

Private Sub cboClientName_NotInList(NewData As String, Response As Integer)
Dim mbrResponse As VbMsgBoxResult
Dim strMsg As String

strMsg = NewData & _
” isn’t an existing client. ” & _
“Add a new client ?”
mbrResponse = MsgBox(strMsg, _
vbYesNo + vbQuestion, “Invalid Client”)
Select Case mbrResponse
Case vbYes
DoCmd.OpenForm “frmClient”, _
DataMode:=acFormAdd, _
WindowMode:=acDialog, _
OpenArgs:=NewData

‘ Stop here and wait until the form
‘ goes away.
If IsLoaded(“frmClient”) Then
Response = acDataErrAdded
DoCmd.Close acForm, “frmClient”
Else
Response = acDataErrContinue
End If
Case vbNo
Response = acDataErrContinue
End Select

End Sub

If I try to put the line cboClientName.SetFocus anywhere in or after the Select Case bit it keeps re-triggering the Not In List event and the program is stuck in an unbreakable loop I can’t get out of !!

The form I am using is not in Data Entry mode, it allows additions, edits, deletions. i.e. the default settings.
I think I may have confused both you and Charlotte, mentioning my update query.
What this does is add a set number of rows to another table on the ‘many’ side of a one-to-many relationship with the site table. I need to add the same values everytime I add a new site. This is nothing to do with what is in the combo box (how do I include a link to previous postings on this subject?)
At some point in the future I may want to allow the user to choose from a list of values to be added – but that isn’t in the scope of this post. The query runs once, as a new record (After Insert) is added to the site table (by typing something on the form).

Without the combo oddity what happens is this.
I open the data entry form, type something, normally the site name (a new record is created), the After Insert event triggers a query, records are added to another table, which is then displayed via a sub form on another page on a tab control ( the subform wasn’t appearing at first until I added the [sfrmSiteReviewCriteriaDataEntry].Requery to the After Insert event).

If I use the combo box first to add a piece of information (the client name), the same thing happens, no problem. Hope you are with me so far.

What is wierd is if I add a new client name via the combo box, using the Not In List event. Even though a new client name is added to the right table and a new site record seems to be added, if I move to the page with the subform I can’t see anything (i.e it is blank, empty, no controls can be seen).

If I then enter some information (in any text box whose control source is in the main table) and move to the page with the subform I can see everything I expect.
Have just noticed something else. Not In List takes me to a popup form to add the new client. Clicking OK on that form closes it and the combo on the main form displays the new value but no control actually has the focus.
I’ve just clicked inside the combo box and this seems to trigger the query correctly.

As I said it also works ok if I have a text box displaying the ClientID. What I’m worried about is fudging something to make it work when I could be missing something simple. I don’t want to get into bad habits!!

Beast is the right word.