Activate Webpage Button Where 2 Have Same Name

Re: Activate Webpage Button Where 2 Have Same Name

Quote from Fencliff

All I see in my crystal ball is "401 Unauthorized"

I've tried shaking it, polishing it, turning it on and off, banging it on the top, but nothing. Could somebody pls help?

All I have is:

Run time error 70,Permission Denied.Is there any body has any opinion?

Is it syntex error or something else?[hr]*[/hr] Auto Merged Post Until 24 Hrs Passes;[dl]*[/dl]

Quote from Fencliff

I don't know. Why don't you try and tell me instead?

I checked it but variable shows the above error when it reaches the contentwindow property:
here the veriable

Doc.all.workframe.[b]contentWindow[/b].Document

[hr]*[/hr] Auto Merged Post Until 24 Hrs Passes;[dl]*[/dl]

Quote from Fencliff

I don't know. Why don't you try and tell me instead?

the code runs proper uptil Doc.all.workframe.contentWindow but when I add another property with it i.e. document property and pass it to a variable or without variable it shows error of permission denied.[hr]*[/hr] Auto Merged Post Until 24 Hrs Passes;[dl]*[/dl]

Quote from farhan_babu

All I have is:

Run time error 70,Permission Denied.Is there any body has any opinion?

Is it syntex error or something else?[hr]*[/hr] Auto Merged Post Until 24 Hrs Passes;[dl]*[/dl]

I checked it but variable shows the above error when it reaches the contentwindow property:
here the veriable

Code

Doc.all.workframe.[b]contentWindow[/b].Document

[hr]*[/hr] Auto Merged Post Until 24 Hrs Passes;[dl]*[/dl]

the code runs proper uptil Doc.all.workframe.contentWindow but when I add another property with it i.e. document property and pass it to a variable or without variable it shows error of permission denied.

Display More

I am partially successful here is the code:

Sub SelectExplorer()
Dim IE As SHDocVw.InternetExplorer
Dim SWS As SHDocVw.ShellWindows
Set SWS = New SHDocVw.ShellWindows
Dim ens
Dim Doc As HTMLDocument
Dim myIframe As HTMLIFrame
Dim doc2 As HTMLDocument
Dim cFrame As HTMLIFrame
Dim doc3 As HTMLDocument
Dim ele As IHTMLElement
Dim mForm As HTMLFormElement
'Set IE = New SHDocVw.InternetExplorer
For Each IE In SWS
If IE.LocationURL = "http://crm.wateen.com/board/" Then
'Set IE = New SHDocVw.InternetExplorer


IE.Visible = True
Set Doc = IE.Document
End If
Next


Set myIframe = Doc.getElementById("WorkFrame")
Set doc2 = myIframe.contentWindow.Document
Set cFrame = doc2.getElementById("CustomerInfo")
Set doc3 = cFrame.contentWindow.Document






doc3.all.Item("btnSearch", 3).Click
'While IE.readyState <> 4
'Application.Wait Now + TimeSerial(0, 0, 1)
'Wend
doc3.getElementById("tfcontract").innerText = "177300001234"
doc3.getElementById("btnfindcontract").Click




End Sub