Hi --
Sure i send loads of stuff, need email thou i use a pals at work, i must get email at home - so i could send now.. i have wonderful codes... all i have championed.
Rdgs
==========
Jack
Hang on.... i have a doggy floppy somewhere for years back... poss lucky
you in luck this is Unix download ODBC i wrote 2 yeas back, updated no all i have at home
>>>>>>
'Sheets("3 Oct 2000 11~49~27").Select
'Sheets("3 Oct 2000 11~49~27").Move Before:=Sheets(7)
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=Kopen3 Live;UID=JACK;;SERVER=ufsvr20;DBNAME=KO3LIVE;LUID=JACK;", _
Destination:=Range("A1"))
.Sql = Array( _
"SELECT ""Sales Ledger Transactions Co 01"".""Customer Code"", ""Sales Ledger Transactions Co 01"".""Invoice Number"", ""Sales Ledger Transactions Co 01"".""Invoice Date"", ""Sales Ledger Transactions Co 01"".""Invoi" _
, _
"ce Value (Curr)"", ""Sales Ledger Transactions Co 01"".Status" & Chr(13) & "" & Chr(10) & "FROM ""Sales Ledger Transactions Co 01"" ""Sales Ledger Transactions Co 01""" & Chr(13) & "" & Chr(10) & "WHERE (""Sales Ledger Transactions Co 01"".""Invoice Value (Curr)""<>0" _
, _
") AND (""Sales Ledger Transactions Co 01"".Status<>'P')" & Chr(13) & "" & Chr(10) & "ORDER BY ""Sales Ledger Transactions Co 01"".""Customer Code"", ""Sales Ledger Transactions Co 01"".""Invoice Date""" _
)
.FieldNames = True
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = False
.SaveData = True
End With
Columns("D:D").Select
Selection.Style = "Currency"
Range("A1").Select
add into module assign button etc.... might need to edit a bit thou :
or this is AS400 which has decided the floppy is knackered ermmm... i have at work as400 copy email address abnd ill send
>>>>>>>