Problem with function call

[vijay44]

Hi,

I wanted to pass the name of the webbutton from the datasheet. for this reason iam using the below code:

Code:

Function  ClickWebButton(strName)
If  strName = "" Then
Exit Function
End If
Set WbButton = Description.Create()
WbButton("micclass").Value = "WebButton"
WbButton("Index").Value = 1
' ClickImage("name").Value = strName
WbButtonFound = False
Set AllWbButton = Browser("micclass:=browser").page("micclass:=page").ChildObjects(WbButton)
For i = 0 TO AllWbButton.count-1
WBname = AllWbButton(i).GetROProperty("name")
If WBname = strName  Then
WbButtonFound = True
strDisable = AllWbButton(i).GetROProperty("disabled")
AllWbButton(i).Click
Exit Function
Exit For
End If
Next
Set WbButtonFound = Nothing
End Function

and i am calling the above function
Call ClickWebButton(Save)-->Save is the name of the Webbutton used as the strName.

The above code is not working
Any help will be really appreciated.

Regards;
Vijay

[Saket]

set one more property in your description object

Code:

WbButton("name").Value = strName

let me know how it goes.

[Anshoo Arora]

Hi Vijay,

When you attempt to create an object collection with the index as one of the defining properties, you're limiting the size of the object collection as well as stating that you're certain of the object to be retrieved through the use of the ordinal identifier. If you remove the below line of code, and create your function, you should see better results.

Code:

WbButton("Index").Value = 1

Secondly, you can improve performance in your code if you use the property within the description object instead of looping through all items and finding the button with the correct name. Since your code clicks the first found WebButton, wouldn't it be better to limit your code to the following:

Code:

Set WbButton = Description.Create()
WbButton("micclass").Value = "WebButton"
WbButton("name").Value = strName
        
Set AllWbButton = Browser("micclass:=browser").page("micclass:=page").ChildObjects(WbButton)

AllWbButton(0).Click

Lastly, the below lines of code:

Code:

If WBname = strName Then
ClickWebButton = True

should be:

Code:

If WBname = strName Then
ClickWebButton = True

I hope this helps.

---

Correction in my last statement:

Lastly, the below lines of code:

Code:

If WBname = strName Then
WbButtonFound = True

should be:

Code:

If WBname = strName Then
ClickWebButton = True