Skip to main content

AccessTr.neT


Popup Formu İstediğimiz Yerde Açmak

Popup Formu İstediğimiz Yerde Açmak

#1
Popup formu istediğimiz yerde açmak için güzel bir örnek
.rar A97OpenFormRelativeToControlVer5.rar (Dosya Boyutu: 43,45 KB | İndirme Sayısı: 18)
@benbendedeilem
Cevapla
#2

Visual Basic Code
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

@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da