Tarih sorgulamadaki Hata..

[TRUSA]

Merhaba arkadaslar,
Asagidaki kodlardan olusan bir macro yazdim. Fakat "Missing semicolon ; at end of SQL statement" hata mesaji veriyor bir turlu duzeltemedim.
-----------------------------------------------------------------------------------------
Private Sub Command143_Click()
Const cInvalidDateError As String = "Gecersiz Tarih Girdiniz !."
Dim strWhere As String
Dim strError As String
Dim db As Database
Dim rc As Recordset
Dim strSQL As String
Set db = CurrentDb()

strSQL = "TRANSFORM Count([Ana Tablo].[Guvensiz Davranis Kategorisi]) AS [CountOfGuvensiz Davranis Kategorisi]"
strSQL = "SELECT [Ana Tablo].[Denetmen ADI SOYADI], [Ana Tablo].[Guvensiz Davranis Kategorisi], [Ana Tablo].[Guvensiz Davranis Aciklamasi],Sum(Switch([Ana Tablo].[Son Durum]='Acik',1,[Ana Tablo].[Son Durum]='Kapali',1)) AS Toplam "
strSQL = strSQL & " FROM [Ana Tablo] AS [Ana Tablo]"

strWhere = " WHERE (([Ana Tablo].[Denetmen ADI SOYADI]))"
If IsDate(Me.Text144) Then
strWhere = strWhere & " And " & "[Ana Tablo].[Denetlenen TARIH] >= " & GetDateFilter(Me.Text144)
ElseIf Nz(Me.Text144) <> "" Then
strError = cInvalidDateError
End If
If IsDate(Me.Text146) Then
strWhere = strWhere & " And " & "[Ana Tablo].[Denetlenen TARIH] <= " & GetDateFilter(Me.Text146)
ElseIf Nz(Me.Text146) <> "" Then
strError = cInvalidDateError
End If

strWhere = strWhere & " GROUP BY [Ana Tablo].[Denetmen ADI SOYADI], [Ana Tablo].[Guvensiz Davranis Kategorisi], [Ana Tablo].[Guvensiz Davranis Aciklamasi]"
strWhere = strWhere & " ORDER BY [Ana Tablo].[Denetmen ADI SOYADI]"
strWhere = strWhere & " PIVOT [Ana Tablo].[Son Durum]"

Set rc = db.OpenRecordset(strSQL & strWhere, dbOpenSnapshot)
Set Me.GuvensizDavranisIstatisticTabloDenetmen_subform.Form.Recordset = rc
End Sub

-----------------------------------------------------------------------------------------
Yardimlariniz icin simdiden tesekkurler.....

 

[adnanyurdakul]

Sayın trusa Hata oranı biraz fazla gibi isterseniz dosyanızı ekeleyin daha net çözüm bulursunuz

strSQL = "TRANSFORM Count([Ana Tablo].[Guvensiz Davranis Kategorisi]) AS [CountOfGuvensiz Davranis Kategorisi]"
strSQL =strSQL "SELECT [Ana Tablo].[Denetmen ADI SOYADI], [Ana Tablo].[Guvensiz Davranis Kategorisi], [Ana Tablo].[Guvensiz Davranis
tarih alanındaki sorgulamalarda her türlü hatanın önüne geçmek içi clng(cdate(metin10)) şekline getirip sorgulayın hata oluşmaz netice olarak bu sorgunun sağlam temellere oturtulması gerekir.İyi çalışmalar

 

[TRUSA]

Tesekkurler sayin adnanyurdakul,

Dosyamin size cok buyuk oldugundan ekleyemiyorum. clng(cdate(metin10)) seklinde denedim olmadi. Ama
Bir suredir ugrasip cozemedigim diger sorunum sayenizde halloldu.

Yardimlariniz ve paylasimciliginiz icin sonsuz tesekkurler..