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.