Help: runtime error - Method seriescollection object_chart failed

Hello, 

I have a draw chart sub which generates a runtime error "method
seriescollection object_chart failed" from time to time. It doesn't
happen all the time, probaly around 15% of the time. Below is the full
code. I'm running out of ideas now in terms of how to fix the problem.
Please help!!

Thanks a lot
---------------------------------------------------------------------------------------------------
Sub drawChart(nYears As Integer)

Dim TempChartObjA As ChartObject
Dim TempChartObjB As ChartObject
Dim TempChartObjC As ChartObject
Dim TempChartObjD As ChartObject
Dim chartCount As Integer
Dim i As Integer
Dim TempSeriesCollection As SeriesCollection

Call drawCheckBox(nYears)

chartCount = Worksheets("DashBoard").ChartObjects.Count
If chartCount > 0 Then
For i = 1 To chartCount
Worksheets("DashBoard").ChartObjects(1).Delete
Next i
End If

'reset the average line check boxes
Worksheets("DashBoard").cb_DailyAverage.Visible = True
Worksheets("DashBoard").cb_DailyAverage.Value = False
Worksheets("DashBoard").cb_DailyAveragePercent.Visible = False
Worksheets("DashBoard").cb_DailyAveragePercent.Value = False

Set TempChartObjA = Worksheets("DashBoard").ChartObjects.Add(0, 0,
700, 300)
Set TempChartObjC = Worksheets("DashBoard").ChartObjects.Add(0, 0,
700, 300)
Set TempChartObjB = Worksheets("DashBoard").ChartObjects.Add(0, 0,
700, 300)
Set TempChartObjD = Worksheets("DashBoard").ChartObjects.Add(0, 0,
700, 300)

TempChartObjA.Name = "chartGDM"
TempChartObjC.Name = "chartGDMPercent"
TempChartObjB.Name = "chartIFERC"
TempChartObjD.Name = "chartIFERCPercent"

TempChartObjA.Activate
ActiveChart.chartType = xlLineMarkers
TempChartObjC.Activate
ActiveChart.chartType = xlLineMarkers

If ifercHasCharts Then
Worksheets("DashBoard").cb_MonthlyAverage.Visible = False
Worksheets("DashBoard").cb_MonthlyAverage.Value = False
Worksheets("DashBoard").cb_MonthlyAveragePercent.Visible =
False
Worksheets("DashBoard").cb_MonthlyAveragePercent.Value = False

TempChartObjB.Activate
ActiveChart.chartType = xlLineMarkers
TempChartObjD.Activate
ActiveChart.chartType = xlLineMarkers
End If


'Add new series data to the series collection to charts
For i = 0 To nYears
' chartGDM
TempChartObjA.Activate
'On Error Resume Next
'Worksheets("DataMap").ShowAllData
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i + 1).XValues =
"=DataMap!dateAxisAll"
ActiveChart.SeriesCollection(i + 1).Name = "Year " &
Year(Now()) - i
ActiveChart.SeriesCollection(i + 1).Values =
"=DataMap!DataYear" & Year(Now()) - i


ActiveChart.SeriesCollection(i + 1).Select
With Selection.Border
..Weight = xlThin
..LineStyle = xlAutomatic
End With
With Selection
..MarkerBackgroundColorIndex = xlAutomatic
..MarkerForegroundColorIndex = xlAutomatic
..MarkerStyle = xlSquare
..Smooth = False
..MarkerSize = 3
..Shadow = False
End With

' chartGDMPercent
TempChartObjC.Activate
'On Error Resume Next
'Worksheets("DataMap").ShowAllData
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i + 1).XValues =
"=DataMap!dateAxisAll"
ActiveChart.SeriesCollection(i + 1).Name = "Year " &
Year(Now()) - i
ActiveChart.SeriesCollection(i + 1).Values =
"=DataMap!DataYearPercent" & Year(Now()) - i

ActiveChart.SeriesCollection(i + 1).Select
With Selection.Border
..Weight = xlThin
..LineStyle = xlAutomatic
End With
With Selection
..MarkerBackgroundColorIndex = xlAutomatic
..MarkerForegroundColorIndex = xlAutomatic
..MarkerStyle = xlSquare
..Smooth = False
..MarkerSize = 3
..Shadow = False
End With

If ifercHasCharts Then
'chartIFERC
TempChartObjB.Activate
'On Error Resume Next
'Worksheets("DataMap").ShowAllData
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i + 1).XValues =
"=DataMap!ifercChartMonthAxis"
ActiveChart.SeriesCollection(i + 1).Name = "Year " &
Year(Now()) - i
ActiveChart.SeriesCollection(i + 1).Values =
"=DataMap!IFERCDataYear" & Year(Now()) - i
ActiveChart.SeriesCollection

'chartIFERCPercent
TempChartObjD.Activate
'On Error Resume Next
'Worksheets("DataMap").ShowAllData
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i + 1).XValues =
"=DataMap!ifercChartMonthAxis"
ActiveChart.SeriesCollection(i + 1).Name = "Year " &
Year(Now()) - i
ActiveChart.SeriesCollection(i + 1).Values =
"=DataMap!IFERCDataYearPercent" & Year(Now()) - i
ActiveChart.SeriesCollection
End If
Next i

TempChartObjA.Activate

With ActiveChart
..HasTitle = True
..ChartTitle.Text = "Gas Daily Average Spread: Receiving " &
Worksheets("SymbolMap").Range _
("longLoc") & "- Delivery " &
Worksheets("SymbolMap").Range("shortLoc")
End With

ActiveChart.Axes(xlValue).TickLabels.NumberFormat =
"$#,##0.0_);[Red]($#,##0.0)"

ActiveChart.Axes(xlCategory).Select
With Selection.Border
..ColorIndex = 57
..Weight = xlMedium
..LineStyle = xlContinuous
End With
With Selection
..TickLabelSpacing = 20
..MajorTickMark = xlNone
..MinorTickMark = xlNone
..TickLabelPosition = xlLow
End With
ActiveChart.Axes(xlValue).MajorGridlines.Select
With Selection.Border
..ColorIndex = 57
..Weight = xlHairline
..LineStyle = xlGray50
End With

ActiveChart.PlotArea.Select
With ActiveChart
..Axes(xlCategory, xlPrimary).HasTitle = True
..Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text =
"Date"
..Axes(xlValue, xlPrimary).HasTitle = True
..Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Spread"
End With
With ActiveChart.Axes(xlCategory)
..HasMajorGridlines = True
..HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
..HasMajorGridlines = True
..HasMinorGridlines = False
End With
ActiveChart.Axes(xlCategory).MajorGridlines.Select
With Selection.Border
..ColorIndex = 57
..Weight = xlHairline
..LineStyle = xlGray50
End With
With ActiveChart.Axes(xlCategory)
..CrossesAt = 1
..TickLabelSpacing = 20
..TickMarkSpacing = 20
..AxisBetweenCategories = True
..ReversePlotOrder = False
End With

'####################################################
TempChartObjC.Activate

With ActiveChart
..HasTitle = True
..ChartTitle.Text = "GDA Spread: Receiving " &
Worksheets("SymbolMap").Range _
("longLoc") & "- Delivery " &
Worksheets("SymbolMap").Range("shortLoc") _
& " As a Percentage of Receiving Location "
& Worksheets("SymbolMap").Range _
("longLoc")
End With

ActiveChart.Axes(xlValue).TickLabels.NumberFormat =
"#,##0.0%;[Red](#,##0.0%)"

ActiveChart.Axes(xlCategory).Select
With Selection.Border
..ColorIndex = 57
..Weight = xlMedium
..LineStyle = xlContinuous
End With
With Selection
..TickLabelSpacing = 20
..MajorTickMark = xlNone
..MinorTickMark = xlNone
..TickLabelPosition = xlLow
End With
ActiveChart.Axes(xlValue).MajorGridlines.Select
With Selection.Border
..ColorIndex = 57
..Weight = xlHairline
..LineStyle = xlGray50
End With

ActiveChart.PlotArea.Select
With ActiveChart
..Axes(xlCategory, xlPrimary).HasTitle = True
..Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text =
"Date"
..Axes(xlValue, xlPrimary).HasTitle = True
..Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "%
Spread"
End With
With ActiveChart.Axes(xlCategory)
..HasMajorGridlines = True
..HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
..HasMajorGridlines = True
..HasMinorGridlines = False
End With
ActiveChart.Axes(xlCategory).MajorGridlines.Select
With Selection.Border
..ColorIndex = 57
..Weight = xlHairline
..LineStyle = xlGray50
End With
With ActiveChart.Axes(xlCategory)
..CrossesAt = 1
..TickLabelSpacing = 20
..TickMarkSpacing = 20
..AxisBetweenCategories = True
..ReversePlotOrder = False
End With
'####################################################
'##################################################'
TempChartObjB.Activate
'code deleted 
' TempChartObjD.Activate
'code deleted 
'################################################
TempChartObjA.BringToFront
TempChartObjC.Visible = False
If ifercHasCharts Then
TempChartObjB.Visible = False
TempChartObjD.Visible = False
End If


Worksheets("DashBoard").OLEObjects("ChartType_List").Object.Selected(0)
= True
Application.ScreenUpdating = True
End Sub


-- 
huangx06
------------------------------------------------------------------------
huangx06's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=25014
View this thread: http://www.excelforum.com/showthread.php?threadid=385402

0
7/7/2005 10:05:08 PM
excel.charting 18370 articles. 0 followers. Follow

3 Replies
626 Views

Similar Articles

[PageSpeed] 35

That's almost 300 lines of code to wade through. Any hints about which 
line throws the error?

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______


huangx06 wrote:

> Hello, 
> 
> I have a draw chart sub which generates a runtime error "method
> seriescollection object_chart failed" from time to time. It doesn't
> happen all the time, probaly around 15% of the time. Below is the full
> code. I'm running out of ideas now in terms of how to fix the problem.
> Please help!!
> 
> Thanks a lot
> ---------------------------------------------------------------------------------------------------
> Sub drawChart(nYears As Integer)
> 
> Dim TempChartObjA As ChartObject
> Dim TempChartObjB As ChartObject
> Dim TempChartObjC As ChartObject
> Dim TempChartObjD As ChartObject
> Dim chartCount As Integer
> Dim i As Integer
> Dim TempSeriesCollection As SeriesCollection
> 
> Call drawCheckBox(nYears)
> 
> chartCount = Worksheets("DashBoard").ChartObjects.Count
> If chartCount > 0 Then
> For i = 1 To chartCount
> Worksheets("DashBoard").ChartObjects(1).Delete
> Next i
> End If
> 
> 'reset the average line check boxes
> Worksheets("DashBoard").cb_DailyAverage.Visible = True
> Worksheets("DashBoard").cb_DailyAverage.Value = False
> Worksheets("DashBoard").cb_DailyAveragePercent.Visible = False
> Worksheets("DashBoard").cb_DailyAveragePercent.Value = False
> 
> Set TempChartObjA = Worksheets("DashBoard").ChartObjects.Add(0, 0,
> 700, 300)
> Set TempChartObjC = Worksheets("DashBoard").ChartObjects.Add(0, 0,
> 700, 300)
> Set TempChartObjB = Worksheets("DashBoard").ChartObjects.Add(0, 0,
> 700, 300)
> Set TempChartObjD = Worksheets("DashBoard").ChartObjects.Add(0, 0,
> 700, 300)
> 
> TempChartObjA.Name = "chartGDM"
> TempChartObjC.Name = "chartGDMPercent"
> TempChartObjB.Name = "chartIFERC"
> TempChartObjD.Name = "chartIFERCPercent"
> 
> TempChartObjA.Activate
> ActiveChart.chartType = xlLineMarkers
> TempChartObjC.Activate
> ActiveChart.chartType = xlLineMarkers
> 
> If ifercHasCharts Then
> Worksheets("DashBoard").cb_MonthlyAverage.Visible = False
> Worksheets("DashBoard").cb_MonthlyAverage.Value = False
> Worksheets("DashBoard").cb_MonthlyAveragePercent.Visible =
> False
> Worksheets("DashBoard").cb_MonthlyAveragePercent.Value = False
> 
> TempChartObjB.Activate
> ActiveChart.chartType = xlLineMarkers
> TempChartObjD.Activate
> ActiveChart.chartType = xlLineMarkers
> End If
> 
> 
> 'Add new series data to the series collection to charts
> For i = 0 To nYears
> ' chartGDM
> TempChartObjA.Activate
> 'On Error Resume Next
> 'Worksheets("DataMap").ShowAllData
> ActiveChart.SeriesCollection.NewSeries
> ActiveChart.SeriesCollection(i + 1).XValues =
> "=DataMap!dateAxisAll"
> ActiveChart.SeriesCollection(i + 1).Name = "Year " &
> Year(Now()) - i
> ActiveChart.SeriesCollection(i + 1).Values =
> "=DataMap!DataYear" & Year(Now()) - i
> 
> 
> ActiveChart.SeriesCollection(i + 1).Select
> With Selection.Border
> Weight = xlThin
> LineStyle = xlAutomatic
> End With
> With Selection
> MarkerBackgroundColorIndex = xlAutomatic
> MarkerForegroundColorIndex = xlAutomatic
> MarkerStyle = xlSquare
> Smooth = False
> MarkerSize = 3
> Shadow = False
> End With
> 
> ' chartGDMPercent
> TempChartObjC.Activate
> 'On Error Resume Next
> 'Worksheets("DataMap").ShowAllData
> ActiveChart.SeriesCollection.NewSeries
> ActiveChart.SeriesCollection(i + 1).XValues =
> "=DataMap!dateAxisAll"
> ActiveChart.SeriesCollection(i + 1).Name = "Year " &
> Year(Now()) - i
> ActiveChart.SeriesCollection(i + 1).Values =
> "=DataMap!DataYearPercent" & Year(Now()) - i
> 
> ActiveChart.SeriesCollection(i + 1).Select
> With Selection.Border
> Weight = xlThin
> LineStyle = xlAutomatic
> End With
> With Selection
> MarkerBackgroundColorIndex = xlAutomatic
> MarkerForegroundColorIndex = xlAutomatic
> MarkerStyle = xlSquare
> Smooth = False
> MarkerSize = 3
> Shadow = False
> End With
> 
> If ifercHasCharts Then
> 'chartIFERC
> TempChartObjB.Activate
> 'On Error Resume Next
> 'Worksheets("DataMap").ShowAllData
> ActiveChart.SeriesCollection.NewSeries
> ActiveChart.SeriesCollection(i + 1).XValues =
> "=DataMap!ifercChartMonthAxis"
> ActiveChart.SeriesCollection(i + 1).Name = "Year " &
> Year(Now()) - i
> ActiveChart.SeriesCollection(i + 1).Values =
> "=DataMap!IFERCDataYear" & Year(Now()) - i
> ActiveChart.SeriesCollection
> 
> 'chartIFERCPercent
> TempChartObjD.Activate
> 'On Error Resume Next
> 'Worksheets("DataMap").ShowAllData
> ActiveChart.SeriesCollection.NewSeries
> ActiveChart.SeriesCollection(i + 1).XValues =
> "=DataMap!ifercChartMonthAxis"
> ActiveChart.SeriesCollection(i + 1).Name = "Year " &
> Year(Now()) - i
> ActiveChart.SeriesCollection(i + 1).Values =
> "=DataMap!IFERCDataYearPercent" & Year(Now()) - i
> ActiveChart.SeriesCollection
> End If
> Next i
> 
> TempChartObjA.Activate
> 
> With ActiveChart
> HasTitle = True
> ChartTitle.Text = "Gas Daily Average Spread: Receiving " &
> Worksheets("SymbolMap").Range _
> ("longLoc") & "- Delivery " &
> Worksheets("SymbolMap").Range("shortLoc")
> End With
> 
> ActiveChart.Axes(xlValue).TickLabels.NumberFormat =
> "$#,##0.0_);[Red]($#,##0.0)"
> 
> ActiveChart.Axes(xlCategory).Select
> With Selection.Border
> ColorIndex = 57
> Weight = xlMedium
> LineStyle = xlContinuous
> End With
> With Selection
> TickLabelSpacing = 20
> MajorTickMark = xlNone
> MinorTickMark = xlNone
> TickLabelPosition = xlLow
> End With
> ActiveChart.Axes(xlValue).MajorGridlines.Select
> With Selection.Border
> ColorIndex = 57
> Weight = xlHairline
> LineStyle = xlGray50
> End With
> 
> ActiveChart.PlotArea.Select
> With ActiveChart
> Axes(xlCategory, xlPrimary).HasTitle = True
> Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text =
> "Date"
> Axes(xlValue, xlPrimary).HasTitle = True
> Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Spread"
> End With
> With ActiveChart.Axes(xlCategory)
> HasMajorGridlines = True
> HasMinorGridlines = False
> End With
> With ActiveChart.Axes(xlValue)
> HasMajorGridlines = True
> HasMinorGridlines = False
> End With
> ActiveChart.Axes(xlCategory).MajorGridlines.Select
> With Selection.Border
> ColorIndex = 57
> Weight = xlHairline
> LineStyle = xlGray50
> End With
> With ActiveChart.Axes(xlCategory)
> CrossesAt = 1
> TickLabelSpacing = 20
> TickMarkSpacing = 20
> AxisBetweenCategories = True
> ReversePlotOrder = False
> End With
> 
> '####################################################
> TempChartObjC.Activate
> 
> With ActiveChart
> HasTitle = True
> ChartTitle.Text = "GDA Spread: Receiving " &
> Worksheets("SymbolMap").Range _
> ("longLoc") & "- Delivery " &
> Worksheets("SymbolMap").Range("shortLoc") _
> & " As a Percentage of Receiving Location "
> & Worksheets("SymbolMap").Range _
> ("longLoc")
> End With
> 
> ActiveChart.Axes(xlValue).TickLabels.NumberFormat =
> "#,##0.0%;[Red](#,##0.0%)"
> 
> ActiveChart.Axes(xlCategory).Select
> With Selection.Border
> ColorIndex = 57
> Weight = xlMedium
> LineStyle = xlContinuous
> End With
> With Selection
> TickLabelSpacing = 20
> MajorTickMark = xlNone
> MinorTickMark = xlNone
> TickLabelPosition = xlLow
> End With
> ActiveChart.Axes(xlValue).MajorGridlines.Select
> With Selection.Border
> ColorIndex = 57
> Weight = xlHairline
> LineStyle = xlGray50
> End With
> 
> ActiveChart.PlotArea.Select
> With ActiveChart
> Axes(xlCategory, xlPrimary).HasTitle = True
> Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text =
> "Date"
> Axes(xlValue, xlPrimary).HasTitle = True
> Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "%
> Spread"
> End With
> With ActiveChart.Axes(xlCategory)
> HasMajorGridlines = True
> HasMinorGridlines = False
> End With
> With ActiveChart.Axes(xlValue)
> HasMajorGridlines = True
> HasMinorGridlines = False
> End With
> ActiveChart.Axes(xlCategory).MajorGridlines.Select
> With Selection.Border
> ColorIndex = 57
> Weight = xlHairline
> LineStyle = xlGray50
> End With
> With ActiveChart.Axes(xlCategory)
> CrossesAt = 1
> TickLabelSpacing = 20
> TickMarkSpacing = 20
> AxisBetweenCategories = True
> ReversePlotOrder = False
> End With
> '####################################################
> '##################################################'
> TempChartObjB.Activate
> 'code deleted 
> ' TempChartObjD.Activate
> 'code deleted 
> '################################################
> TempChartObjA.BringToFront
> TempChartObjC.Visible = False
> If ifercHasCharts Then
> TempChartObjB.Visible = False
> TempChartObjD.Visible = False
> End If
> 
> 
> Worksheets("DashBoard").OLEObjects("ChartType_List").Object.Selected(0)
> = True
> Application.ScreenUpdating = True
> End Sub
> 
> 
0
7/8/2005 3:16:40 AM
Hi Jon,

Thank you for looking at my problem. I have deleted those lines I think
are not related to the problem. Can you take a look again? Again, my
problem is totally random. It happens no more than 20% of the time. 

Thanks again.


-- 
huangx06
------------------------------------------------------------------------
huangx06's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=25014
View this thread: http://www.excelforum.com/showthread.php?threadid=385402

0
7/8/2005 4:42:53 AM
I think you deleted all of them <g>

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______


huangx06 wrote:

> Hi Jon,
> 
> Thank you for looking at my problem. I have deleted those lines I think
> are not related to the problem. Can you take a look again? Again, my
> problem is totally random. It happens no more than 20% of the time. 
> 
> Thanks again.
> 
> 
0
7/8/2005 11:27:54 PM
Reply:

Similar Artilces:

Paint error
I have a friend running XP that gets a paint error "Paint has encountered an error and needs to close" Where, in the event viewer, might she find more detail on this error? -- Frank C Dell Inspiron 530S Win Vista Ultimate 64 bit SP1 Dell studio laptop Win Vista Ultimate 64 bit SP1 HP Photosmart D7260 "Frank C" wrote: > I have a friend running XP that gets a paint error "Paint has encountered an > error and needs to close" > Where, in the event viewer, might she find more detail on this error? > > -- > Frank C > ...

i am getting fatal error C1033
Hi all while i was compliling my project through VC++ (6.0) It ia giving following error e:\empresent\source\winsys\ttf\fontbmp.c(0) : fatal error C1033: cannot open program database 'e:\empresent\source\build\x86\vc60.pdb' NMAKE : fatal error U1077: 'cl' : return code '0x2' Stop. Although vc60.pdb is present in the following path. Please help me out what to do. Thanks in advance Meenal I can only guess, the file may be locked/corrupt or not accessible. Reboot and see if you still get the same problem. ----------- Ajay Kalra ajaykalra@yahoo.com Sometimes clearing...

HELP!! #2
Does anyone know how to Synch AIM mail to outlook? ...

Outlook 2002 "Today" error
I get this "Unable to display the folder. Microsoft Outlook could not access the specified folder location. The folder no longer exists." any ideas? thanks harry harry <a_harrison_uk@yahoo.co.uk> wrote: > I get this "Unable to display the folder. Microsoft Outlook could not > access the specified folder location. The folder no longer exists." Open your mail profile (Control Panel>Mail) and see where Outlook is expecting to find your PST. Verify that it is where it is supposed to be. -- Brian Tillman I checked that & in my case it's looki...

Outlook Express--Help. I deleted a User Profile but need the associated Outlook
Oops! I am running on Windows 2000 and I deleted a User Profile but now I need the associated Outlook Express folders for the deleted user. I can locate the .dbx files for each folder but I don't know what to do from there. Is there a way to open them in my current identity? I hope so!!! Thank you for any help! By the way, I'd like to accomplish the same thing with Outlook if possible. Kelsey Try posting this in an Outlook Express news group - this is not one of them. Outlook is a part of Microsoft Office and is what this group supports. Outlook Express is a part of Internet ...

Excel 2007 Chart SeriesCollection(1).Interior.ColorIndex
I thought I had posted this already, but can't find it. Sorry if it's a duplicate. I have the following code that was written in Excel 2003. Every time I run it in Excel 2007 it crashes. I can't find anything about changing the colors of a series in an Excel 2007 chart. Also, when I try to record a macro to change the chart colors to gain insight, nothing gets written to the macro regarding the color change. Help! Sheets("Chart1").SeriesCollection(1).Interior.ColorIndex = 5 ...

Excel Caused Error in VBE6.dll. Excel will Close
When trying to open Excel 2000 (Office Professional) / Windows ME the above message appeared and Excel would not open. Renaming the VBE6.DLL file and then repair and then reinstal Office did not work as the original dated VBE6.DLL file reappeared Has anyone had the sme problem? If so did you find a workable solution? ... and what was it? ...

money 2007 vs. providian ? please help
money wont retrieve info from providian. if i look up providian in the ms money compatibility link as posted by others I get 'direct services' what gives any help? In microsoft.public.money, newby wrote: >money wont retrieve info from providian. > >if i look up providian in the ms money compatibility link as posted by >others I get 'direct services' I don't think so. It looks like "third party". > >what gives > >any help? ...

E-mail stuck in Inbox, file in use, backup fails
I have a reoccuring problem that is driving me nuts. I have Small Business Server 2003 with Exchange set up. A user keeps getting a specific e-mail in her inbox in the mail store that kills the Veritas backup. The e-mail never makes it to the Outlook 2003 client. If you use OWA, the e-mail shows up there but it will not open. The page not found error is HTTP 500 server error. If you look at the log in Veritas, it says 'file in use' and 'access denied'. On the weekend I rebooted the server remotely and then permanently deleted the e-mail. The backup completed succes...

automation error
Hi I have set up an automation with Outlook and sending emails to our clients. I am using Redemption to avoid the security dialogs. The problem is when it sends around 373 email, an error will occur and emails stopped. I tried to open other forms but an error msg pops up citing not enough memory. (Other programs works properly). When I close Access and reopen it operates normally and when I send emails again, it will stop again at 373-5 emails. I tried sending very much smaller sized emails e.g "just hello". (50 bytes). It still creates the error after 373 emails. What could be wr...

IMF v2 and the "GUI error"
Good morning everyone! I have a rather simple question: has something - of which I am currently unaware - fixed the GUI error with respect to the IMF v2 "configuration". Here is why I am asking this question. First of all, I have seen a lot of documentation and read a lot of posts about the error in the GUI. The part where you set the Gateway Filter to 7 (or whatever) and the text reads something to the effect of "Block messages with a SCL Rating greater than or equal to:" and you supply the number. Same for the Junk E-mail folder. I always thought that if you s...

Bar Graph Help
I'm trying to create a graph similar to the bar graph shown in the middle of the dashboard in the link below labeled as "YTD % of target", but don't know how to get the overlapping bars in excel. Can anyone advise? Thanks! http://www.bonavistasystems.com/Download2/Airline%20Dashboard2.png Here's one way to do it... Add the YTD % series to your bar graph, and then format the series so that it is on the secondary axis. XL will probably create a secondary X-axis, but that will cause a distortion of the data. We need them to be plotted on the same x-ax...

Loading Error
Hi I am logged on as Domain administrator and have installed Office 2000 twice over.. I am getting the following error, and I have put it into Microsoft Support but it comes up with nothing. The error is "Unknown Error 0xAF54011D You Do not have permission to log on" any Ideas thanks It helps telling where you get this error and where you are trying to connect to. -- Roady [MVP] www.howto-outlook.com Tips of the month: -Setting Permissions on a Mailbox -Create an Office XP CD slipstreamed with Service Pack 3 ----- "News" <sasa@sdfad.com> wrote in message ...

Insert statement with errors
Hi, I am getting the error Too few parameters Expected 1 when i try to run the following SQL statement: strSQL = "INSERT INTO BudgetGST ( Idbranch, Avril )" & _ " SELECT Idbranch, (Avril*cGST)" & _ " FROM GrossMois WHERE GrossMois.IdBranch = " & num Avril is a field from GrossMois that contains a value and cGST is a constant. can anyone tell me what is wrong Thanks Alain What's this: (Avril*cGST) If it is meant to be 2 fields multiplied together, supply an alias for the result: strSQL = "INSERT INTO B...

Error can't Find File
Hi, I have a macro that opens a file and pulls any outstanding tasks from the previous day. I have a problem when it is a new month because the previous month's file is called MyFileMarch2010. The macro now looks for MyFileApril2010. How do I capture the error and look for the previous month's file if it is the first business day of the month? Any help or suggestions is appreciated. -- Thank you Dave As ALWAYS, post YOUR code for comments if day(date)=1 then do this else do that end if -- Don Guillett Microsoft MVP Excel SalesAid Software dguill...

CRM Callout error (ComException) 02-04-04
I followed the example of Microsoft on how to create a Callout CO interface (found at http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnmbscrm1_2/html/mbs_crmPostCalloutsv1d2.asp) But I keep getting the same error System.Runtime.InteropSevices.ComException: The file name is too long I used very short names so I don't understand where this error woul come from. Anybody got any idea's or encountered this in the past Regards Edwin Jongsm Accenture ------=_NextPart_0001_366F0616 Content-Type: text/plain Content-Transfer-Encoding: 7bit Hi, Is you machine name longer t...

Error after applying SP1 on GP 9.0 with SQL 2005 P2
I have applied SP1 on GP 9.0 on the server and the GP utilities shows all companies have been updated, however when I attempt to login to a couple of companies I recieve a message "[Microsoft][OBDC SQL Server Driver][SQL Server]procedure smcleanup filesbeforelogin has no parameters and arguments were supplied". I have compatablility set to 90 ------=_NextPart_0001_5EFEE3FC Content-Type: text/plain Content-Transfer-Encoding: 7bit Hello, Thanks for posting to Newsgroups. It seems the update may have failed on one or more stored procedures. You can attempt to recreate this sto...

Report Error
I'm running GP 6.0 and one of my reports (Orders with discrepancies) is receiving an error "GPS Error: 58". Any ideas on the error and where to look for resolution? Thanks Jeff... ...

Help Downloading OS to Target
Hi all. Kind of new to CE. I have managed to build a CEPC OS and have tested it on MS Virtual Machine. Problem I am having is trying to download it to the CEPC. From everything I can find, I need to have a 1.44 boot disk. Neither of my machines have a floppy drive. Ultimately, an ISO that can be burned to CD would be great! Any help would be greatly appreciated. Thank you. That depends on the media that your BIOS supports for booting -- Bruce Eitman (eMVP) Senior Engineer Bruce.Eitman AT Eurotech DOT com My BLOG http://geekswithblogs.net/bruceeitman Eurotech Inc....

Runtime error 429: Activex Component Can't create object
Dear helpers, Kindly guide me to resolve my vista related problem. I am running .exe file on Vista ultimate but it giving run time error "429: Activex Component Can't create object". The exe file works well on XP. May be it's a scripting error .... kindly advise what to do ro resolve it. Regards, Hina Naz -- Hina Naz ------------------------------------------------------------------------ Hina Naz's Profile: http://forums.techarena.in/members/226902.htm View this thread: http://forums.techarena.in/vista-help/1342465.htm http://forums.techarena.i...

Pivot Table Help #2
I have a sheet that I use to keep track daily of the value of inventory by day, and grouped by week. The value of the inventory is tracked by three different subgroups. (Below is an example). On my piviot table the values are grouped by type and by week. So what I get is a five day average of each Type by week, which is exactly what I want. My averages are as follows: M $796091.00 O $615069.00 R $3180669.00 =================== Grand Totals $1530609.00 The grand totals are where I need help. The grand total is an average of the avaerages. Is it possible to display a sum of the av...

Error :XML not defined
This is a multi-part message in MIME format. ------=_NextPart_000_000D_01C60F1B.FCDBE180 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I am trying to imput data in too a xml file. How can it deal with the = issues below I try putting in System.XML to see but it give me a error about only = having one inherits per class. Partial Class _xxxx Inherits Web.UI.Page Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As = System.EventArgs) Handles btnSubmit.Click Dim xDoc As New XmlDocument Dim newComment As XmlDocumentFra...

error message #26
If i create a shortcut to a workbook on the desktop, I get a the message that a file by that name is already open. Clicking ok makes the message go away and the file works fine. this does not occur when opening the file any other way. Not fatal, bu annoying Maybe... http://www.contextures.com/xlfaqApp.html#AlreadyOpen From the FAQ at Debra Dalgleish's site. "paboombillanonymous@aol.com" wrote: > > If i create a shortcut to a workbook on the desktop, I get > a the message that a file by that name is already open. > Clicking ok makes the message go away and the ...

Really Need Some Help Here
RMS V 1.3.1006 We have a closed location. We do not have their database (this was our first closed location - 1 yr ago). This location has inventory that resides on it. Their computer has been retasked, and wiped clean for the new location. We have reports that pull that location's inventory. That is bad. I have worked around the RMS reports to add filter qualities, like Store Region <> Closed, etc. However, now we are also using a separate reporting tool that does not function like this. Does anyone (please help me!) know a query that can be run from the HQ side to compl...

I need help with Ex5.5 OWA
Can someone please tell me how to set it up. I'm new to this company and I'd like to set this up for them as an alternative to check emails. My Enviornment: Windows 2000 Active Directory Exchange 5.5 You help will be appreciated. "nadia" <nadia@discussions.microsoft.com> wrote in message news:CA4EED49-AEBD-4B43-8D69-87CD7AB1EF72@microsoft.com... > Can someone please tell me how to set it up. > I'm new to this company and I'd like to set this up for them as an > alternative to check emails. > > My Enviornment: Windows 2000 Active Directory...