waiting Query result

[Paolo9001]

Hi,
I've a query ...

Connstring =
"ODBC;DSN=simic;ArrayFetchOn=1;ArrayBufferSize=8;DBQ=simic;OpenMode=0;DecimalSymbol=,;ClientVersion=8.10.117.017;CodePageConvert=1252"

Sqlstring = "SELECT CentriDiProfitto.CodCentroProfitto,
CentriDiProfitto.Descrizione "
Sqlstring = Sqlstring & "FROM CentriDiProfitto "
Sqlstring = Sqlstring & "WHERE (((CentriDiProfitto.Stato)<>1)) "

With ActiveSheet.QueryTables.Add(Connection:=Connstring, _
Destination:=Worksheets("Commesse").Range("A1"), Sql:=Sqlstring)
.Refresh
End With

.....
.....

With Worksheets("Commesse")
.Visible = xlSheetVisible
.Select
.Cells.Copy
End With

With Worksheets("Commesse.tmp")
.Cells.PasteSpecial Paste:=xlPasteValues
.Select
.Range("A1").Select
End With

Worksheets("Commesse").Visible = xlSheetVeryHidden
.................................

After the query I copy the cells of "commesse" into "commesse.tmp" and I
hidden the sheet.
But the query has not terminate, and I copy only 1 o 2 row.

How I can wait the end of the query?

 

[Norman Jones]

Hi Paolo,

See the BackgroundQuery propert in VBA help.

Try changing:

.Refresh

to

.Refresh BackgroundQuery:=False