Merhaba
Form2 formunda Ay Seç kısmından 01.01.2017 tarihi seçildiğinde sorgula butonuna basılınca ciro_kat sorgusu üzerinden belirtilen tarihte ve sorguda d_kat = KAT -1 koşulunu sağlayan en yüksek ciro kazanmış firmanın adını Ayın en iyi cirosu (metin18) e yazdırmam ve metin20 ye de koşullar aynı sadece en düşük ciro kazanmış dükkanın adını yazdırmam gerekiyor. Yardımcı olursanız sevinirim.
sayın ALTANs,
bahsettiğiniz talebinize yönelik olarak;
öncelikle,kendi adıma geçerli olmak sureti ile eklediğiniz örnek uygulama üst sürüm olması gerekçesi ile inceleme imkanım olmamaktadır fakat bir fikir vermesi ve alternatif olarak değerlendirilmesi temennisi amacı ile,
EK'te,
basit olarak hazırlanmış olan örnek uygulama mevcuttur.inceleyebilirsiniz.
NOT
tabloda da yer aldığı üzere,tarih olarak form üzerinde 01/01/2017 tarihini seçiniz.
bilginize...iyi çalışmalar,saygılar.
sayın ALTANs,
naçizane tavsiye olması adına,bir hususa da dikkatinizi çekip bilgilendirmek isterim.
her bir yeni konunuza örnek uygulama eklerken,aynı isimle eklememeye özen gösteriniz.(daha önceki konularınızdaki gibi...)
her bir konuya ekleyeceğiniz uygulamanın adını:
1)
ister günün tarihine göre Yuksekdeger_07032017.mdb gibi ve yine aynı konuda geliştirilmiş halde o konuya dair başka eklenecekler olursa yine Yuksekdeger_07032017_a.mdb, Yuksekdeger_07032017_b.mdb gibi yazabilirsiniz.
2)
isterseniz de,Yuksekdeger.mdb gibi ve yine o konuda başka eklenecek olursa Yuksekdeger2.mdb,Yuksekdeger3.mdb gibi yazabilirsiniz.
böylece,olası muhtemel cevap bekleyen sorularınız mevcutsa,hangi uygulamanın hangi konu için olduğunu,katılımcılara kolaylık sağlama açısından rahat bir inceleme imkanı sağlarsınız.
bilginize...iyi çalışmalar,saygılar.
Hocam eline sağlık güzel oldu fakat eğer tarih yoksa hata mesajı verip kalıyor. bunu bir uyarı mesajı seçtiğiniz tarihde ciro hareketi yoktur gibi bi mesaj ile atlatabilirmyiiz.?
Me.Metin18 = DMax("f_kisaad", "ciro_kat", "m_tarih=#" & Format(Me.Metin32, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'")
Me.Metin20 = DMin("f_kisaad", "ciro_kat", "m_tarih=#" & Format(Me.Metin32, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'")
İnceleyip olumlu olumsuz bildirimde bulununuz.
Private Sub itarih_Change()
'ATOZ112
'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.
Me.Komut15.SetFocus
If Nz(DLookup("cirosu", "Tablo1", "tarih=#" & Format(Me.itarih, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'"), 0) <> 0 Then
Me.Metin11 = DMax("cirosu", "Tablo1", "tarih=#" & Format(Me.itarih, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'")
Me.Metin13 = DMin("cirosu", "Tablo1", "tarih=#" & Format(Me.itarih, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'")
Else
MsgBox ("Bu Aya Ait Veri Yoktur")
End If
End Sub
kendime uyarlardım elinize sağlık hocam
Private Sub Komut35_Click()
'Me.Metin18 = DMax("f_kisaad", "ciro_kat", "m_tarih" = "#" & Me.Metin32 & "#")
Me.Komut35.SetFocus
If Nz(DLookup("m_ciro", "ciro_kat", "m_tarih=#" & Format(Me.Metin32, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'"), 0) <> 0 Then
Me.Metin18 = DMax("f_kisaad", "ciro_kat", "m_tarih=#" & Format(Me.Metin32, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'")
Me.Metin20 = DMin("f_kisaad", "ciro_kat", "m_tarih=#" & Format(Me.Metin32, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'")
Me.Metin41 = DMax("m_ciro", "ciro_kat", "m_tarih=#" & Format(Me.Metin32, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'")
Me.Metin43 = DMin("m_ciro", "ciro_kat", "m_tarih=#" & Format(Me.Metin32, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'")
Me.Liste26.Requery
Else
MsgBox ("Bu Aya Ait Veri Yoktur")
End If
End Sub