AccessTr.neT

(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 

excele aktar butonunun kodlarını aşağıdaki ile değiştiriniz.

On Error GoTo Err_aktar



Dim Klasor As String

SQL = Me.RecordSource

Set qdf = CurrentDb.CreateQueryDef("Excelsorgu", SQL)

Klasor = CurrentProject.Path & "\3_Aylık_Listesi.xls"

If MsgBox("Verileri Excele aktarmak istiyor musunuz? ", 36, "3_Aylık_Listesi.xls 'ye aktarılacak") = 6 Then

DoCmd.TransferSpreadsheet acExport, 8, "Excelsorgu", Klasor, False, ""

MsgBox "3_Aylık_Liste Programın bulundugu yere Aktarma işlemi tamamlandı", 0, "VERİ AKTARIMI"

DoCmd.DeleteObject acQuery, "Excelsorgu"

End If

Exit_aktar:

    Exit Sub



Err_aktar:

    MsgBox Error$

    Resume Exit_aktar

(20/03/2015, 00:51)ozanakkaya yazdı: [ -> ]excele aktar butonunun kodlarını aşağıdaki ile değiştiriniz.

On Error GoTo Err_aktar



Dim Klasor As String

SQL = Me.RecordSource

Set qdf = CurrentDb.CreateQueryDef("Excelsorgu", SQL)

Klasor = CurrentProject.Path & "\3_Aylık_Listesi.xls"

If MsgBox("Verileri Excele aktarmak istiyor musunuz? ", 36, "3_Aylık_Listesi.xls 'ye aktarılacak") = 6 Then

DoCmd.TransferSpreadsheet acExport, 8, "Excelsorgu", Klasor, False, ""

MsgBox "3_Aylık_Liste Programın bulundugu yere Aktarma işlemi tamamlandı", 0, "VERİ AKTARIMI"

DoCmd.DeleteObject acQuery, "Excelsorgu"

End If

Exit_aktar:

    Exit Sub



Err_aktar:

    MsgBox Error$

    Resume Exit_aktar

aktarmayı deneme yapacağım ama burada ürün kodları gruplayıp sipariş adetleri toplama yapmıyor sanırım onu nasıl yaparım excele aktarmada

sayın emrullah,


konu takibiniz açısından,hatırlatma anlamında;
konunuz ile ilgili son gelişme ne durumdadır.

şüphesiz,işlemleriniz tamamlanmış ve sorununuzu çözmüş de olabilirsiniz.
bilgilendirmek ister misiniz lütfen.teşekkürler.bilginize.

iyi çalışmalar,
saygılar.

konuya çözüm bulamadım daha
ben arama olmadan mesala ürün cinsi alanına geldim ETİKET yazanın üzerinde
sağ tıkladım filtrele dedim
sadece etiketler geldi bu durum da excele aktar dediğimde
gruplama ve toplama yapması gerekiyor

(25/03/2015, 21:38)ramazanemrullah yazdı: [ -> ]konuya çözüm bulamadım daha
ben arama olmadan mesala ürün cinsi alanına geldim ETİKET yazanın üzerinde
sağ tıkladım filtrele dedim
sadece etiketler geldi bu durum da excele aktar dediğimde
gruplama ve toplama yapması gerekiyor

Son eklediğiniz uygulama üzerinde düzenleme yaptım.

formda ilgili alana sağ tıklayıp filtreleme "YAPMAYACAKSINIZ". Form üzerinde bulunan "Ürün No Giriniz" metin kutusuna Ürün no veya firma bilgisi yazarak filtreleme yapıp, excele aktar butonuna tıklayınız.

Örneği açtığınızda, "Ürün No Giriniz" metin kutusuna (bu etiketin isminin değişmesi gerekli) "Çamaşır" yazdığınızda firma isminde çamaşır yazan verileri, "521652" yazdığınızda 521652 içeren ürün numaralarını listeler. Arama Yapılacak alan sayısı arttırılabilir. 

Eklediğim uygulama ile ilgili bazı hususlar,

1-) Formu açtığınızda, yetki ile ilgili herhangi bir denetim bulunmadığı için ilk açılışta yetki "GRAFİK" olarak düzenledim. Formu açtığınızda yetkisi "GRAFİK" olanları listeliyor.
2-) Yetkiye göre butonların tıklanma olayındaki kodlar güncellendi, bu butonlar "Kritik Kontrol", "Bekleyenlen", "Bilgisi Yoklar" ve "Tüm Siparişler". Diğer butonların olay yordamlarının değiştirilmesi gerekli. Bu örnek istediğiniz gibi olmuş ise diğer butonların kodlarını değiştirebilirim.

3-) "Ürün No Giriniz" metin kutusuna "çamaşır" yazdığnızda 1 tane "Buzdolabı" listeliyor. Sebebi ise URUNAGAC tablosundaki "52164282" kodlu ürünün ÇAMAŞIR, SİPARİŞ tablosundaki "52164282" numaralı ürünün "BUZDOLABI" olması, 
4-) Verilerde gördüğüm kadarıyla bazı gariplikler var, URUNAGAC tablosu yapı itibariyle ana tablo, bu tablodaki tüm verilerin SİPARIŞ tablosunda olması gerekli, ancak SIPARIS tablosundaki 238 adet veri URUNAGAC tablosunda bulunmuyor.
5-) İlişkilendirmede yanlışlık var. Uygulamadaki sorgularda SİPARİS tablosu urun_kodu alanı ile URUNAGAC tablosundaki URUN_KODU alanı ilişkilendirilmiş.



Ancak bu ilişkilendirme bence hatalı. İlişkilendirme için alanlardan birinin benzersiz olması gerekiyor. 1. mesaja eklediğiniz örnek uygulamadaki SIPARIS tablosuna veri türü sayı olan "urun_id" adında alan ekledim. 

UPDATE SİPARİS INNER JOIN URUNAGAC ON SİPARİS.urun_kodu = URUNAGAC.URUN_KODU SET SİPARİS.urun_id = [URUNAGAC].[İD];

sql kodu içeren güncelleştirme sorgusu ile yeni eklediğim urun_id alanına URUNAGAÇ tablosundaki id alanındaki ilgili veriyi kaydettim.

URUNAGAC tablosundaki İD (bu alanın ID veya id olması gerekli) alanı ile SİPARİS tablosuna eklediğim urun_id alanını ilişkilendirdim. 



Tablolara veri kaydettiğiniz formun tasarımını bilmiyorum ancak ilişkilendirmenin bu şekilde olması gerekiyor. Ancak ben uygulamadaki ilişkilendirmeye dokunmadım, sorgular eski haliyle çalışıyor. Bahsettiğim ilişkilendirmeye göre değiştirilirse daha doğru olacağı kanısındayım.


Eklediğim örnek ile ilgili olumlu/olumsuz bildirimde bulunursanız olası hata veya eksiklikleri düzeltebiliriz.