tarihler arası kaçkişi var sorgu

[mustafakayiran]

bende bir access dosyası var ve bugün itibariyle yada belli tarihlere göre bu gün çalışan personel sayılarını bölümlerine göre bulmak istiyorum, yanii diyelimki bugün 10 personel var 5 tanesi muhasebede 5 taneside mutfakta çalışıyor ve 2 tane personel bugün çıkmış buna göre muhasebe 5 kişi çıkan 0 kalan 5 kişi,, mutfak 5 kişi çıkan 2 kişi kalan 3 kişi busekilde bir sorguyu nasıl yapabilirim, örnek bulamadımm yardımcı olursanız sevinirim,
İYİ BAYRAMLAR

 

[mustafakayiran]

örnek access varsa ordan yararlanabilirim

 

[icetiner]

Merhaba; Sorunun birinci aşaması için

Formda bir metin kutusu oluştur ve denetim kaynağına

=Topla([MESLEK]="MUHASEBE") şeklinde kod girerek o meslek gurbundan kaç kişinin kayıtlı olduğunu görebilirsin.(Not:Kullandığım MESLEK ve MUHASEBE kelimeleri örnektir.Sizin tabloda kullandığınız başlıları uygularsınız)

Ancak her meslek grubu için yeniden metin kutusu oluşturmak gerekecek.

Sorguya gelince,

Çapraz sorgu kullanman gerekir.Çapraz sorgunun sihirbazı ile bu işi kolayca yapabilirsin.Olmazsa dosyanı buraya ekle yardımcı olmaya çalışalım.

İkici aşamayı biraz uğraşmak lazım.

İyi Bayramlar.

 

[mustafakayiran]

örnek bir dosya hazırlayamazmısınız?

 

[mustafakayiran]

bir örnek eklemeye çalıştım

örnek bir dosya ekliyorum, fakat birtürlü yapamadım, yanii sorguyu çalıştırdığımda bugüne (yani 06,11,2005 tarihi bugün olarak baz alıyorum) ait kişi sayısını alamıyorum, yanii şöyleki,
BG=BUGÜN
BölümAdı-BGpersSayısı-BGİşeGirenSayısı-BGİştenÇıkanSayısı-BGKalan
Muhasebe- 4 - 1 - 0 - 5
Mutfak - 5 - 0 - 2 - 3

Sorgu çalıştığında aynı busekilde bir çizelge olmasıgerekiyor,
Þimdiden yardımlarınız için teşekkür ederim.

 

[omerceri]

örnek ekli dosyada
yanlız ilişkileri sildim.
tarih girmezsen bu günün tarihini kendisi atıyor

 

[mustafakayiran]

sayın omerceri, cevabınız icin teşekkür ederim ancak bana bunun sorgulama şekli gerekli, yani sorgu oluşturmak istiyorum SQL dilinde yapmak mümkünmü bilemiyorum, ama sorguyu çılıştırdığımda istedigim sonucu almam gerekiyor cünkü bunu vb de okutacagım.
teşekkürler

 

[ALPEN]

Sn omerceri'nin, gönderdiği dosyadaki butonun kodunu incelerseniz gerekli sql sorgularını görürsünüz.

Private Sub Komut0_Click()
If IsNull(Metin9) Then
Metin9.Value = Date
End If
gunu = Day(Metin9)
ayi = Month(Metin9)
yili = Year(Metin9)

tarihi = ayi & "/" & gunu & "/" & yili
Dim ys As New ADODB.Recordset
sec = "SELECT Personel.[Bölüm No], Count(Personel.Ad) AS SayAd, Personel.Giristarihi FROM Personel GROUP BY Personel.[Bölüm No], Personel.Giristarihi, Personel.Cikistarihi HAVING (((Personel.Giristarihi)<=#" & tarihi & "#) AND ((Personel.Cikistarihi) Is Null OR (Personel.Cikistarihi)>#" & tarihi & "#));"
ys.Open sec, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

While Not ys.EOF
If ys("Bölüm No") = "Muhasebe" Then
muh = muh + ys("SayAd")
ElseIf ys("Bölüm No") = "Mutfak" Then
mut = mut + ys("SayAd")
End If
topu = topu + ys("SayAd")
ys.MoveNext
Wend
ys.Close
Metin1.Caption = muh
Metin3.Caption = mut
Metin5.Caption = topu
Dim ys1 As New ADODB.Recordset
sec1 = "SELECT* FROM Personel WHERE (((Personel.Cikistarihi)=#" & tarihi & "#));"
ys1.Open sec1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Metin7.Caption = ys1.RecordCount
ys1.Close
End Sub

 

[mustafakayiran]

Sayın ALPEN, gördüm teşekkür ederim ancak bu kodları nasıl access sorgusuna taşıyacağım?
size zahmet onu yazarmısınız,
teşekkür ederim.

 

[ALPEN]

...

 

[mustafakayiran]

malesef istediğim sonucu alamadım,
yada ben anlatmak istediğimi size tarif edemedim.
istediğim, her bölümdeki kişi sayısını bugün itibariyle bulmak,
yani dünden kaçkişi devretmiş, bugün kaçkişi çıkmış ve bugün kaçkişi girmiş sonucundada bugün kaçkişi çalışıyor
bu sekilde bir sorgu yapmak istiyorum ama yapamıyorum
teşekkürler

 

[mustafakayiran]

sanırım zor bir soru sordum

 

[mustafakayiran]

???????

 

[omerceri]

mustafakayiran
kusura bakma izleyememişim geç oldu
isteğin böyle birşeymiydi
işlem tarihi olarak bugünü girdim (21.11.2005)
eğer başka bir gün açarsan örneğin (22.11.2005) yarın giren çıkan gözükmeyecek

 

[mustafakayiran]

Sayın emerceri, ilginize teşekkür ederim. evet olmuş, elinize sağlık.

 

[mustafakayiran]

Tüm arkadaşlara teşekkürler,