Merhaba arkadaşlar,
excelde vba kullanarak sql server bağlantılı bir rapor yapmaya çalışıyorum iki tarih arasında rapor almam gerekiyor ama nerde hata yaptığı bir türlü bulamadım parantez ya da noktalama işaretlerinde bir hata olduğunu sanıyorum bi türlü de çözemedim.
compile error --- expected: end ot statement şeklinde hata alıyorum.
Çok teşekkürler.
Private Sub CommandButton1_Click()
Dim tarih1 As Date
Dim tarih2 As Date
'Range("c2") = TextBox3
'Range("e2") = TextBox4
If TextBox1.Value = "" Then
MsgBox "Lütfen tarih giriniz!"
Else
tarih1 = TextBox3.Value
tarih2 = TextBox4.Value
tarih1 = Format(TextBox3, "dd.mm.yyyy")
tarih2 = Format(TextBox4, "dd.mm.yyyy")
Unload UserForm1
'SQL BAĞLANTI KODLARI
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER=SQL Server;SERVER=LOGOSERVER;UID=*****;APP=Microsoft Office XP;WSID=MUHASEBE;DATABASE=****;Trusted_Connection=Yes" _
, Destination:=Range("A3"))
.CommandText ="(SELECT LG_009_01_CLFLINE.DATE_FROM FUJI.dbo.LG_009_01_CLFLINE LG_009_01_CLFLINE WHERE (LG_009_01_CLFLINE.DATE_ >= "&tarih1&" And LG_009_01_CLFLINE.DATE_ <= "&tarih2&"))
excelde vba kullanarak sql server bağlantılı bir rapor yapmaya çalışıyorum iki tarih arasında rapor almam gerekiyor ama nerde hata yaptığı bir türlü bulamadım parantez ya da noktalama işaretlerinde bir hata olduğunu sanıyorum bi türlü de çözemedim.
compile error --- expected: end ot statement şeklinde hata alıyorum.
Çok teşekkürler.
Private Sub CommandButton1_Click()
Dim tarih1 As Date
Dim tarih2 As Date
'Range("c2") = TextBox3
'Range("e2") = TextBox4
If TextBox1.Value = "" Then
MsgBox "Lütfen tarih giriniz!"
Else
tarih1 = TextBox3.Value
tarih2 = TextBox4.Value
tarih1 = Format(TextBox3, "dd.mm.yyyy")
tarih2 = Format(TextBox4, "dd.mm.yyyy")
Unload UserForm1
'SQL BAĞLANTI KODLARI
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER=SQL Server;SERVER=LOGOSERVER;UID=*****;APP=Microsoft Office XP;WSID=MUHASEBE;DATABASE=****;Trusted_Connection=Yes" _
, Destination:=Range("A3"))
.CommandText ="(SELECT LG_009_01_CLFLINE.DATE_FROM FUJI.dbo.LG_009_01_CLFLINE LG_009_01_CLFLINE WHERE (LG_009_01_CLFLINE.DATE_ >= "&tarih1&" And LG_009_01_CLFLINE.DATE_ <= "&tarih2&"))