12-07-2009, 07:54 PM
(This post was last modified: 12-07-2009, 07:58 PM by upadhyay40.)
Hi shreekant,
Please find attached screenshot, this is a code for it please see it and let me know if it has some problem
.
.
..
.
.
Thanks
Mahesh
Please find attached screenshot, this is a code for it please see it and let me know if it has some problem
Code:
Dim EditToSearch,EditValueToSet, NumberOfEdits,LinkToSearch,LinkValueToSet, NumberOfLink,lengthO,SurveyID,a
'This is the value of the 'name' property for the WebEdit object we want to find.
EditToSearch = "txtSurveyID"
'Create a description object to help retrieve all WebEdit objects in a specific page.
Set loginDesc = Description.Create()
loginDesc("micclass").Value = "WebEdit"
loginDesc("name").Value = "txtSurveyID"
'Retrieve all WebEdit objects in this page
Set EditCollection = Browser("Add Survey").Page("Add Survey").ChildObjects(loginDesc)
NumberOfEdits = EditCollection.Count
'Search for a specific Linkobject and set its value
For i = 0 To NumberOfEdits - 1
If EditCollection(i).GetROProperty("name") = EditToSearch Then
EditCollection(i).Set Datatable("SurveyID", dtLocalSheet)
' WriteResults "Enter UserID Succesfully","Corporate User Login","User Enter value 'SYSADMIN'"
End If
Next
Browser("Add Survey").Page("Add Survey").WebButton("Next").Click
If Browser("Add Survey").Dialog("Microsoft Internet Explorer").Exist Then
SurveyID = Browser("Add Survey").Dialog("Microsoft Internet Explorer").Static("Survey ID must contain").Check (CheckPoint("SurveyIDCheckAlpha"))
.
..
.
.
Thanks
Mahesh