arkadaşlar accessde sorgu ve form kullanarak burçlar nasıl yapılır.mesala ahmet 23ocak doğdu oraya kendiliğinden kova yazması için ne yapmam gerekir.benim aklımda eğer kullanmak geçdi ama denedim yapamadım yardım edebilirmisiniz?
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
SELECT
p.Ad,p.Soyad,p.Dogumtarihi,
Switch(
(format(p.dogumtarihi,"mmdd") between 121 and 218),"Kova",
(format(p.dogumtarihi,"mmdd") between 219 and 320),"Balık",
(format(p.dogumtarihi,"mmdd") between 321 and 420),"Koç",
(format(p.dogumtarihi,"mmdd") between 412 and 521),"Boğa",
(format(p.dogumtarihi,"mmdd") between 522 and 621),"İkizler",
(format(p.dogumtarihi,"mmdd") between 622 and 721),"Yengeç",
(format(p.dogumtarihi,"mmdd") between 722 and 823),"Aslan",
(format(p.dogumtarihi,"mmdd") between 823 and 922),"Başak",
(format(p.dogumtarihi,"mmdd") between 923 and 1023),"Terazi",
(format(p.dogumtarihi,"mmdd") between 1024 and 1122),"Akrep",
(format(p.dogumtarihi,"mmdd") between 1123 and 1221),"Yay",
True,"Oğlak") as Burç
FROM personel as p;
SELECT a.Ad, a.Soyad, a.DogumTarihi, b.burc_adi
FROM personel AS a, burclar_table AS b
WHERE FORMAT(a.dogumtarihi,"mmdd") > b.baslama
AND FORMAT(a.dogumtarihi,"mmdd") < b.bitis
ORDER BY a.Ad, a.Soyad, a.DogumTarihi
Public Function beab_burclar(dtarih As Date)
Select Case Format(dtarih, "mmdd")
Case 321 To 420
beab_burclar = "KOÇ"
Case 421 To 520
beab_burclar = "BOĞA"
Case 521 To 621
beab_burclar = "İKİZLER"
Case 622 To 722
beab_burclar = "YENGEÇ"
Case 723 To 822
beab_burclar = "ASLAN"
Case 823 To 922
beab_burclar = "BAŞAK"
Case 923 To 1023
beab_burclar = "TERAZİ"
Case 1024 To 1122
beab_burclar = "AKREP"
Case 1123 To 1221
beab_burclar = "YAY"
Case Is >= 1222
beab_burclar = "OĞLAK"
Case Is <= 120
beab_burclar = "OĞLAK"
Case 121 To 218
beab_burclar = "KOVA"
Case 219 To 320
beab_burclar = "BALIK"
Case Else
beab_burclar = "EJDERHA"
End Select
End Function