19/05/2020, 12:54
19/05/2020, 13:36
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