form açıldığında Metin140'a uygulamanın bulunduğu yolu yazar, Yol butonunu tıklayıp kaydedileceği yeri değiştirirsin.
Koda eklenen kısım aşağıdadır, diğer biçimler için ilgili yerlerde düzeltme yapmalısın.
DoCmd.OpenQuery "S_KOMPLE_GIRISLER", acViewPreview
DoCmd.OutputTo acOutputQuery, "", "MicrosoftExcel(*.xls)", Me.Metin140 & "\TUM STOK GIRIS KAYITLARI" & ".xls", True
DoCmd.Close acQuery, "S_KOMPLE_GIRISLER"