Access de tarihe göre sorgu

[musti60]

tabloda karşılığı olan form sayfasına belirlediğim krıterlere göre bilgi giriyorum. bunların içinde de bilginin (kişi) girildiği tarihi yazıyorum. Bana gerekli olan mesela 15.08.2005 tarihinde, 16.08.2005 tarihinde, 17.08.2005 tarihinde, 18.08.2005 tarihinde kaç kişiyi form sayfasına kayıt yapmışım. böyle bir sorgu, her satırda tarih ve kayıt yapılan kişi sayısını göstersin. şimdiden ilgilenen arkadaşlara selamlar.

 

[rcekinir]

Sayın musti60
örnek bir dosya gönderirseniz yardımcı olabilirim.
saygılar

 

[çömez]

MERHABA
Query'de tarih kısmının altına Between(16/08/2005)and(18/08/2005) olarak yazarsan istediğin tarih aralığını bulursun.
Kolay gelsin :wink:

 

[murat2002]

Daha açıklyacıcı bir cevap yazarsanız sevinirim.

benimde böyle bir uygulamaya ihittyacım var .Nasıl yapılabileceğini biraz daha açrasanız sevinirim.

 

[esrefigit1]

yeni bir seçme sorgusu yapın ve tarih bölümüne dikkat edin mutlaka tarih olmalı
metin olmamalı yani tabloda
ve sorguda tarih sütununun ölçüt formuna Between(Forms!Form1!İlktarih)and(Forms!Form1!ikincitarih)

yada gönderdiğim formdaki gibi hızlı bir şekilde bilgileri listeye alın 1 yazınca 1 ile başlayan tarihleri 12 yazınca 12 ile başlayan tarihleri yada 12.05.2005 yazınca 12.05.2005 tarihli kayıtları listede göstersin artık siz liste ile ne yapacağınızı düşünün

burada ekleme yeri yokmuş
ben kodu yazayım anlamayan sorsun


Private Sub TextBox7_Updated(Code As Integer)
Dim txtSearchString As Variant
Dim strSQL As String

txtSearchString = Me![TextBox7]

If Not IsNull(Me![TextBox7]) Then
strSQL = "SELECT [Tablo1].[a],[Tablo1]. FROM [Tablo1] "
strSQL = strSQL & "WHERE (([Tablo1].) Like '" & txtSearchString & "*') "

End If

Me!Liste12.RowSource = strSQL
End Sub

Private Sub A_Updated(Code As Integer)
Dim txtSearchString As Variant
Dim strSQL As String

txtSearchString = Me![A]


If Not IsNull(Me![A]) Then
strSQL = "SELECT [Tablo1].[a],[Tablo1]. FROM [Tablo1] "
strSQL = strSQL & "WHERE (([Tablo1].) Like '" & txtSearchString & "*' ) "

End If

Me!Liste12.RowSource = strSQL
End Sub

Private Sub Form_Current()
Dim strSQL As String
strSQL = "SELECT [Tablo1].[a],[Tablo1]. FROM [Tablo1] "
Me!Liste12.RowSource = strSQL
End Sub

burdaki b tarih

 

[murat2002]

ben bir şey anlamadım işin açığı benim acsses de hazırlamış olduğum bir formum var bu yazmış olduğunuz tarih aralığını bu forma nasıl adepte edebiliriz. örnek dosya www.gaziantepcicek.com/beta.mdb de bulunmaktadır.Ayrıca bide mesela sevkiyatı yapılsın veya yapılmasın diye bölün oluşturduğumda sevkiyatı yapılmamış olan firmaları ve ürünleri listeliye bilirim.

 

[esrefigit1]

irtibata geç anlatayım

esrefigit@hotmail.com senin projeni açmıyor benim bilgisayar