Problemer med WHERE
Hvorfor virker nedenstående ikke. Når jeg afvikler koden kommer der en fejl der hedder "invalid cloumn name 'Konto'".Jeg ønsker kun at se de data som er >= det som brugeren taster i
inputboxen. Nedenstående kode er lavet i Excel.
Håber der er nogen der kan hjælpe mig
Sub LavQT()
Dim sConn As String
Dim sSql As String
Dim oQt As QueryTable
Dim Konto As String
sConn = "ODBC;DSN=XALODBC;"
sConn = sConn & "UID=xal_supervisor;;APP=Microsoft Office 2003;WSID=DBI-CITRIX1;DATABASE=xaldb;Network=DBMSSOCN"
Konto = InputBox("Indtast kontonummer", "Accountnumber")
sSql = "SELECT DEBTABLE.ACCOUNTNUMBER, DEBTABLE.NAME, DEBTABLE.ADDRESS3 FROM xaldb.dbo .DEBTABLE DEBTABLE WHERE DebTable.AccountNumber >= Konto ORDER BY DEBTABLE.ACCOUNTNUMBER" _
Set oQt = ActiveSheet.QueryTables.Add( _
Connection:=sConn, _
Destination:=Range("a1"), _
Sql:=sSql)
oQt.Refresh
End Sub