Contributions
'Unable to find the object Panel("divTab")'
'Unable to find the object Panel("divTab")' The script kept on failing with this message 'Unable to find the object Panel("divTab"). ' but whenever I capture the field (Object spy) the object does exist. Here's the code looks like: 'Policy Start - Page Set Pg4 = GetPage 'Effective Date Set Effective_Date = Pg4.Frame("MAIN").Panel("divTab").Panel(0).Textbox ("dtaPOLPOL_NEFFDAT") Effective_Date.value = I_Effective_Date Call Effective_Date.Keys(tab) I captured the field using the ObjectSpy with this result Sys.Browser("iexplore").Page("http://advqa/aqs.advantage.client/system/asp/Main_ISLLSYS_20010101.asp?UserID=DCLETO&PolicyID=9 2411&NodeKey=POL%7CPOL%7C0%7C&Action=RateLevel&Dia gnosticMode=0&XMLDetail=%3Citems%3E%3Citem%20name% 3D%27ratingdatachanged%27%20value%3D%27T%27/%3E%3Citem%20name%3D%27datachanged%27%20value%3D%2 7T%27/%3E%3Citem%20name%3D%27auto%20approve%27%20value%3 D%27T%27/%3E%3Citem%20name%3D%27discard%27%20value%3D%27F%2 7/%3E%3Citem%20name%3D%27issue%27%20value%3D%27F%27/%3E%3Citem%20name%3D%27submit%27%20value%3D%27T%27/%3E%3Citem%20name%3D%27comploc%27%20value%3D%27CFM T%27/%3E%3Citem%20name%3D%27transactionid%27%20value%3D %271%27/%3E%3Citem%20name%3D%27policystatus%27%20value%3D% 27In%20Process%27/%3E%3Citem%20name%3D%27sectransactionid%27%20value %3D%271%27/%3E%3Citem%20name%3D%27rlvlocked%27%20value%3D%27F alse%27/%3E%3Citem%20name%3D%27inquiry%27%20value%3D%27F%2 7/%3E%3Citem%20name%3D%27historytype%27%20value%3D%2 7FFL%27/%3E%3Citem%20name%3D%27beginpolicy%27%20value%3D%2 7T%27/%3E%3C/items%3E&expirednumber=0&tab=0&debug=False&transac tion=In Process Quote").Frame("MAIN").Panel("divTab").Panel(0).Tex tbox("dtaPOLPOL_NEFFDAT") Here's the GetPage function: Function GetPage '************************************************* ************************************************** **********' ' Function that obtains the "Page" object. ' '************************************************* ************************************************** **********' Dim w Set w = p.IEFrame(2) Set GetPage = w.Page("*") End Function973Views0likes1CommentRe: Microsoft VBScript runtime error, Object doesn't support this property or method
Thank you. I tried to attached the project but your system won't allow it because of the size of the project. Here's the code: Sub Details_Panel Details_Panel '*************************************************************************************************************' ' Inputs data on the "Policy" panel according to data on the data file (.CSV) and according to the LOB on the,' ' since they share the same screen but the enabled fields can be different. ' '*************************************************************************************************************' '03152013 - Modified Window Object 'Set Pg4 = p.IEFrame(2).Window("Shell DocObject View", "", 1).Window("Internet Explorer_Server").Page("*") Set Pg4 = p.IEFrame(2).Tab("AQS/advantage - Policy - * - Windows Internet Explorer").Window("Shell DocObject View", "", 1).Window("Internet Explorer_Server", "", 1).Page("*") If I_LOB <> general_liability Then Call Pg4.Frame("MAIN").Table("tblTabs").Cell(0, 1).Click Else Call Pg4.Frame("MAIN").Table("tblTabs").Cell(0, 2).Click End If 'Prev. Policy Number Select Case I_Business ' here where it exactly fails, i evaluate this variable and it's returning the correct value. Case auto, special_program Set Prev_Policy_Number = Pg4.Frame("MAIN").Panel("divTab_2").Textbox("dtaBOPPOL_LEXPPOLNUM") Case cma Select Case I_LOB Case inland_marine Set Prev_Policy_Number = Pg4.Frame("MAIN").Panel("divTab_2").Textbox("dtaINMPOL_LEXPPOLNUM") Case crime Set Prev_Policy_Number = Pg4.Frame("MAIN").Panel("divTab_2").Panel(0).Textbox("dtaKRMPOL_LEXPPOLNUM") Case general_liability Set Prev_Policy_Number = Pg4.Frame("MAIN").Panel("divTab_3").Panel(0).Textbox("dtaLIAPOL_LEXPPOLNUM") Case property_ Set Prev_Policy_Number = Pg4.Frame("MAIN").Panel("divTab_2").Panel(0).Textbox("dtaPRPPOL_LEXPPOLNUM") End Select End Select Prev_Policy_Number.value = " " End Sub1.5KViews0likes0CommentsMicrosoft VBScript runtime error, Object doesn't support this property or method
Why am I getting this error, it is just a simple select case code: Select Case I_Business (this is where it's exactly failing), 'I_Business' is a variable and when I evaluate this variable it has a value that is coming from the datafile but can't get pass this line. Any idea, anyone? Thank you.24KViews0likes3Comments