Re: Timer intervall to set form invisible

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

Thanks jl5000

will try what you suggested ..... I just tried to use a picture as
background ... so I cut all the controls of a test form inserted the picture
pasted the controls and used the mousemove and click events of the picture
...... so the timer as you first suggested works !!!!

what I do not understand is why the events of the frmMain (the one without
picture) Form_Click, Form_MouseMove do not fire ..... am I doing something
wrong or am I thinking wrong ???

Thanks again,
Gina
"jl5000" <jl5000@xxxxxxxxxxxxxxxxxxxxxxxxx> schrieb im Newsbeitrag
news:AC1764E0-6E07-4FE1-890B-3197D7DA78D6@xxxxxxxxxxxxxxxx
> Try this function as described in my prev post
>
>
> Function Check_Activity()
> Forms("frmMain").TimerInterval = 0
> Forms("frmMain").refresh
> Forms("frmMain").TimerInterval = 120000
> Forms("frmMain").refresh
> End Function
> --
> jl5000
> <a href="http://joshdev.com";></a>
>
>
> "Gina" wrote:
>
> > Hi jl5000,
> >
> > I have been playing around with your idea & code
> > I have the setback to TimerInterval = 0 and setItAgain to TimerInterval
=
> > 120000 (just to test) in the main forms Form_Click, Form_AfterUpdate,
> > Form_MouseMove events
> >
> > Forms("frmMain").TimerInterval = 0
> > Forms("frmMain").TimerInterval = 120000
> >
> > further I put the above code into each of the 3 subforms events like
above
> > I put a halt on the lines in the events .... they do not fire... :(
> > I do not know when those events fire at all !!!
> > Is there a way to ask whether any control of main and subforms has got
some
> > events - if so and then do something within the time set by the timer
> > events like click, keypress, mousemove .... without having to type it in
> > each single control - oh dear ;-)
> >
> > users may open it and just read some info and click around on the
controls -
> > searching, retrieving etc without adding, editing or deleting records
.....
> > so the form may not get updated at all ??!!
> > to make a long story short - it still doesn't set back the timer ....
> >
> > This is in the frmMain's Timer event:
> > If Me.Visible Then
> > Form_frmStart.Visible = True
> > Form_frmStart.txtUserName.SetFocus
> > Me.Visible = False
> > End If
> >
> > Think I can't use it this way .... the user will have to type in the
> > password each time the timer has finished ... despite someone is working
> > with the programme..., oh please ... I would thrtough such a programme
into
> > the bin!!
> > so is there any other way ..... ???
> >
> > any help, ideas or links highly appreciated !!
> >
> > Thanks,
> > Gina
> >
> >
> > "jl5000" <jl5000@xxxxxxxxxxxxxxxxxxxxxxxxx> schrieb im Newsbeitrag
> > news:5C3345DF-537A-4B67-85BF-78BE7AA9F9A0@xxxxxxxxxxxxxxxx
> > > The timer doesn't stop whether there is activity or not,
> > >
> > > The Five minutes should be set in the Timer Interval property of the
form,
> > > five minutes will be represented with 300000,
> > >
> > > You can do this:
> > >
> > > On the on open and after update events of each form set the timer
interval
> > > of the main form to 0 and then back to 300000:
> > >
> > > Private Sub Form_Open(Cancel As Integer)
> > > Forms("MyForm").TimerInterval = 0
> > > Forms("MyForm").TimerInterval = 300000
> > > End Sub
> > >
> > > On the ontimer event of the main form add this code:
> > >
> > > Private Sub Form_Timer()
> > > If Me.Visible Then
> > > Me.Visible = False
> > > Docmd.OpenForm "frmStart"
> > > End If
> > > End Sub
> > >
> > > then have the form frmStart make the Form frmMain visible after the
action
> > > you expect from the user,
> > >
> > >
> > >
> > > Forms!MainForm!Timer=0
> > >
> > >
> > >
> > >
> > > --
> > > jl5000
> > > <a href="http://joshdev.com";></a>
> > >
> > >
> > > "Gina" wrote:
> > >
> > > > Hi.
> > > >
> > > > I am trying to set my main form (frmMain) to be invisible after a
> > certain
> > > > time and the start-up form (frmStart) where a user input is required
> > should
> > > > come up - lets say after 5 minutes of nothing happening..., maybe
> > > >
> > > > I 've set the timer interval to 50000 in the Form_Current event of
> > frmMain
> > > > ..... but now I don't know how to go on.
> > > > after correct input the frmMain is opened and frmStart is invisible
....
> > > > maybe I should just use the screen saver .... but I wonder how this
> > would be
> > > > carried out in a programme !!??
> > > > I would very grateful for help and idea(s) ? !!
> > > >
> > > > Thanks,
> > > > Gina
> > > >
> > > >
> > > >
> > > >
> >
> >
> >


.

Relevant Pages

  • Re: Photo within Forms
    ... the Unbound Object Frame and Bound Object Frame. ... "ImageFrame" may mislead the OP to select one of the OLE Frame controls ... > Yes, the technique has changed; in older versions, it worked as I had ... > existing picture file for each record. ...
    (microsoft.public.access.forms)
  • Re: Picture Box Tranparent, CreateDIBPatternBrushPT, PackedDIB
    ... > themselves use picture boxes for their drawing.(i.e no User Control ... in order for my controls to "blend in" nicely with their ... > save, for each object, the pattern gradiant of its container. ...
    (microsoft.public.vb.winapi.graphics)
  • Re: Linking Pictures
    ... Ole Object type controls in a table will always store the object within the ... If you are storing pictures the size of the database will also grow ... The picture is not stored in the database and therefore ...
    (microsoft.public.access.forms)
  • Re: Custom AC power switch
    ... upon which I'd paste a picture for her. ... >microwave, as I'm sure she could handle the popcorn picture just fine. ... Some ovens are very easy to ... timing mechanism with a timer for say 2 minutes maximum. ...
    (sci.electronics.design)
  • Picture Box Tranparent, CreateDIBPatternBrushPT, PackedDIB
    ... themselves use picture boxes for their drawing.(i.e no User Control ... in order for my controls to "blend in" nicely with their ... save, for each object, the pattern gradiant of its container. ...
    (microsoft.public.vb.winapi.graphics)