Textbox and contents will not display

[DOC666]

Can anyone help please

Me.TxtNotAllowed.Visible = True
dtTimer1 = Now
dtTimer2 = Now + TimeValue("00:00:10")
Me.TxtNotAllowed.Value = "You do not have permission to use this database !"
Do Until dtTimer1 >= dtTimer2
dtTimer1 = Now()
Loop
Me.TxtNotAllowed.Value = ""
DoCmd.Quit

The above code will run definitely for the 10 seconds however the textbox and contents do not display HOWEVER if stepped through with breakpoints line by line and the form checked each time the textbox DOES display and its contents.

[ItsMe]

I can not see the code you have there working. I tried a couple different things using datediff, dateadd, and other functions using the system clock. The only thing I could get to work properly was the form's timer event.

Here is an example.

[June7]

It does appear after the timer completes. Remove or comment the DoCmd.Quit and will see the textbox.

Sorry, don't know how to make the textbox show immediately. Don't know why timer loop interferes.

[DOC666]

Gentlemen,

Thanks for both your help.
Another MVP on another forum suggested putting "DoEvents" in front of the loop.
I have tried this and it does work !!
Will have to bone up on this function to see how it works !!

Thanks again

[June7]

Great! Glad you have solution. I have used Do Events only once. Now I have better understanding of it.

[ItsMe]

Do you care to share your final working code here? What event is your code in?