AccessTr.neT

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.

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

İ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???

ilgili kodları aşağıdaki gibi düzelt

Forms("Form3").Move Forms!Form1.WindowLeft - Forms!Form3.WindowWidth, Forms!Form1.WindowTop

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