Merhaba,

HAREKETLER isimli formun açıldığında olayındaki kodu aşağıdaki ile değiştir.

Private Sub Form_Open(Cancel As Integer)

DoCmd.Maximize

Liste.Visible = False

ARA.Visible = False

End Sub

HAREKETLER isimli formun yüklendiğinde olayına aşağıdaki kodu ekle,

Private Sub Form_Load()

If Me.NewRecord = True Then

Call FirmaSec

End If

End Sub

Siparisonay isimli formdaki Komut9 isimli butonun tıklandığında olayındaki kodu aşağıdaki ile değiştir.

Private Sub Komut9_Click()

DoCmd.OpenForm "HAREKETLER", , , , acFormAdd

End Sub

Ayrıca, Yapılmaması Gereken Ölümcül Hatalar konusunu inceleyip uygulamanı düzenlemelisin.