Close file after 3 minutes?

[wossname]

Why doesn't this code work...

Public Sub Document_Open()
 
Application.OnTime DateAdd("n", 10, Now), SaveAndClose
 
End Sub
 
Private Function SaveAndClose()
 
Me.Close True
 
End Function

It is supposed to close a file 10 minutes after it was opened, but instead the file closes instantly.

Also, why is VBA so lame?

[Ecniv]

Dunno if this is gonna work the way you want...
An API call to send the application to sleep, for five secs...


Vince

[wossname]

I need to be able to edit the file manually while it is still open.

Any ideas why this OnTime thing doesn't work?

[Ecniv]

Nope no idea sorry.

Had a look on the MS site, but nothing useful there.

Why would anyone want to delay their code after pressing a button to run something?? weird.

I did shove a doevents in before the time setting code, but it still executed immediately.
Possibly something that it depends on hasn't been set if its opened up and exppected to run.

<kicks ms office> useless.


Vince

[wossname]

I hate VBA.

I need this because we have a file on the LAN that everyone must edit every now and then, but only 1 person can have it open at any time. So if someone opens it and forgets to close it then everyone else is buggered, hence the timeout.

Seems like the function doesn't work or has become obsolete.

[DavW]

In the OnTime method, put the name of the procedure in double quotes. Change the Function to a Sub and it should work (set to 5 secs for testing!).

Public Sub Document_Open()
  Application.OnTime DateAdd("s", 5, Now), "SaveAndClose"
End Sub
 
Sub SaveAndClose()
  Me.Close True
End Function