Make form opened achidden visible

[GraeagleBill]

Just starting some new code to treat some optional backup procedures. Sub TMSExit gets called when the app's session is ending. The user has an option check in app settings as to whether automatic backups are to be enabled. In some instances, the form "frmBkUps" will determine there's nothing to do so I don't even want the form to appear. In testing, the statement "Me.Visible = True" does not result in the form becoming visible. Is something else needed in the OpenForm statement?

Public Sub TMSExit()
If DLookup("BkUpEnabled", "InstProperties") = True Then _
    DoCmd.OpenForm "frmBkUps", , , , , acHidden


DoCmd.Quit
End Sub

"frmBkUps" Open Event:

Private Sub Form_Open(Cancel As Integer)
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
'  User has automatic backups enabled.  Lets see what needs to be done if
'  anything.
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
Me.Visible = True


End Sub

I JUST SAW A SCREEN FLASH! I was expecting the form to hold control like acDialog, but it doesn't with acHidden. I think I need to go to bed :-(

[Welshgasman]

Why would you open a form hidden, and then immediately want it visible in form open?

[moke123]

Wouldn't DoCmd.Quit close the program? No End IF ?

[isladogs]

No End If required as the If statement is all on a single line broken by an underscore.

FWIW, that sequence of code does make the 2nd form visible for me when it loads.
Perhaps its a timing issue for you. Try moving the code from Form_Load to Form_Current or even Form_Timer with a timer interval of (say) 1000 to cause a slight delay.

[davegri]

Is there a way for code in TMSExit to determine if frmBKUps need be opened at all, instead of frmBkUps doing so for itself?

[GraeagleBill]

Sorry for all the confusion. There's no visible property in the form's property sheet in design mode, at least not in A2013. So, I'd been fumbling around trying to learn how to toggle the visibility of a form from VBA. It just didn't occur to me to try "Me.visible =".

[moke123]

No End If required as the If statement is all on a single line broken by an underscore.

Didn't notice the underscore.

[GraeagleBill]

Maybe the implemented code helps? (The form opens acDialog)

Option Compare Database
Option Explicit
Dim strImLib As String


Private Sub Form_Open(Cancel As Integer)
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
'  User has automatic backups enabled.  Lets see what needs to be done if
'  anything.  We'll "Quit" silently if there's nothing to do.  (TMS "Front Gate"
'  sets TMSDBDLM and TMSImDLM when TMS client session opens.)
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
Me.Visible = False       'Assume for the moment there's nothing to do
    
If TMSDBDLM <> FileDateTime(TMSClientDB) Then              'Any tables updated?
    Me.tbMsgBoard = "TMS database being backed up now"
    Me.Visible = True
    Me.tbMsgBoard = BkUpDB(TMSClientDB)                    'Post the completion status
End If


strImLib = TMSClientPath & Replace(TMSClientImages, "\", "")        'Leave off the trailing slash
If TMSImDLM <> FileDateTime(strImLib) Then                 'Any Image library activity?
    Me.tbMsgBoard = "TMS Image Library being backed up now"
    Me.Visible = True
    Me.tbMsgBoard = BkUpIm(strImLib)                       'Post the completion status
End If


End Sub