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