AccessTr.neT
Açılan formu Menü Formuna yaslama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Açılan formu Menü Formuna yaslama (/konu-acilan-formu-menu-formuna-yaslama.html)

Sayfalar: 1 2

Cvp: Açılan formu Menü Formuna yaslama - ercansahin - 13/03/2011

Uygulamanızdaki kodları aşağıdakilerle değiştirin.
Option Compare Database

Sub formlarıKapat()

Dim TumFormlar As Object

    For Each TumFormlar In Application.CurrentProject.AllForms

        If TumFormlar.Name <> "MENU" And Me.Form.Name <> TumFormlar.Name Then 'Aktif olan formu kapatmasın.

            DoCmd.Close acForm, TumFormlar.Name, acSaveNo

        End If

    Next

End Sub



Private Sub Form_Load()

DoCmd.MoveSize 10000, 1500

End Sub



'Ana Form Hatadan Dolayı kapanır ise Aktif formlarıda kapat

Private Sub Form_Unload(Cancel As Integer)

formlarıKapat

End Sub



Private Sub Komut1_Click()

'formlarıKapat

DoCmd.OpenForm "Form2"

Forms("Form2").Move Form_Form1.WindowWidth + 10, Form_Form1.WindowTop + 0

End Sub

Private Sub Komut2_Click()

'formlarıKapat

DoCmd.OpenForm "Form3"

Forms("Form3").Move Form_Form1.WindowWidth + 10, Form_Form1.WindowTop + 0

End Sub

Private Sub Komut3_Click()

'formlarıKapat

DoCmd.OpenForm "Form4"

Forms("Form4").Move Form_Form1.WindowWidth + 10, Form_Form1.WindowTop + 0

End Sub

Burada Form1 in açılması gereken yeri docmd.MoveSize 10000, 1500 ile belirledikten sonra diğer formların açılması gereken yerleri ayarladık.

Cvp: Açılan formu Menü Formuna yaslama - ozanakkaya - 14/03/2011

aydın3838'in verdiği kodların çalışma mantığına göre kodun aşağıdaki gibi değiştirilmesi yeterli

DoCmd.OpenForm "Form2"

Forms("Form2").Move Form_Form1.WindowLeft - Form_Form2.WindowWidth, Form_Form1.WindowTop


Cvp: Açılan formu Menü Formuna yaslama - akd - 14/03/2011

İlginiz için çok teşekkür arkadaşlar,
sayın adminin yaptığı daha mantıklı geldi bana ama bir sorunla karşılaştım,
birtürlü anlamadım,
2.form açılıyor 3. ve 4 formları açarken hata veriyor???

Cvp: Açılan formu Menü Formuna yaslama - ozanakkaya - 14/03/2011

ilgili kodları aşağıdaki gibi düzelt
Forms("Form3").Move Forms!Form1.WindowLeft - Forms!Form3.WindowWidth, Forms!Form1.WindowTop


Cvp: Açılan formu Menü Formuna yaslama - akd - 14/03/2011

Çok teşekkür ederim sayın Sladgeab...