(20/03/2015, 00:11)simendifer yazdı: inceleyiniz prg nın bulundugu yere Excel olarak kaydeder
kod bu 680 kayıt satırı ekliyor
Private Sub sip_exceleaktar_Click()
On Error GoTo Err_aktar
Dim Klasor As String
Klasor = CurrentProject.Path & "\ornek.xls"
If MsgBox("Verileri Excele aktarmak istiyor musunuz? ", 36, "ornek.xls 'ye aktarılacak") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "Sorgu1", Klasor, True, ""
MsgBox "Aktarma işlemi tamamlandı", 0, "VERİ AKTARIMI"
Exit_aktar:
Exit Sub
Err_aktar:
MsgBox Error$
Resume Exit_aktar
End If
End Sub
benim isteğim bu değil ben ekranda ne veri görüyorsam onu aktarmak istiyorum bu tümünü aktarma yapıyor..
ve ürün kodları gruplayıp sipariş adetleri toplamak istiyorum