how to continue after running a function

[yuetling926]

Hi everybody,

As I am just a Beginner in QTP. I got a question here.
I have found a function and the function run properly.
However, I don't know how to set the Qtp to continues with the scripts when "intRows = 1". If "intRows" doesn't equal to 1, then an error should pop-put.
Can anyone help ?

Here is the function I found.
Function GetSiebListRows( byRef oSiebApplet, pValUINameSiebList )
'—————————————————————————————————————————

Code:

'SiebList is a list object in a Siebel test automation environment Dim vCounter If InStr(1, pValUINameSiebList, "uiname") <> 0 Then pValUINameSiebList = Trim(Split(pValUINameSiebList, ":=")(1)) End If 'From QTP Ref: '_ The RecordCounter indicates the visible text of the record counter '_ string (for example: 1 - 7 or 7+) vCounter = oSiebApplet.RecordCounter Do If InStr(1, vCounter, "+") <> 0 Then oSiebApplet.SiebList("uiname:=" & pValUINameSiebList).NextRowSet vCounter = oSiebApplet.RecordCounter Else vCounter = oSiebApplet.RecordCounter Exit Do End If Loop If InStr(1, vCounter, "of") <> 0 Then vCounter = CInt(Trim(Split(CStr(vCounter), "of")(1))) End If GetSiebListRows = vCounter End Function Dim oSiebApplet, intRows Set oSiebApplet = SiebApplication("Siebel Energy (CMS DR)").SiebScreen("Agreement").SiebView("Agreement Charges").SiebApplet("Invoices") intRows = GetSiebListRows( oSiebApplet, "uiname:=List" )

[Saket]

In which part of the code you are having difficulty, as per your explanation I understood that your function GetSiebListRows is working fine and you are getting the output in intRows. No you want to check some condition and proceed further. right? Correct me I am wrong.

you can simply use an IF..Then..Else

Code:

IF intRows <> 1 then[hr] you can simply use an IF..Then..Else [code] IF intRows <> 1 then msgbox "Error" else Your Further statements.. end if

[yuetling926]

this is helpful ,thanks
Jody