.Refresh BackgroundQuery:=False hatası

[cavanoos]

Merhaba arkadaşlar;

Verirabanına bağlanıp listeleme yapıyorum.Ama
.Refresh BackgroundQuery:=False
bu hatayı alıyorum.Sebebi nedir ?

 

[cavanoos]

Arkadaşlar;

Makro kodum alttadır.Belki sorun makro kodunun içindedir diye ekledim.
Bu makro kodu çalışıyordu.Ama
tbStokFisiMaster.lFisNo" & (UserForm1.TextBox1) & "
bu satırı ekleyince bozuldu.Textbox1 üzerinde yazdığım bir rakamı alması gerekiyor.Acaba bu kodun,bu bölümünde yanlış yazılmamı olmuş ?
Yardım edebilir misiniz ?


Private Sub CommandButton3_Click()
Sheets("Sayfa1").Select
Cells.Select
Selection.ClearContents
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"ODBC;DRIVER=SQL Server;SERVER=TEANSERVER;UID=Uuuuuu;pwd=cava;APP=2007 Microsoft Office system;WSID=TERGANSERVER;DATABASE=OPEN2010" _
, Destination:=Range("$F$2")).QueryTable
.CommandText = Array( _
"SELECT tbStokFisiMaster.bMuhasebeyeIslendimi, tbStokFisiMaster.dteFisTarihi, tbStokFisiMaster.lFisNo" & (UserForm1.TextBox1) & "FROM OPEN2010.dbo.tbStokFisiMaster tbStokFisiMaster" & Chr(13) & "" & Chr(10) & "WHERE (tbStokFisiMaster.lFisNo=391867)" _
)
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Tablo_Entegre_Olmuş_Faturalar"
.Refresh BackgroundQuery:=False
End With
Range("E2").Select

 

[cavanoos]

Arkadaşlar;

Ben sorunumu çözdüm.

 

[mersilen]

Merhaba
bende aynı hatayı alıyorum
sorunu nasıl çözdünüz

 

[baydeniro]

Sayın cavanoos, ben de merak ettim. Nasıl çözüldüğünü yazsanız !!

 

[Taruz]

Merhaba
bende aynı hatayı alıyorum
sorunu nasıl çözdünüz

Sayın cavanoos, ben de merak ettim. Nasıl çözüldüğünü yazsanız !!

Merhaba..

Arkadaşımız From tanımı arkasında boşluk bırakmadığından alan adı ile yapışık kalmış..

Çözümü boşluk vererek bulmuştur..:

"SELECT tbStokFisiMaster.bMuhasebeyeIslendimi, tbStokFisiMaster.dteFisTarihi, tbStokFisiMaster.lFisNo" & (UserForm1.TextBox1) & " FROM OPEN2010.dbo.tbStokFisiMaster tbStokFisiMaster" & Chr(13) & "" & Chr(10) & "WHERE (tbStokFisiMaster.lFisNo=391867)"