(Fwd) RE: [AccessD] A2K - setting a form invisible on open

Thanks Bryon...

 I'm repost posting the code because of the formatting errors.

Form Level

Private Sub Form_Open(Cancel As Integer)
Dim ScrVis As Long
ScrVis = 0 'LWS Check Point
           'ScrCount is a global counter, to make sure we don't loop
If ScrVis = 0 And ScrCount = 0 Then
ScrCount = 1
Call Openform(Me.Name)
End If
End Sub

Module Level

Public Sub Openform(FrmName As String)
DoCmd.Close acForm, FrmName
DoCmd.Openform FrmName, , , , , acHidden
End Sub


Robert Gracie
www.servicexp.com

SNIP