Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Problems with .Refresh BackgroundQuery:=False
Hello!!!! My name is David and I'm a Spanish boy so perhaps my English is not as good as it would be in order to explain my problem, but I'll try. First of all, thank you in advance for all your help because I'm sure that with your support my application will work in a good way. The problem is that I've got the next piece of code: Sub Busqueda(Dia As Date) ' ' Busqueda Macro ' Macro grabada el 04/07/2005 por s602043 ' ' With ActiveSheet.QueryTables.Add(Connection:= _ "ODBC;DSN=*****;UID=SMP;PWD=****;SERVER=****;" , Destination:=Range( _ "A7")) .CommandText = Array( _ "SELECT T_BLOC_ARRET.I_ZON_NUMERO, T_BLOC_ARRET.C_BA__DATE_DE_DEBUT, T_BLOC_ARRET.C_BAP_LIBELLE_ARRET, T_POSTE_ARCHIVE.I_HPO_DATE" & Chr(13) & "" & Chr(10) & "FROM SMP.T_BLOC_ARRET T_BLOC_ARRET, SMP.T_POSTE_ARCHIVE T_POSTE_ARCHIV" _ , _ "E" & Chr(13) & "" & Chr(10) & "WHERE T_BLOC_ARRET.I_HPO_NUMERO = T_POSTE_ARCHIVE.I_HPO_NUMERO AND T_BLOC_ARRET.I_ZON_NUMERO = T_POSTE_ARCHIVE.I_ZON_NUMERO AND T_BLOC_ARRET.C_BA__DATE_DE_DEBUT " & Dia & " AND ((T_BLOC_ARRET.I_ZON_NUMERO=1002))") .Name = "Consulta desde *****" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = True .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=False End With End Sub I've got a form that gets information from the user (this information is the date), after that, a macro that is called "Busqueda" receives the information from the form and executes some SQL code. I think that the main problem is when the information is sent to the worksheet but I don't know because the error that appears on the screen is: Error 1004, ODBC connection Then, a yellow narrow points to the line: .Refresh BackgroundQuery:=False What can I do with this error?????. I'm in a hurry so please!!!!!! answer me as soon as possible. Thank you, David. -- dmplacebo ------------------------------------------------------------------------ dmplacebo's Profile: http://www.excelforum.com/member.php...o&userid=25095 View this thread: http://www.excelforum.com/showthread...hreadid=386087 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
symbol for divison problems; divison formula | Excel Discussion (Misc queries) | |||
Problems with Excel 2003 after downloading Office SP1 | Excel Discussion (Misc queries) | |||
problems with Sharing excel files | Excel Discussion (Misc queries) | |||
"Problems during load" | Excel Discussion (Misc queries) | |||
I am having problems creating pivot table of data | Charts and Charting in Excel |