Bir komut düğmesine formdaki verileri Excel'e aktarması için bilinen aktarma kodunu yazdım alan sayısı fazla olduğundan kod'da uzun oldu. Komutu çalıştırdığım vakit "Procedure too large" hatası alıyorum. Bu sorunun bir çözümü varmı. Varsa Bir örnekle açıklamasını siz değerli arkadaşlarımdan arz ediyorum. Saygılarımla iyi çalışmalar. (Kodu Word dökümanı olarak ekliyorum)
benimde böyle bir sorunum vardı (exele atmak ile ilgili)
forumdaki arakadaşlarımdan öğrendiklerimi size aktarayım.
önce excele aktaracağınız verileri içeren bir sorgu hazırlayın ve adını AKTARMA_SORGUSU koyun. sonra mevcut butonunuzun click olayındaki kodu silin ve aşağıdaki kodu yapıştırın.
Private Sub Komut35_Click()
On Error GoTo Err_aktar
Dim Klasor As String
Klasor = CurrentProject.path & "\BELGE.xlsx"
If MsgBox("Verileri Excele aktarmak istiyor musunuz? Bu işlem veri yoğunluğuna göre bir kaç dakika sürebilir.", 36, "BELGE.xlsx 'ye aktarılacak") = 6 Then
DoCmd.TransferSpreadsheet acExport, 10, "AKTARMA_SORGUSU", Klasor, True, "AKTRILAN VERİ"
MsgBox "Aktarma işlemi tamamlandı.", 10, "VERİ AKTARIMI"
Exit_aktar:
Exit Sub
Err_aktar:
MsgBox Error$
Resume Exit_aktar
End If
End Sub
access belgenizin olduğu klasörün içinde BELGE isimli bir
Excel oluşacak ve açınca AKTARILAN VERİ sayfasında istediğiniz verileri göreceksiniz...
sayın orderyazbim,
Olumlu ya da olumsuz geri bildirimde bulunmanızı bekliyoruz.
Sn orderyazbim siteye girmenize rağmen geri bildirimde bulunmamışsınız. Probleminizi çözebildiniz mi? Devam ediyorsa konuya cevap vererek konunun tekrar gündeme gelmesini, dolayısıyla cevap alma şansınızı arttırabilirsiniz. Bazı konular gözden kaçabiliyor.
Saygılar...