Dynamic Cross-Tabs/Pivot Tables

PROCEDURE:

 
CREATE PROCEDURE crosstab
@select varchar(8000),
@sumfunc varchar(100),
@pivot varchar(100),
@table varchar(100)
AS

DECLARE @sql varchar(8000), @delim varchar(1)
SET NOCOUNT ON
SET ANSI_WARNINGS OFF

EXEC ('SELECT ' + @pivot + ' AS pivot INTO ##pivot FROM ' + @table + ' WHERE 1=2')
EXEC ('INSERT INTO ##pivot SELECT DISTINCT ' + @pivot + ' FROM ' + @table + ' WHERE '
+ @pivot + ' Is Not Null')

SELECT @sql='',  @sumfunc=stuff(@sumfunc, len(@sumfunc), 1, ' END)' )

SELECT @delim=CASE Sign( CharIndex('char', data_type)+CharIndex('date', data_type) )
WHEN 0 THEN '' ELSE '''' END
FROM tempdb.information_schema.columns
WHERE table_name='##pivot' AND column_name='pivot'

SELECT @sql=@sql + '''' + convert(varchar(100), pivot) + ''' = ' +
stuff(@sumfunc,charindex( '(', @sumfunc )+1, 0, ' CASE ' + @pivot + ' WHEN '
+ @delim + convert(varchar(100), pivot) + @delim + ' THEN ' ) + ', ' FROM ##pivot

DROP TABLE ##pivot

SELECT @sql=left(@sql, len(@sql)-1)
SELECT @select=stuff(@select, charindex(' FROM ', @select)+1, 0, ', ' + @sql + ' ')

EXEC (@select)


USAGE:
execute crosstab
'select ItemNo from vtbl_ModelStock Group By ItemNo', 'sum(ModelStockQty)', 'CompanyID', 'vtbl_ModelStock'
SET ANSI_WARNINGS ON
SOURSE:
http://www.sqlteam.com/article/dynamic-cross-tabs-pivot-tables

microsoft office access was unable to create an mde database

MS Access Error :
"microsoft office access was unable to create an mde database"
Solution:
- Run MSACCESS.EXE /decompile
- Edit a form that contains a code/event
- On Microsoft VB code click Debug then Compile the project - this will remove all the unnecessary codes.
- Save it back then recreate an MDE