+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Popup Formu İstediğimiz Yerde Açmak (/konu-popup-formu-istedigimiz-yerde-acmak.html)
Popup Formu İstediğimiz Yerde Açmak - accessman - 19/05/2020
Popup formu istediğimiz yerde açmak için güzel bir örnek
RE: Popup Formu İstediğimiz Yerde Açmak - accessman - 19/05/2020
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