> Yes but it requires some coding and a new table with fields "Value" and
> "Type".   Here is the code I use in the main form's timer event which you
> may be able to adapt.  Post back if you need any explanation.
>
> Keith.
> www.keithwilby.com
>
> Private Sub Form_Timer()
>
>     On Error Resume Next
>     Dim db As DAO.Database
>     Dim rs As DAO.Recordset
>     Dim dtmTimeOut As Date
>     Dim varType As Variant
>     Dim varValue As Variant
>
>     Set db = CurrentDb()
>     Set rs = db.OpenRecordset("qtblShutdown")
>     Do While Not rs.EOF
>         varValue = rs!Value
>         If Not IsNull(varValue) Then
>             Select Case rs!Type
>             Case "User"
>                 If varValue = fOSUserName() Then
>                     DoCmd.OpenForm "fdlgShutdown", , , , , acDialog
>                     mfTimedOut = True
>                     DoCmd.Close acForm, Me.Name
>                 End If
>             Case "Computer":
>                 If varValue = fOSMachineName Then
>                     DoCmd.OpenForm "fdlgShutdown", , , , , acDialog
>                     mfTimedOut = True
>                     DoCmd.Close acForm, Me.Name
>                 End If
>             Case "Time"
>                 dtmTimeOut = varValue
>                 If mdtmTime < dtmTimeOut And Time > dtmTimeOut Then
>                     DoCmd.OpenForm "fdlgShutdown", , , , , acDialog
>                     mfTimedOut = True
>                     DoCmd.Close acForm, Me.Name
>                 End If
>             End Select
>         End If
>         rs.MoveNext
>     Loop
>
> End Sub
>
>
>

"Keith Wilby" wrote:

> "Rpainter" <Rpain***@discussions.microsoft.com> wrote in message
> news:4D09B6AE-DD2F-4028-B713-3EBA2D63C3C7@microsoft.com...
> > Thanks for your help.  First off, I'm not familiar with Basic.  I'm a
> > COBOL
> > guy who knows enough SQL to be dangerous...
> > Just looking at the code, I'm guessing that the new table is called
> > "Shutdown" and the values for this table are going to be set by the timer
> > event.
>
> Yes, that's right. fOSUserName and fOSMachineName are separate functions
> lifted from here:
>
> http://www.databasedev.co.uk/get_username_or_computername.html
>
> > How do I set up a timer event?
>
> The events are built-in code modules which you access via the form's
> properties pallete in design view.  Select "Event Procedure" from the
> drop-down list in the On Timer event, then click just to the right of the
> drop-down and it will open the module.  That's where you insert the code
> (it's VBA code BTW).
>
> You then set the timer interval, also on the proerties pallete, in
> milliseconds.  I have mine set to 30000 (30 seconds).
>
> > Thanks again for your help,
>
> You're welcome.  Post back if you need more help.
>
> Keith.
>
>
>

>>
>> Yes, that's right. fOSUserName and fOSMachineName are separate functions
>> lifted from here:
>>
>> http://www.databasedev.co.uk/get_username_or_computername.html
>>

"Keith Wilby" wrote:

> "Rpainter" <Rpain***@discussions.microsoft.com> wrote in message
> news:A0A43364-4A8A-42F1-A197-1B56529A9977@microsoft.com...
> > OK, I got the code loaded, but during the debug, I got an error:
> > "Sub or function not defined"
> > on  fOSUserName.  Where and how do I need to define this?
> > I'm sure that I will need to define the fOSMachineName also.
> >
>
> Did you miss this?
>
> >>
> >> Yes, that's right. fOSUserName and fOSMachineName are separate functions
> >> lifted from here:
> >>
> >> http://www.databasedev.co.uk/get_username_or_computername.html
> >>
>
>
>