Access Forum

(En son düzenleme: 04-02-2012 21:40 hkurtt.)

Arkadaşlar Sigorta Teşviğinden Yararlananları Takip için Acces’de bir şeyler yapmaya çalıştım ama takıldım kaldım.
Teşvikten Yararlanan-1 ……….…adlı sorgu tablosunda aşağıdaki alanlar var :
AY
ÇALIŞAN SAYISI
ortalama
Teşvik Hesep Dönemi
SayTEŞVİK DURUMU
TEŞVİK DURUMU
TC KİMLİK NO
ADI
SOYADI
SSK MATRAHI

Fark-1 ……..…adlı sorgu tablosunda aşağıdaki alanlar var :
Teşvik Hesep Dönemi
ÇALIŞAN SAYISI
AY
ortalama
Fark
Artış
ToplaSayTEŞVİK DURUMU
Teşvikten Yararlanan Sayısı

(Teşvikten Yararlanan-1)(Fark-1)
2 ADET SORGU TABLOSU VAR
Bu iki tablodan (((((AY))))) alanlarını eşleştirdim.

Bu iki sorgu tablosundan yararlanarak Son Teşvik isimli yeni sorgu tablosu oluşturdum.
Son Teşvik …………isimli sorgu tablosuna ( Teşvikten Yararlanan-1....tablosundan aşağıdaki alanları alıyorum)

AY
Teşvik Hesap Dönemi
TC KİMLİK NO
ADI
SOYADI
SSK MATRAHI

Son Teşvik ……isimli tablonun (AY)’lara göre artan sıralı, (SSK MATRAHI)’na göre de en büyükten küçüğe doğru (Her Ayın kendi içinde sıralı olacak) sıralamak istiyorum.………..(Bunu Yaptım)……... aşağıdaki gibi.

AY..........Teşvik Hesap Dönemi ......….TC KİMLİK NO……ADI……SOYADI……SSK MATRAHI

30.06.2011……..31.12.2011……………………..67868686876…….HAKAN………UZUN……….1.550,00
30.06.2011……..31.12.2011……………………..56456456456…….ENVER…..……YAVAŞ….….1.300,00
30.06.2011……..31.12.2011……………………..12345678911…….ALİ………………GEZER.…….1.200,00
31.07.2011……..31.12.2011……………………..64676756756…….MAHMUT……KAR.………..2.100,00
31.07.2011……..31.12.2011……………………..46464645645…….OSMAN………GÜL…...…….1.500,00
31.07.2011……..31.12.2011……………………..53453453453…….VELİ……………KAÇAR.…………900,00
31.08.2011……..31.12.2011……………………..55775757536…….YUSUF………SADIK……….….3.100,00
31.08.2011……..31.12.2011……………………..64456456456…….YILDIRIM……DEMİR………...2.300,00
31.08.2011……..31.12.2011……………………..57575675675…….MEHMET……LALE.…………...1.750,00
31.08.2011……..31.12.2011……………………..57457574754…….FATİH…………SULTAN.………….950,00
Böyle devam edip gidiyor………………

Fark-1 sorgu tablosundaki ;
Alan isimlerini kısaltarak yazıyorum (yan yana sığması için)

Teş.Hes.Dön…ÇAL.SAY….AY…...ort…Fark...Artış….ToplaSayTEŞ. DUR….Teşvikten Yararlanan Sayısı

31.12.2011…...28…..30.06.2011….25………3………3……………….3………………………………………….3………………
31.12.2011…...28…..31.07.2011….26………2………2……………….3………………………………………….2………………
31.12.2011…...28…..31.08.2011….26………2………2……………….5………………………………………….2………………
31.12.2011…...28…..30.09.2011….27………1………1……………….1………………………………………….1………………
31.12.2011…...28…..31.12.2011….36……(-8)…..…0……………….6………………………………………….0………………

Fark-1; tablosundaki

……………………………..AY…………………………………………………………………..Teşvikten Yararlanan Sayısı
……………………………30.06.2011………………………………………………………………………………….3…………………..
……………………………31.07.2011………………………………………………………………………………….2…………………..
……………………………31.08.2011………………………………………………………………………………….2…………………..
……………………………30.09.2011………………………………………………………………………………….1…………………..
……………………………31.12.2011………………………………………………………………………………….0…………………..

AŞAĞIDAKİ SORGULAMAYI YAPTIRAMADIMMMMM

Fark-1 tablosunda AY(30.06.2011), Teşvikten Yararlanan Sayısı 3 ise
Son Teşvik tablosunda da AY’ı 30.06.2011 olan 3 kişiyi listelesin ama SSK MATRAHI en büyükten küçüğe doğru,

Fark-1 tablosunda AY(31.07.2011), Teşvikten Yararlanan Sayısı 3 ise
Son Teşvik tablosunda da AY’ı 31.07.2011 olan 3 kişiyi listelesin ama SSK MATRAHI en büyükten küçüğe doğru,

Fark-1 tablosunda AY(31.08.2011), Teşvikten Yararlanan Sayısı 2 ise
Son Teşvik tablosunda da AY’ı 31.08.2011 olan 2 kişiyi listelesin ama SSK MATRAHI en büyükten küçüğe doğru

Fark-1 tablosunda AY(30.09.2011), Teşvikten Yararlanan Sayısı 1 ise
Son Teşvik tablosunda da AY’ı 30.09.2011 olan 1 kişiyi listelesin ama SSK MATRAHI en büyükten küçüğe doğru

Fark-1 tablosunda AY(31.12.2011), Teşvikten Yararlanan Sayısı 0 ise
Aralık 2011 ‘de Teşvikten Yararlanan 0 (sıfır) olduğu için AY’ı (31.12.2011) olanlardan kimseyi listelemesin.

AY'lar sadece burdaki AY'lar kadar değil, daha fazla AY 'da oalabilir.
Teşvikten Yararlanan-1 sorgu tablosu ile Fark-1 sorgu tablosundaki AY'lar eşleştiği için daha değişik aylar da olabilir.

Arkadaşlar biraz karışık ama burdaki değerli üstatlardan yardım bekliyorum.

Access’de biraz yeniyim. Bu proğramı yapmak için biraz araştırdım. Ancak öğrendiklerimle buraya kadar geldim ve burda takıldım. Zaten bu sorgulamayı da geçersem proğramın sorgulama aşaması bitmiş oluyor. Geriye Formlar ve Raporlar kısmı kalıyor. Zannedersem orda fazla takılmam.
NOT:
Arkadaşlar Tablolar bölümünde sayı isimli bir tablo yanlışlıkla fazladan açılmıştır. Şimdi farkettim ve sayı isimli tabloyu sildim.
Teşvik-4447-10 v1.rar'düzeltip tekrar ekledim

Teşvik-4447-10 v1
İsimli Acces Dosyasını da ekliyorum

**04-02-2012 18:58**

Merhaba..

Sorunuzu anlama çalışıyorum; amaç fark-1 deki ay bazında teşvikten yararlanan sayısı kadar son teşvik sorgusunda kayıt göstermek midir?

(En son düzenleme: 04-02-2012 19:58 hkurtt.)

evet hocam aynen dediğiniz gibi.
Fark-1 'deki AY'da Teşvikten Yararlanan Sayısı 3 ise

Son Teşvik tablosunda AY'ı aynı olan 3 kişiyi listelesin SSK MATRAHI en yüksekten en düşüğe göre (her AY kendi içinde Sıralı)

Yukarıdaki sorduğum yapılacak Sorgu sonucunda
30.06.2011 AY' yından 3 kişi , 31.07.2011 AY'ından 3 kişi ve 31.08.2011 AY'ından 2 kişi listelenmesi gerekir

AY...................SSK MATRAHI
30.06.2011.......1.550,00
30.06.2011.......1.300,00
30.06.2011.......1.200,00
31.07.2011.......2.100,00
31.07.2011.......1.500,00
31.07.2011..........900,00
31.08.2011.......3.100,00
31.08.2011.......2.300,00

Bu 30.06.2011, 31.07.2011 ve 31.08.2011 için
Ay artıkça bu liste devam eder gider

**04-02-2012 23:25**

Tekrar merhaba..

Dosyanızı inceledim.. Değişken kayıt göstermek zorunda olduğumuz için sorgu ile çözüm (çok fazla alt sorgu kullanmak gerektiğinden) çok efektif olmayacak.. Geçici tablo kullanmak daha hızlı sonuç verecektir.. İşleyişi sağlayan prosedür budur..:

VBA Kodu

Dim rs         As New ADODB.Recordset
Dim rs2        As New ADODB.Recordset
Dim srg, srg2  As String
    CurrentDb.Execute "delete from TabloTemp"
    srg2 = "SELECT AY, [Teşvikten Yararlanan Sayısı] FROM " _
           & "[Son Teşvik] GROUP BY AY,[Teşvikten Yararlanan Sayısı] "
 
    rs2.Open srg2, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
    Do While Not rs2.EOF
        srg = "select * from [Son Teşvik] where cdbl(ay)= " & CDbl(rs2(0))
 
        rs.Open srg, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
        For i = 1 To rs2(1)
 
            If DCount("*", "TabloTemp", "[TC KİMLİK NO]='" & rs(2) & "' ") > 0 Then
                i = i - 1
                rs.MoveNext
            Else
                CurrentDb.Execute "INSERT INTO TabloTemp ( Ay, [Teşvikk Hesap Dönemi], " _
                                  & "[TC KİMLİK NO], ADI, SOYADI, [SSK MATRAHI] )" _
                                  & " SELECT '" & rs(0) & "', '" & rs(1) & "', '" & rs(2) & "'," _
                                  & " '" & rs(3) & "', '" & rs(4) & "', '" & rs(5) & "'"
                rs.MoveNext
            End If
 
        Next
 
        Set rs = Nothing
        rs2.MoveNext
 
    Loop
 
    Set rs2 = Nothing
    Me.altform.Requery

access-sql.com

(En son düzenleme: 05-02-2012 13:08 hkurtt.)

Taruz hocam çok teşekkür ederim

Çok güzel olmuş

Hocam ben SQL'yi inceliyordum. SQL deyimlerini öğrenmeye çalışıyordum.

Siz Kodları VBA Kodu ile verince afallayıp kaldım.

Access'de VBA kodlarını nasıl giriyoruz veya değiştiriyoruz.
Vermiş olduğunuz VBA kodlarını Access'de nereye nasıl yazdınız

SQL 'yi öğrenmeye çalışıyordum. Herhalde bu gidişle VBA kodlarını da öğreneceğiz.

Hocam VBA 'yı biraz daha anlamak için döküman ve kaynak konusunda yardımcı olur munuz

**05-02-2012 13:35**

Merhaba...
Access ile uğraşıyorsınız vba ve sql'i ayırmadan ikisini de az çok bilmek zorundasınız.. Denetim veya komut sihirbazları ile bir yere kadar uygulamanızı geliştirebilirsiniz..

SQL için SORGU ODASI bölümünü inceleyiniz.. VBA için genel dokümanların yanı sıra bu sorunuzdaki çözümlerde kullandığım yapıyı anlamanız için burayı ve burayı da incelemenizi öneririm..

Belli kriterlere göre listeleme - Konu Araçları
Etiketler
BBCode	[url=http://www.access-sql.com/showthread.php?tid=7574]Belli kriterlere göre listeleme[/url]
HTML Kodu	<a href=http://www.access-sql.com/showthread.php?tid=7574">Belli kriterlere göre listeleme</a>
Diğer	KonuyuYazdır - Arkadaşına Gönder - Bu konuya abone ol
Sosyal Paylaş	Sabah net google facebook digg twiter yahoo mixx stumbleupon delicious reddit myspace friendfeed google buzz linkedin

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[VBA] Accesste bir sayıyı belli bir katsayıda tavana yuvarlamak??	aemrahsenel	7	618	17-05-2012 02:41 Son Mesaj: yebala
	[SORGU] Belirli Kriterlere Göre Arama, Araştırma ve Aramadım Değil, Beceremedim :(	sudamlasi79	7	257	03-05-2012 23:20 Son Mesaj: SU _DUYGU
	[RAPOR] textden belli alanları acces veri tabanı ile karşılaştırmak	melisce	2	160	27-03-2012 13:20 Son Mesaj: melisce
	[SORGU] Belli bir tarih dilimi sorgusu	Fthysr	4	142	20-03-2012 14:57 Son Mesaj: Fthysr
	[SORGU] Belli Tarih Aralığında Çalışan Kişi Ortalaması	hkurtt	7	223	28-01-2012 16:32 Son Mesaj: hkurtt
	[FORM] biligisyardaki excell ve word doyalarını listeleme	soguk27	1	115	13-01-2012 22:07 Son Mesaj: Amadeus
	[FORM] Sürekli formda seçilen kriterlere göre personel ve ekders saatlerini otomatik ekleme	hace32	0	230	11-01-2012 13:57 Son Mesaj: hace32
	[FORM] Access formu belli bir zaman sonra açılmıyor.	techniq	9	368	04-01-2012 03:44 Son Mesaj: techniq