Word Mail Merge Object &"execute&" Method

Word Mail Merge Commandbar &"Insert Merge Field&" Control
I'm having a problem with adding the Merge Fields toolbar programmatically in Word when performing a Mail Merge. I can add the toolbar fine but when I try to add the "Insert Merge Fields" dropdown control to this toolbar the drop down is not populated with the mergefields from the header source. When I add the toolbar and the control manually it works fine. I've even recorded the macro for this action but my code still does not work (my code is identical to the macro). Could someone help me out or let me now if this is a bug in word?

Thanks in advance,

Tom

---

ADO Command Object Returns A &"Method 'Execute' Of Object '_Connection' Failed&" Error
Hi you all,
I have a VB6 app using an Access XP back end.
I Use a function which returns a Read Only, Disconnected ADO Recordset (used to populate lists, combos etc. using minimal resources).
I use it all the time without a hitch.
It started returning a "Method 'Execute' of object '_Connection' failed" error called with a SQL which works just fine when it's used as a query in the Access DB.
Why should the Execute method fail if the SQL works well in Access' Query design window?
Any help will be highly appreciated.
Thanx!
Guy

The function is:
Function GetDisconnectedRS(ByVal sSQL As String) As ADODB.Recordset
Dim adoRS As New ADODB.Recordset
Dim ucmdGetDisconnectedRS As ADODB.Command

Set ucmdGetDisconnectedRS = New ADODB.Command
With ucmdGetDisconnectedRS
.ActiveConnection = oConnect.ConnnectionObject
.CommandType = adCmdText
.CommandText = sSQL

Set adoRS = .Execute()

End With

Set adoRS.ActiveConnection = Nothing
Set GetDisconnectedRS = adoRS

SQL:
SELECT at.ActualTestID, at.PatientID, at.TestID, at.atDate, t.testDescription, p.patFirstName, p.patSurname
FROM (tblActualTests at INNER JOIN tblTests t ON at.TestID = t.TestID) INNER JOIN tblPatients p ON at.PatientID = p.PatientID WHERE at.atDate BETWEEN #02/08/2007# AND #02/08/2007# AND Not atDone
ORDER BY at.atDate DESC, at.TestID, p.patSurname

Just a note: The function works fine few code statements before it fails, with SQLs such as "SELECT DISTINCT patFirstName FROM tblPatients ORDER BY patFirstName".
I've tryed to run "SELECT * FROM tblActualTests" and it does work but hey, what's wrong with a few Joins?
And besides which the function didn't fail me in the past with much more complex SQLs.

Thanx,
Guy

---

Error 2147467259 (&"Method 'Execute' Of Object '_Connection' Failed&")
Using Visual Basic 6.0, a connction object (cnAccess as ADODB.Connection), a recordset (rsmdl3 as ADODB.Recordset) and SQLCommand1(1 to 3) as strings. Using Microsoft ActiveX Data Objects 2.8 Library.

When I try to execute a long (>1200 characters) sql command (split into 3 string variables), I get the error mentioned in Subject.

Set rsMdl3 = cnAccess.Execute(SQLCommand1(1) & SQLCommand1(2) & SQLCommand1(3), , adCmdText)

When I paste the SQL command into Access as a query, the string is split into 2 (1st is 1023 characters long), but when the carrage return between the 2 sections is deleted, the query runs fine in Access.

Any ideas about how to populate the recordset with such a long SQL command?

---

Method &"SaveAs&" Or &"Save&" Of Object &"Excel.Workbook&" Does Not Work.
Hi people.
I did for a long time a program that uses excel automation, so that from a template will create a final file with some data pulled from the database (with ADO). At the end and when the Excel file is ready to be saved I got in a couple of computers some problems. In the whole LAN have XP, but in these 2 computers we have SP2. I have checked the rights and are OK (I have even tried to save the Workbook under the Temp folder and also the same problem).
Working with Office 2003 (SP1).
I have searched in internet about any bugs but I don´t find anything.
Any ideas.
Thanks for your time
Jaime

---

Method &"Execute&" Of &"_Connection&" Failed
hi all

I am a newbie to the Visual Basic & taking all you people as my guide, I post this query.

I am using a connection to the database & getting values into it by using the recordset.addnew command

But the problem is the when I execute it, it gives an error message saying:

Method "Execute" of "_Connection" failed

My connection to the database is OK as the same connection is used in other queries that run fine.

My query is OK as it runs fine when I run it in access.

So where the problem lies
can someone help me out

Thanks in advance

---

'Method &"Range&" Of Object &"_Global&" Failed.' ???
Hi!

I'm trying to create a VB app that interfaces with an Excel file. I can access the file okay. Part of the code is finding the next empty row in a range. I keep getting an error in the set range part of the code.


Code:
Dim rangeSearch As Range

xlSheet.Columns("A").Select
Set rangeSearch = Selection.Find(what:="*", After:=Range("A1"), lookin:=xlFormulas, _
lookat:=xlWhole, searchorder:=xlByRows, SearchDirection:=xlNext)
If Not rangeSearch Is Nothing Then
FindLastRow = rangeSearch.Row
MsgBox rangeSearch.Row
End If

The error is 'Method "Range" of object "_Global" failed.'

Anyone have any idea what this means?

Thanks!!!

---

Method &"Range&" Of Object &"_Worksheet&" Failed....???
What ever I do on this line:

Sheet1.Range(strColumn & 3).Value = strValue

I get an error:

Method "Range" of object "_Worksheet" failed.


I tried at least 10 different ways! What's wrong?? THIS line works fine:

LColorCells = "A" & Lrow & ":" & "J" & Lrow
    Sheet1.Range(LColorCells).Font.Color = vbwhite

So what's wrong with the above line??

I've tried for example:

Sheet1.Range("" &strColumn & str(3)).Value = strValue
Sheet1.Range("'" &strColumn & 3 &"'").Value = strValue

and more...

What's strange is that THIS WORKS:

Sheet1.Range("D" & 3).Value = strValue

But of course, he would only use Column "D" and I need to loop it cause strColumn is changing.

Can someone tell me what's wrong?
Thanks!




Edited by - Zvi on 11/8/2006 10:53:20 PM

---

Why Does &"Method 'Open' Of Object 'Workbooks' Failed&" Become &"Method '~'...
I am trapping errors for notification purposes. When I run my program in the IDE the error is:"Method "Method 'Open' of object 'Workbooks' failed"But when I run the compiled executable it excludes information and instead becomes:"Method '~' of object '~' failed"I am not concerned with the reason for the error b/c I already know that. My concern is that the latter does not provide enough information to affectively diagnose the cause of the error.

Why does the error information get dropped in the executable? Is there any way to get it to look like the first message?

---

Automatic Load/execute Of &"macro.bas&" File In Word
Hi,

I want to automatically generate Word documents out of simulations which run on Unix/Linux. This implies pasting hundreds of pictures which depend dynamically on the kind of simulations, the settings, etc. In order to speed this up, I

1. construct a "*.bas" file in Linux using ksh/perl scripts
2. load this "*.bas" file using the Visual Basic Editor in Word
3. execute the macro which then pastes all my figures at the right locations

I would like to further simplify this by automatically loading and executing a "*.bas" file (with a prescribed name). I know that there are AutoExec macros in Word but I could not figure out how to automatically load a "*.bas" file.

Any idea?

Regards and thanks,
Gianfranco

---

Can I Call A Method Of An Object In Runtime By &"object Name&" String?
Private Sub FormShow(FormName as string)

dim f as Form

f = FormName //?????

load f
f.show 1

End Sub

Can I reference to an object by help of its name (string) in runtime?

---

VB Error: 1004 Method Range Of Object &"_Global&" Failed
Hi All,
I am using MS Visual Basic for Applications (VBA) for Excel and I am very new to this programming. In fact, I merely copied a program from a book. I apologise for the length of it, but basically I am getting error "Run-time error '1004' Method "Range" of object "_Global" failed. It is happening at the following lines:

Range("Accuracy").Select
Range("Payoff").Select
Range("Money_Mgt_Approach").Select
etc etc

Would someone be kind enough to assist please? Any help in layman terms would be appreciated.

Cheers, Phil.

The program is as follows:

Code:
Sub Simulate_Risk_of_Ruin()

'
'Define variables
'
Const NoRecords = 10001
Dim TradeResult(NoRecords) As Long
Dim EquityCurve(NoRecords) As Long
Dim Accuracy As Variant
Dim PayOff_Ratio As Variant
Dim Money_Mgt_Approach As String
Dim Fixed_Percent_Risked As Variant
Dim Ruin_Point_DrawDown As Variant
Dim Account_Start As Variant
Dim Account_Balance As Variant
Dim Account_New_High As Variant
Dim Account_DrawDown As Variant
Dim Account_DrawDown_Percent As Variant
Dim Win_or_Loss As Variant
Dim Probability_Of_Ruin As Variant
Dim RowNumber As Variant
Dim Unit_Of_Money As Integer
Dim Fixed_Dollar_Risk As Variant
Dim Number_Of_Trades As Long
Dim Number_of_Losses_Before_Ruin As Long
Dim Number_of_Trades_Since_Account_High As Long
Dim i As Long
Dim j As Long
Dim x As Long

'
'Freeze Screen
'
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'
'Load Variables from Spreadsheet
'
'Load Accuracy Rate
Sheets("RiskOfRuin").Select
[b]Range("Accuracy").Select[/b]
Accuracy = Selection

'Load the Average Win to Average Loss Payoff Ration
[b]Range("Payoff").Select[/b]
PayOff_Ratio = Selection

'Load Money Management Approach
[b]Range("Money_Mgt_Approach").Select[/b]
If ActiveCell = 1 Then
Money_Mgt_Approach = "Fixed Percentage Risk Money Mgt"
Else
Money_Mgt_Approach = "Fixed Dollar Risk Money Mgt"
End If

'Load Starting Account Size
[b]Range("Start_Capital").Select[/b]
Account_Start = Selection

'Load Fixed Percentage Rate of account balance risked on each trade
[b]Range("FixedPercentage").Select[/b]
Fixed_Percent_Risked = Selection

'Load the Percentage Draw Down rate we define ruin as
Range("Ruin").Select
Ruin_Point_DrawDown = Selection

'Load the number of units of money we have in our account
Range("Unit_Of_Money").Select
Unit_Of_Money = Selection

'
'Clear the Arrays
'
For i = 1 To NoRecords
TradeResult(i) = Empty
EquityCurve(i) = 0
Next i
'
'Begin Simulating Probability of Ruin
'
Number_Of_Trades = 1
Account_Balance = Account_Start
Account_New_High = Account_Start
Account_DrawDown_Percent = 0
Number_of_Losses_Before_Ruin = 0
Fixed_Dollar_Risk = Account_Start / Unit_Of_Money

i = 1
j = 1
x = 0

Do Until Account_DrawDown_Percent >= Ruin_Point_DrawDown Or EquityCurve(i - 1) > 200000000 Or x >= 10000

'Check For New Equity High and reset number of losing trades to zero
If Account_Balance > Account_New_High Then
Account_New_High = Account_Balance
Number_of_Losses_Before_Ruin = 0
Number_of_Trades_Since_Account_High = 0
End If

'Generate random number to see whether a trade wins or loses
Win_or_Loss = Rnd

'Check for a Win
If Win_or_Loss >= (1 - Accuracy) Then
'We have a WIN!
'Calculate the profit
If Money_Mgt_Approach = "Fixed Percentage Risk Money Mgt" Then
TradeResult(j) = ((Fixed_Percent_Risked * Account_Balance) * PayOff_Ratio)
End If

If Money_Mgt_Approach = "Fixed Dollar Risk Money Mgt" Then
TradeResult(j) = Fixed_Dollar_Risk * PayOff_Ratio
End If

'Add to the equity curve
If i = 1 Then
EquityCurve(i) = Account_Start
i = i + 1
EquityCurve(i) = EquityCurve(i - 1) + TradeResult(j)
Else
EquityCurve(i) = EquityCurve(i - 1) + TradeResult(j)
End If

'We have a LOSS!
'Calculate the loss
If Money_Mgt_Approach = "Fixed Percentage Risk Money Mgt" Then
TradeResult(j) = -(Fixed_Percent_Risked * Account_Balance)
End If

If Money_Mgt_Approach = "Fixed Dollar Risk Money Mgt" Then
TradeResult(j) = -Fixed_Dollar_Risk
End If

'Add to the equity curve
If i = 1 Then
EquityCurve(i) = Account_Start
i = i + 1
EquityCurve(i) = EquityCurve(i - 1) + TradeResult(j)
Else
EquityCurve(i) = EquityCurve(i - 1) + TradeResult(j)
End If

'Add to our account balance
Account_Balance = Account_Balance + TradeResult(j)

'Calculate current drawdown and percentage drawdown
Account_DrawDown = Account_New_High - Account_Balance
Account_DrawDown_Percent = Account_DrawDown / Account_New_High

'Calculate the number of losses before ruin
Number_of_Losses_Before_Ruin = Number_of_Losses_Before_Ruin + 1

End If

'Calculate number of trades
Number_Of_Trades = Number_Of_Trades + 1
Number_of_Trades_Since_Account_High = Number_of_Trades_Since_Account_High + 1

'Increase counters
x = x + 1
j = j + 1
i = i + 1
Loop


'Calculate Probability of Ruin
Probability_Of_Ruin = Number_of_Losses_Before_Ruin / Number_of_Trades_Since_Account_High

'If the Equity Curve is above $200m or we have simulated 10,000 trades
'then we will assume ruin has been avoided.
If EquityCurve(i - 1) > 200000000 Or x >= 10000 Then
Probability_Of_Ruin = 0
End If

'Enter Probability of Ruin in Spreadsheet
Sheets("RiskOfRuin").Select
Range("Probability").Select
ActiveCell = Probability_Of_Ruin
Selection.Style = "Percent"

'
'Print Equity Curve
'
'Clear Previous Equity Curve
Columns("AA:AA").Select
Selection.Clear

'Print Equity Curve in Spreadsheet - Column AA
i = 1
Do Until i >= Number_Of_Trades + 1
Sheets(1).Cells(i, 27).Value = EquityCurve(i)
i = i + 1
Loop

'Change Chart Range
Range("AA1").Select
Selection.End(xlDown).Select
RowNumber = ActiveCell.Row

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Values = "=RiskOfRuin!R1C27:R" & RowNumber & "C27"
ActiveWindow.Visible = False
Windows("0_Risk_of_Ruin_Simulator.xls").Activate

'Move cursor to the Probability of Ruin calculation
Range("B22").Select

'
'Refresh Screen
'
Application.DisplayAlerts = True
Application.ScreenUpdating = True

'End of Simulator


End Sub

---

Error Message &"Object Doesn't Support This Property Or Method&"
When i trry to populate my listview i get a runtime error 438 saying "Object doesn't support this property or method" . I have 4 columns in my listview and this error occured for my last column. Can anyone help me with this?
This is the code i use to populate the listview.


VB Code:
Sql = SQLCommand("51", "", "")    Set OraDynaset = OraDatabase.CreateDynaset(Sql, 0&)    If OraDynaset.RecordCount <> 0 Then    OraDynaset.MoveFirst        Do While Not OraDynaset.EOF            Set itmx = ListView1.ListItems.Add(, , OraDynaset.Fields("Company_ID"))            itmx.SubItems(1) = OraDynaset.Fields("Dept_id")            itmx.SubItems(2) = OraDynaset.Fields("Customer_id")            itmx.sumitems(3) = OraDynaset.Fields("Customer_name")                    OraDynaset.MoveNext        Loop    End IfSet OraDynaset = Nothing

---

Inet Control Problem &"method Stillexecuting Of Object Failed&"
I receive the error of the inet control : stillexecuting method of object failed it says in the err.description.

The control works fine for hours and hours and suddenly this...

It is after an PUT command...

code :
    onerror goto skip
    PUT someting something

    while inetcontrol.stillexecuting
        
        doevents

    wend
    
    skip:
    err.number
    err.description

end code piece

so a minute later then the put command is fired i receive the error...after working for hours and hours like this...

real bogus like this, always need to shut down the program and restart...

some ideas would be welwome...

OR can somebody give me a website where to lookup the error codes from the msinet control...? and why those errorcodes occur....?

nitro

---

ERROR: &"Method 'OnAction' Of Object 'CommandBarButton' Failed&"
Hi all!

Could I ask you for some assistance in trying to solve an issue that is truely puzzling me?

I've developed an Excel application that will add some custom menu entries whenever the code library is loaded...

This has been working great for all users (50 and more), but now this one UK colleague gets a "Method 'OnAction' of object 'CommandBarButton' Failed" error. And all was working great on het machine till a couple of days ago

Does anyone have a clue on what could be happening? I've tried reinstalling, but to no avail...

I'm adding the code for reference:


Code:
' add a submenu
Set cbSubMenu = Application.CommandBars.FindControl(, , "BfgSubMenu")

If cbSubMenu Is Nothing Then
Set cbSubMenu = cbMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "&BFG..."
.Tag = "BfgSubMenu"
.BeginGroup = True
End With
End If

' add menuitem to submenu (or buttons to a commandbar)
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&New Manual Billing Request"
.OnAction = ThisWorkbook.Name & "!NewBillingRequest" ==> ERROR
.Tag = "NewMBR"
End With
Thank you in advance for your much appreciated help!
Cheers, Edgard

---

Error :&"Method PrintOut Of Object Sheets Failed&"
I am using VBA to convert .xls file to .ps file.
If the file name is Test123.xls,the code creates Test123.ps file.
I get following error message if the excel file name has comma in it (.eg. Tes,t123.xls)
"Method PrintOut of object Sheets failed"

So I am assuming that comma is invalid character for postscript file.
Am I correct?
Is there any way to know why code fails in PrintOut method?

Thanks in advance
Meghana

---

&"Illegal Operation&" On Executing SaveAs Method Of Excel.Worksheet Object
Hi everybody,

I have installed a database application at my client's office. I am using VB 6.0 on Windows 2000 Professional and my client's operating system is Windows 98. The print option of one of my entry modules in the application, creates an Excel Worksheet and saves it with a file name using Excel automation objects. When I compile the EXE file of the application on my computer and copy it to my client's computer, on executing the SaveAs method of the Excel.Worksheet object, the error message "This program has performed an illegal operation and will be shut down..." shows up. But when I compile the EXE file of the application on my client's computer, it works absolutely fine. My client's version of Excel is 2000 and that of mine is 2002. Is that the reason or is it something else?

---

Setting A Public Sub: &"Object Doesn't Support This Property Or Method&" Error *SOLVED*
I get this error when I tried to set a Public Sub: "Object doesn't support this property or method"

It was this:

VB Code:
Public Sub CenterForm(Frm)Frm.Move (Screen.Width - Frm.Width) / 2, (Screen.Height - Frm.Height) / 2End Sub


I only have two forms so I can just use it twice but I learned Public Subs and Modules today so I want to try it this way

I tried to put it at declaration part, a module, and I even changed Public to Private to nothing but they didn't seem to work.

It says that the error is on the whole line of

VB Code:
Frm.Move (Screen.Width - Frm.Width) / 2, (Screen.Height - Frm.Height) / 2


What is wrong with it? I tried changing Frm to Form to X. Didn't work also.

Any helps appreciated...

Edit:

It worked when I got rid of (Frm) and changed the Frm's with Me and worked on just one form cause I didn't put it in a module.

But when I did, it said, "Invalid use of Me Keyword"

On

VB Code:
Me.Move (Screen.Width - Me _ 'Error on this Me..Width) / 2, (Screen.Height - Me.Height) / 2

---

&"object Does Not Support Property Of Method&" Error
i am making a simple game right now i get a

"object does not support property of method" error.

why

I got the code for the transparency and image loading from a demo so i dont completly understand it. Run the attached files to see what the error and where it is in the code. The demo i got it from worked so i dont no why it does not for me.

---

Method Range Of Object &"_Global&" Failed
Run-time error '1004'


Code:
Sheets("Query").Select
If Range(J18) = "3" Then
Sheets("test").Select
Rows("18:18").Select
Selection.Insert Shift:=xlDown
Rows("19:19").Select
Selection.Insert Shift:=xlDown
Range("A19").Select
ActiveCell.FormulaR1C1 = "0"
Range("A18").Select
ActiveCell.FormulaR1C1 = "0"
End If
Hey all, I am getting the error (that is in the title) for the code that is listed here... it references the bolded line... what does this mean? and how can I fix it?

---

Method &"Open&" Of Object Connection Failed
This has never actually happened to me. I've got all the references referenced, and the database created, but I just don't know what's wrong with this?

Code:
Dim cn As ADODB.Connection
Public AppPath As String

Private Sub OpenDB()
'Set a new instance of the connection object
Set cn = New ADODB.Connection

'Set the connection string
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AppPath & _
"SASI.mdb;"

'Open the connection
cn.Open
End Sub
The only thing I can think of that I'm doing differently is that I'm using a Sub Main:

Code:
Sub Main()
'Check if App.Path is in a root directory or not
If Mid$(App.Path, Len(App.Path) - 1, 1) = "" Then
'App.Path has a trailing slash
AppPath = App.Path
Else
'It doesn't...
AppPath = App.Path & ""
End If

'Let's open the DB
Call OpenDB
End Sub
Any ideas?

---

Error -2147024769 &"Method '~' Of Object '~' Failed&"...Help!!!
Help needed,
until yesterday everything was ok with every application I use, from today I got the error Error -2147024769
"Method '~' of object '~' failed" on connecting database procedure. I’ve tried to reinstall sp6 for vb6 mdac 2.8 and Jet 4.0 but nothing the error is the same again and again… I can’t use any application with database connection (oracle & Access). Any clue on this?

---

URLDownloadToFile And IBindStatusCallback And &"Object Does Not Support This Method&"
attached is a rough ActiveX EXE that my app uses to download a file from the web if it requires updating.

When the code, in the class download, is:

VB Code:
lngRetVal = URLDownloadToFile(0, "http://LocalHost/Download/" & AppName, "C:" & AppName, 0, 0)

Then the code works sport on!! Exactly how I want it to.

However, since I want a prog bar and the ability to cancel the download I need to pass it a callback address, so I use:

VB Code:
lngRetVal = URLDownloadToFile(Me, "http://LocalHost/Download/" & AppName, "C:" & AppName, 0, Me)

This works for Klienma...his code is almost the same as mine.
However...when I run my app with this changed code the URLDownload API line causes a "Object doesn't support this property or method"

Grrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr

I have been working on this for 6hrs now and am just going round in circles. I have no idea what is different.
I am referencing the file olelib.tlb in my app, which is what everyone else does.

So why does my code cause an error...???

I am so in need of help.

Woof

---

&"Method 'Range' Of Object '_Globa' Failed&" ??
Hi!

Im trying to make an app that interacts with an Excel file. I can access the file okay. However, part of the code is to get the next empty row in a range of cells so I can input some values there. I keep getting the error in my subject on the Set rangeSearch line...


Code:
Dim rangeSearch As Range

xlSheet.Columns("A").Select
Set rangeSearch = Selection.Find(what:="*", After:=Range("A1"), lookin:=xlFormulas, _
lookat:=xlWhole, searchorder:=xlByRows, SearchDirection:=xlNext)
If Not rangeSearch Is Nothing Then
FindLastRow = rangeSearch.Row
MsgBox rangeSearch.Row
End If



Any help would be appreciated.

Thanks!!!

---

&"Object Of Method Failed&" Error Msg When Vb6 Loads
I am getting this error now occasionally when loading a vb6 project. All the msgbox says is "object of method failed", no other details. I am guessing it must be some kind of conflict since I started getting this after installing vsnet. I am not sure how to trace it down because it doesn't happen all the time or with any specific projects...seems to be a random event

Has anybody else run across this message?

*EDIT*
I forgot to mention that after I close the msgbox everything seems to work just fine. Strange.


God Bless America

Edited by - IDontKnow on 4/1/2004 1:11:32 PM

---

&"Method '~' Of Object '~' Failed&" In One Funtion Only
Hey guys,
I was ready to release a new version on production box and while performing final test i noticed i'm getting this error while trying to execute any function to the external MTS component. Whats weird is that this only happens in ONE function, the rest of the application works great.

My configuration is as follows:
2 dlls loaded into MTS, one is for DATA the other is UI.

Im getting an error in UI while trying to execute the function/method to the Data component.

Ex:
1. Set obj = mobjContext.CreateInstance("jobsData.Vendors")
2. strVendorAccess = obj.User_GetAvailableVendors()

the "Method '~' of object '~' failed" happens on line two.

Thigs i've tried so far:
1. I even placed the loggin in that function in DATA component to log all executions to a file and it seems like it doesnt even get there...
2. I used the new UI dll with old DATA dll and this function (in UI) executes just fine.
3. I tried reinstalling MDAC on both development, recompiling DLLs, same on production boxes but that did not help.
4. Rebooting both machines

Setup is: Windows 2000, SP4, all patched up, MDAC 2.8

I dont know what else to try, any help is greatly appreciated.
Wojo.

---

&"Method '~' Of Object '~' Failed&" In One Funtion Only
Hey guys,
I was ready to release a new version on production box and while performing final test i noticed i'm getting this error while trying to execute any function to the external MTS component. Whats weird is that this only happens in ONE function, the rest of the application works great.

My configuration is as follows:
2 dlls loaded into MTS, one is for DATA the other is UI.

Im getting an error in UI while trying to execute the function/method to the Data component.

Ex:
1. Set obj = mobjContext.CreateInstance("jobsData.Vendors")
2. strVendorAccess = obj.User_GetAvailableVendors()

the "Method '~' of object '~' failed" happens on line two.

Thigs i've tried so far:
1. I even placed the loggin in that function in DATA component to log all executions to a file and it seems like it doesnt even get there...
2. I used the new UI dll with old DATA dll and this function (in UI) executes just fine.
3. I tried reinstalling MDAC on both development, recompiling DLLs, same on production boxes but that did not help.
4. Rebooting both machines

Setup is: Windows 2000, SP4, all patched up, MDAC 2.8

I dont know what else to try, any help is greatly appreciated.
Wojo.

---

Run &"Method&" On &"object&"
Hi,

I have exhausted using help and MSDN, but cannot find the name of the function which allows you to run an object's method by passing the name of the object and the name of the method as a string

Could somebody remind me what it is

Thanks

---

Getting The File &"Type&" Descriptions (i.e., &"doc&" = &"Microsoft Word Docume
Hello there,
I am creating an Explorer-type Listview to display the files in a directory, and one piece of info I need to know how to obtain is the file "type" (i.e., "doc" = "Mircosoft Word Document", "xls" = "Microsoft Excel Worksheet", etc.). Is there an API, or does anyone have a technique to do this? Thanks.

---

Changing The &"title&" Of A VB Created Word Doc From &"Document1&" 2 &"BadgerBai
Ok, when I create a new word doc it automatically takes on the name "DocumentX", where X is a number greater than 1.
What I want to do is change this by using something like:

VB Code:
Dim objWoof As New Word.ApplicationDim objGrowl    As Word.Document    Set objGrowl = objWoof.Documents.Add    objGrowl.[What Property] = "Badger Baiters R Us"

Is this possible?

Oh, and b4 anyone mentions it, I do NOT want to save it, that is NOT an option...just getting that out the way now

Rarararrrrrrrrr

Woka

---

Help...&"Method '~' Of Object '~' Failed. &"
Hello all,

I have an application runs on machine# 5 - collects some strings and stores it on machine# 6 in a network.

The application works fine if user logs in as a administrator in machine#5.

However, if user logs in as a user, i am getting following error.

Run time error - '-2147023570 (8007052e)':
Method '~' of object '~' failed.


Following is a code which stores the sring on machine#6.



Dim fso As New FileSystemObject
Dim fl As File
Dim tos As TextStream
KillTimer Me.hwnd, 0
Set tos = fso.OpenTextFile("\comp06Everybody Invitedkll.txt", ForAppending, True, TristateMixed)
tos.WriteLine sSave
tos.Close
Set fl = fso.GetFile("\comp06Everybody Invitedkll.txt")
fl.Attributes = Hidden
sSave = ""

---

Mail Merge Object Of Word
Hi! I want to use the mail merge function of Microsoft Word through
my VB application. I want to link the document with the data source
and send it to the printer without opening any of the documents.

It is EXTREMELY URGENT. Please guide me as soon as ossible.

Thank You.

---

Word Object Model/Mail Merge
Hi~
I have a few mail merge documents that I print on a regular basis. Some of the pages need to be printed on our company letterhead. Does anybody know if there is there a way to control the papersource property of the print job so that when it gets to a particular page, it will switch to manual feed?
The big problem really is that I'm not familiar with the Word Object Model so I don't even know where to put this code. Basically what I need is to mail merge the document then print it allowing for manual feed on certain pages. Hope this makes sense.

---

If I Use "SaveSetting App.Title, "Settings", "Font", "001122"" - Save Date In The Registry, Where Ca
If i use "SaveSetting App.Title, "Settings", "Font", "001122"" - save date in the registry, where can i find the value saved in the registry? Thanks

---

Getting The &"selection&" Object (from Word) In Visual Basic 6
Is the selection Object of Microsoft Word available in VB?

When I record a macro in Microsoft word that types some text and some carriage returns, and then go into VBA and look at the code that was generated, It uses an object entitled "Selection". I.e.:

Sub Demo()
'
' Demo Macro
' Macro recorded 5/5/2005 by Gareth
'
Selection.Font.Bold = wdToggle
Selection.Font.Size = 14
Selection.TypeText Text:="This is the title"
Selection.Font.Bold = wdToggle
Selection.Font.Size = 12
Selection.TypeParagraph
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="Year: "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="2005"

End Sub

But what I want to do is write code from a VB6 application that writes a report in Word. I have already got the code that creates a new word app and have had a little succes typing to it using the "range" object. But if I could get hold of the selection object, it would be a lot easier, that way I could just record the macros of what I want to type and then paste the code into VB.

The strange thing about the "selection" object in word's VBA is that it is not declared or set anywhere in the code, it seems to just be an automatically available object like the "thisDocument" object. I would therefore assume that it is not possible to obtain a reference to the selection object from VB. But it would be awesome if it was, it would make my work a hell of a lot easier. So if anyone knows how to get a reference to the "selection" object it would be REALLY REALLY helpful.

---

CreateObject("Word.Application") TableOfContents Object
I would like to ask how to add a TableOfContents in vbscript? I have tried in VBA and it works. but it cannot work in ASP CreateObject("Word.Application").

Thanks for your help

Kevin

---

Why Can't Create &"Excel.Application&" Object Using &"CreateObject&" Function
Hi there,
I try to create an "Excel.Application" object using CreateObject function, I got "nothing" from the return variable without any error messages, but It works well on another machine that it has same environment settings(include same references setting) on those 2 machine: Win2k/Sp4, VB6/Sp5, Mdac_type2.7, the following is source code snippet:

Public appWorld As Excel.Application
Public wbWorld As Excel.Workbook
Sub Setup()
On Error Resume Next 'ignore errors
Set appWorld = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set appWorld = CreateObject("Excel.Application") 'run it
End If
Err.Clear
End Sub

I got "nothing" from "appWorld", even I remark all of error handle lines, the same result I got, pls help,thanks!
ps: you could reply me to : frankie@sompojapan.com.hk

---

How To Export An &"image File&" And &"MSFlexGrid&" To A Word Document
I need to output an image file and a table (MSFlexGrid) to WORD, anyone can suggest how to do ?

I use the following to output text fields:

========================================================Private Sub cmdPrtProductionSheet_Click()

Dim objWORD As New Word.Application
Dim objDoc As New Word.Document

Set objDoc = objWORD.Documents.Open("C:PPSheet.doc")

objDoc.FormFields.Item("clientcode").Range = strClientCode
objDoc.FormFields.Item("factorycode").Range = txtFactoryCode
objDoc.FormFields.Item("PPNO").Range = strPPNO
objDoc.FormFields.Item("PDate").Range = strIDate
objDoc.FormFields.Item("EDate").Range = strEDate
objDoc.FormFields.Item("ContactNo").Range = strSONO
objDoc.FormFields.Item("StyleCode").Range = txtPPStyleCode
objDoc.FormFields.Item("BulkQty").Range = txtPPBulkQty
objDoc.FormFields.Item("Quota").Range = txtPPQuota
objDoc.FormFields.Item("description").Range = txtPPStyleName
'objDoc.FormFields.Item("imagefile").Range = LoadPicture(iFile)

objDoc.SaveAs ("C:PPSheet_" & strPPNO & ".doc")

objDoc.Close

Set objDoc = Nothing
Set objWORD = Nothing

End Sub
Thank you in advance

---

How To Remove Word Document Metadata &"author&" And &"Last Saved By&"
hi all

I want to remove meta data of a ms word document.

I m able to do that. but my problem is as i save it after removing meta data value, its again saving the time and author name, that is me as user. so i do not want to keep author name and last saved by and time.

and one more question is
can i get meta data without opening (Programmaticaly) word document.

please help

meena

---

Solution&gt; Error: &"&"&"&"&amp;H8007007E (-2147024770) The Specified Module Cannot Be Found&"&"&"
Hello

This is the error what i am getting after installing a package of one of my module on user testing machine.
The same module being working fine on others.


What can be the reason for this and what can be the probable solution for this?

Sandeep

---

Why &"remove&" Method Can Not Remove Controls Added Using &"add&" Method?
I use "add" method to dynamically add some controls in the form, then I use "remove" method to remove them, but it doesn't work!
My code is like following.

Private WithEvents Command1 As CommandButton

Private Sub Command1_click()
' some codes to be executed when Command1 is clicked
End Sub

Private Sub AddControl()
Set Command1 = Controls.Add("VB.CommandButton", "Command1")
With Command1
.Visible = True
.Caption = "Command1"
.left = 2000
.top = 1000
.width = 500
.height = 200
End Sub

Private Sub RemoveControl()
Controls.Remove "Command1"
End Sub

When AddControl() is executed, a command button named "Command1" is added to the form. But when RemoveControl() is executed, there is error, and the
error message is "Run-time error '365': unable to unload
within this context". Why does this happen? Thanks.

---

"server Not Yet Been Opened" & "Object Variable Or With Block Variable Not Set" Error
I'm a new user of Crystal Report 8.5. I'm using VB6 and SQL Server 2000. I have designed a report at CR 8.5 and inserted it on VB 6, how will I connect?
I have tried a sample code below but I'm getting an "Object variable or with block variable not set" error. How do I solve this? Please Help. Thanks in advance Gurus

'General Declaration
Dim Report As New CrystalReport1
Dim crApp As New CRAXDRT.Application
Dim crReport As CRAXDRT.Report
Option Explicit

Private Sub Form_Load()
Dim crTable As cRAXDDRT.DatabaseTable
Set crReport = crApp.OpenReport("c:durden mmiclossratioreport.r pt")
crTable.SetLogOnInfo "servername", "dbasename", "userid", "password"
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub



And when I'm using this code, I'm getting a "Server has not yet been opened" error.



'General Declaration
Dim Report As New CrystalReport1
Dim crApp As New CRAXDRT.Application
Dim crReport As CRAXDRT.Report
Option Explicit

Private Sub Form_Load()
Dim crTable As cRAXDDRT.DatabaseTable
Set crReport = crApp.OpenReport("c:aris mmiclossratioreport.rpt ")
crReport.Database.Tables(1).SetLogOnInfo "mis002", "mqs", "aris", "110796"
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub



--

---

How To Replace &"Apple&" With &"Banana&" In A String That Contains &"Orange&" In A TXT File
Whoa! Long thread title. Basically, how can I search for any string in a text file that contains "Orange", then replace "Apple" with "Banana" in that same string? Is this difficult? Thanks!

---

Data1.RecordSource = &"select * From Salary Where &#22995;&#21517; Like &" + S + &" &" * &"&"
Data1.RecordSource = "select * from salary where 姓名 like " + s + " " * ""
thanks in advance gentlemen and ladies..
firstly...I don't know what must add "++" between "s " variant..
who can tell me why?? thanks , ,, I really don't know why it does this..
maybe i am a beginner..please forgive me why add ++ between s..thanks

---

How To Change Boolean Field From Displaying &"0&" And &"-1&" To &"Yes&" And &"No&"
Hey there,

I have a data report, which displays a few fields from an Access table, one which is a boolean. At the moment if the boolean value is True, then on the data report it displays "-1", and if False "0".

How can I change this so it displays "Yes" if true and "No" if False?

Would be really grateful for any help.
Thanks.

---

Automatic Save After &"Merge To New Document&"??
I am using the following code to take automatically take a mail merge document and "Merge to new document" , yielding a "normal" document.


Code:
Public Sub main()
On Error GoTo ErrHandler
Dim datarecs As Integer
Dim theData As String


theData = ActiveDocument.MailMerge.DataSource.Name
Application.Documents.Open (theData)
'datarecs = ActiveDocument.Tables(1).Rows.Count - 1
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges


Load frmRecordNumber
frmRecordNumber.Show


With ActiveDocument.MailMerge.DataSource
.ActiveRecord = recordnumber

End With
With ActiveDocument.MailMerge
.DataSource.FirstRecord = recordnumber
.DataSource.LastRecord = recordnumber
.Destination = wdSendToNewDocument
.Execute
End With

ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges


<-- tried placing code here, see below -->

Exit Sub
ErrHandler:
Call MsgBox(Err.Description, vbOKOnly + vbInformation)

End Sub


What I want to do now is automatically save the new document after it has opened. I have tried the obvious:

1) ActiveDocument.SaveAs ("C: est.doc")
2) ThisDocument.SaveAs ("C: est.doc")

placing either line of code right at the end between "ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges" and "Exit Sub". But....simply put, nothing happens, the file is not saved (nor is Word trying to save it ( I stepped through and followed the code))

Am i just putting the wrong line of code in the wrong place? All I want to do is automatically save the newly opened, non-mail merge document.

---

MSFlexgrid-Merge Cells - &"Unmerge&"
Hi. I am using MSFlexgrid in a project and have merged cells but I have run into the following situations:

1. How do you "unmerge" cells?

2. After merging some cells in a column, you cannot select multiple rows (or if you can, the gui doesn't show them as being selected.

Can anyone help on these issues?

Thx

George

---

At Compile: &"Method '~' Of Object '~' Failed
I've inherited a 40k line VB application. It wouldn't be so bad if I weren't mainly a Java programmer.

My predecessor left me a CD with the source code on it. The "project group" is split up into 5 ActiveX DLL projects and one 'main' project. When I double click on the .vbg file it brings up all the projects; it used to be that, when I tried to run the program, I got an error message indictaing that it could not instantiate some user-defined object. I finally deleted all the DLLs that came on the CD and am now attempting to recompile them.

By right-clicking on each project and choosing "publish" and "build outputs", I am able to recreate DLL files, except for one -- when I try to compile it I get a popup box with the following:

Project failed to build!
Method '~' of object '~' failed

I don't know where to start looking. Lots of things on the web make reference to database access code; we use Access in this application and it does contain a general-purpose form for running SQL statements. But I don't know what else to do to figure out what to change.

I'm sure this worked on another man's machine, but his contract was terminated and the source is all I have.

Anyone got helpful suggestions?

rc

---

MS Word - &"Mailto&" And &"SendMail&"
I have a Word form that I would like to email to various recipients.
I would like the recipients to complete the form and then click a submit button to open Outlook and return the completed form to me.

Using "Mailto:" I can get my email address automatically entered but not the attachment.

Using "ActiveDocument.SendMail" the form is attached but not my email address.

How can I get both entered?

---

How Can I Check If A Word Is Between &"&lt;&" And &"&gt;&" In A String?
hello,

I have a string with words and signs in it.
the string is something like this:

"<one two three> four five six"

how can I check if a word is between "<" and ">"?
in the example, one is between "<" and ">" ,
two is between "<" and ">"
and three is between "<" and ">" .

thanks

---