Popup Formu İstediğimiz Yerde Açmak

Private Sub cmdS_PopUp_Click()

        'DoCmd.OpenForm

        Dim bolSet As Boolean

        Dim intBorderstyle As Integer



        DoCmd.OpenForm fCurrentForm.Name, acDesign



            bolSet = Me.cPopUp

                fCurrentForm.PopUp = bolSet

            bolSet = Me.cAutoCenter

                fCurrentForm.AutoCenter = bolSet

            bolSet = Me.cAutoResize

                fCurrentForm.AutoResize = bolSet

      '        bolSet = Me.cFitToScreen

      '        ''    fCurrentForm.FitToScreen = bolSet

            bolSet = Me.cModal

               fCurrentForm.Modal = bolSet

           intBorderstyle = Me.cmbBorderStyle

              fCurrentForm.BorderStyle = intBorderstyle

       DoCmd.OpenForm fCurrentForm.Name

       Me.SetFocus

End Sub