Replies

Mark
Thanks for your efforts. I realise the error of my ways now (see my response to Charlotte)
Peter

Thanks Charlotte
It’s not the end of the world I can work around it.
Of course, what you say now makes perfect sense to me. I wonder why I didn’t see that in the first place? (You don’t need to answer that!!)
Peter

Mark
When I click the button on the menu form I want it to open the mainform by referencing a field in the mainform’s subform. Does that make sense?
Peter

Sorry folks – I should have explained better. Let me try again.
Db opens to a form which is a menu of choices with command buttons. I choose a set of books by clicking a button and opening what I originally called the mainform, filtered to the appropriate list (F, P or O). So if I press “F” I get the main form with all the authors [Author] for “F” and the subform of all the book entries for those authors (to add, amend or print).
So the code behind the button reads something like:
DoCmd.OpenForm “MainForm”, wherecondition:=”[Choice]=’F'”
At the moment [Choice] (F, P or O) is on the main form but I would like it to be in the sub form ( for good reasons which needn’t go in to). So the code could then read something like:
DoCmd,OpenForm “MainForm”, wherecondition:=”subform.form![choice]=’F'” but that doesn’t work.
I hope that’s clearer. Anyone help??
Peter

Charlotte
Thanks for your response. CCur() worked ( see Mark L’s rsponse)
Peter

Mark
Thanks a lot. That did the trick.
Peter

If you know how long the delay needs to be you can use this function:
Function Pause(ByVal nSecond As Single)
Dim t0 As Single
t0 = Timer
Do While Timer – t0 < nSecond
Dim dummy As Integer
dummy = DoEvents()
If Timer < t0 Then t0 = t0 – 24 * 60 * 60 ' if we cross midnight, back up one day
Loop
End Function
You pause the whole operation by 10 seconds for example by using Pause(10) at the appropriate point in the code.
Peter

If I understand you correctly, you have the printer set up as separate printers depending on whether you want upper paper tray or lower ( or whatever). If that is so a simple macro set up as a button on the command bar will do what you want. Something like this ( quickly thought thro and may be able to be refined):

Sub specialprint()
ActiveDocument.PrintOut Background:=False, Range:=wdPrintFromTo, from:=”1″, to:=”1″
ActivePrinter = “myBlankPaperPrinter”
ActiveDocument.PrintOut Background:=False, Range:=wdPrintFromTo, from:=”2″, to:=”100″
ActivePrinter = “myDefaultPrinter”

End Sub

Hope it works for you.
Peter

Ultimatezip’s autobackup will backup to any drive you can tell it. I don’t have a DLT (tape?) but if it has a drive label (E:, F: ?) then UZ will do it automatically thro Windows scheduler.
Peter

Francois
A final thanks.
It works great and I’ve even tweaked small parts of it. Nothing major of course in accordance with author’s instuctions
Peter

Ultimatezip (ultimatezip.com) is free and has an automation option to set up a backup file which you can then put in Windows scheduler. If you don’t need to zip a DOS batch file in scheduler will do the same thing
Peter

Thanks again Francois. I’m going to try it. The reason I’m doubtful is just that I don’t like to use code that I don’t fully understand. If I need to adapt it I can’t if I can’t work out what each step does.
Peter

Francois
Thanks for that. I’ve copied the code you pointed me to but it looks pretty complicated so I may stick to my inputbox until I understand it better.
It’s a good site for help and ideas. Thanks again
Peter

In any one file, you can set the defaults for that file as a whole, so that, for example, every time you open a new text box in it, it defaults to your text. Check the Help file. However you can’t change defaults overall which is a pain I agree. Older versions used to have a Normal.Pub I don’t know why they scrapped it

Give the file back and ask them to save it as a P98 from P2K. Then when they give it back you can do as you wish with it. If there’s nothing persona; in it any other friend with P2K can do it for you, just don’t pass them any viruses.
Peter