AccessTr.neT
Tarih bos ise en küçük ve en büyük değer - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tarih bos ise en küçük ve en büyük değer (/konu-tarih-bos-ise-en-kucuk-ve-en-buyuk-deger.html)

Sayfalar: 1 2


Tarih bos ise en küçük ve en büyük değer - orhantanriverdi - 17/04/2012

Ekteki tabloda ana menude bulunan start date ve finishdate 13/4/12 ve 15/4/12 tarıhlerini seçtiğimde Material received report"a tıkladığımda rapor iki tarih arasında ne varsa onu getiriyor. Benim yapmak istediğim ise ben hiç bir şekilde tarih seçmeden direk olarak Material received report"a tıkladığımda raporda ne var ne yok hepsini açmasıdır. Umarım anlatabilmişimdir.

Saygılar



ConcretePlant.rar



Cvp: Tarih bos ise en küçük ve en büyük değer - accessman - 17/04/2012

ilgili butonun kodunu bununla değiştir dene bakalım olacak mı
Kod:
Private Sub toplammaterialcmd_Click()
On Error GoTo Err_toplammaterialcmd_Click

    Dim stDocName As String
    
baslamatarih = IIf(IsNull([baslamatarih]), (DLookup("[Entrydate]", "raporgiris", "cstr(Entrydate)='" & CStr(DMax("Entrydate", "raporgiris")) & "'")), [baslamatarih])
bitistarih = IIf(IsNull([bitistarih]), (DLookup("[Entrydate]", "raporcikis", "cstr(Entrydate)='" & CStr(DMax("Entrydate", "raporcikis")) & "'")), [bitistarih])
    
    stDocName = "raporgircik"
    DoCmd.OpenReport stDocName, acViewPreview
Exit_toplammaterialcmd_Click:
    Exit Sub

Err_toplammaterialcmd_Click:
    MsgBox Err.Description
    Resume Exit_toplammaterialcmd_Click
    
End Sub


mantıken girmeden çıkamaz diye
en küçük tarihi giriş tablosunun en küçük tarihi
en büyük tarihi de çıkış tablosunun en büyük tarihinden aldım


Cvp: Tarih bos ise en küçük ve en büyük değer - orhantanriverdi - 17/04/2012

Sorunsuz çalıştı teşekkür ederim. hocam


Cvp: Tarih bos ise en küçük ve en büyük değer - accessman - 17/04/2012

şu tıklama olayını da aşağıdaki kod ile değiştirin
Kod:
Private Sub Temizlecmd_Click()
Me.baslamatarih = Null
Me.bitistarih = Null
Me.baslamatarih.SetFocus
End Sub




Cvp: Tarih bos ise en küçük ve en büyük değer - orhantanriverdi - 17/04/2012

değiştirdim hocam tamamdır. Konu cevaplanmıştır. Saygılar


Cvp: Tarih bos ise en küçük ve en büyük değer - accessman - 17/04/2012

yalnız bu çözüm hata verebilirçünkü
ilk tarih giriş tablosunun ilk tarihi mantıklı olmakla birlikte
son tarih herzaman çıkış tablosunun son tarihi olmayabilir
mesela
bugun itibariyle bir giriş olup henüz bugün çıkış yapılmadıysa
bugun giren malzemeler gözükmez
bu durumda bir union sorgu ile her iki tablonun tarihleri bir yere toplanır
ve bu sorgudaki en büyük ve en küçük tarihler kullanılır