MS Access Form "Pop Up" Property

hi experts,

i have a form right now.
and i set the "pop up" property of the form to be "yes" because i only want the user see the interface at the beginning. after they choose the options on the interface.
i would like the "pop up" property changes to "no"

can anybody help me on this?

Thank you
IEHP1Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

aesmikeCommented:
not sure I know what you need on this.
the popup property only tells access to keep this window "on top" at all times.
what are you trying to accomplish?
0
Scott McDaniel (Microsoft Access MVP - EE MVE )Infotrakker SoftwareCommented:
You cannot reset the Popup property during runtime, at least not when the form is being opened (or is already open in Normal view).

If you want to reset it, you could open the form in Design view in Hidden mode, make the change then Save your changes:

DoCmd.OpenForm "Form2", acDesign, , , , acHidden
Forms("Form2").PopUp = False
DoCmd.Close acForm, "Form2", acSaveYes

You could also set the window to "topmost" mode like this:

1) Add the following to the General Declarations section of a Standard Module:

Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1
Public Const Flags = SWP_NOMOVE Or SWP_NOSIZE
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2

Declare Function SetWindowPos _
        Lib "user32" (ByVal hwnd As Long, _
                      ByVal hWndInsertAfter As Long, _
                      ByVal x As Long, _
                      ByVal y As Long, _
                      ByVal cx As Long, _
                      ByVal cy As Long, _
                      ByVal wFlags As Long) As Long

2) Add the following function to a STandard Module:

Public Function SetTopMostWindow(hwnd As Long, _
                                 Topmost As Boolean) As Long

On Error GoTo Err_SetTopMostWindow

  If Topmost = True Then 'Make the window topmost
    SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, Flags)
  Else
    SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, Flags)
    SetTopMostWindow = False
  End If

Exit_SetTopMostWindow:
  On Error Resume Next
  Exit Function

Err_SetTopMostWindow:
  Select Case Err
    Case Else
     MsgBox "An error occurred in this application." & vbCrLf & vbCrLf & Err & ":" & Error$, vbCritical, "Application Error"
  End Select
   
  Resume Exit_SetTopMostWindow
End Function

Now, call this in when the form is Opened:

SetTopMostWindow Me.hwnd, True

To allow it to be moved back, set the final argument to False:

SetTopMostWindow Me.hwnd, False

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
wiswalldCommented:
Are you talking about a splash screen or a screen where they can physically make selections on the pop up form?
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.