| Facebook ile Bağlan | Twitter İle Bağlan | Google+ İle Bağlan

Tarih Kriterine Göre En Yüksek Değer

ALTANs

Access Cevaplanmış Soruları

2664

22/04/2017, 23:02 #6

Aktif Üye

ALTANs

Bul

Aktif Üye*

Adı Soyadı: ME.... AL....

Yaşı: 36

Konum: Balıkesir

Ofis Versiyonu: Ofis 2010 32 Bit

Son Oturumu: 16/09/2023,20:26

Yorumları: 97

Konuları: 30

Kayıt Tarihi: 10/02/2014

Teşekkür Puanı: 0

Mesleğiniz: BİLİŞİM TEKNOLOJİLER

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