- Katılım
- 28 Eylül 2005
- Mesajlar
- 176
- Excel Vers. ve Dili
- Microsoft Office Excel 2010 Ingilizce
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.....
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.....