onclick submit button vba html

다른 "value = xxx"매개 변수가있는 multilpe 제출 버튼이있는 HTML 페이지가 있습니다. MSAccess 모듈의 VBA 코드를 통해 올바른 값으로 양식을 제출해야합니다!onclick submit button vba html

<form method="post" name="data" action="/data1/infoProjetFO.php" onsubmit="return(checkPQ())" > 

<input type="submit" name="Btn" value="SaveRecord">&nbsp;&nbsp; 

<input TYPE="submit" name="Btn" VALUE="Distribution" id="idBtnDistribution" style="visibility:visible;" />&nbsp&nbsp; 

'======================================================== 
sURL = "http://corp.myintrranet.com/index.php" 
Set tBrowser = GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}") 
tBrowser.navigate sURL 


' Wait till the Browser is loaded 
Do While tBrowser.Busy Or tBrowser.ReadyState <> 4 
    DoEvents 
    Debug.Print tBrowser.ReadyState 
Loop

여기 다른 값을 가져올 수있는 코드가 있으며 문제가없는 값을 삽입 할 수 있습니다.

'here is what I've tried! 
tBrowser.Document.Forms("data").all("Btn").Value = "SaveRecord" 
tBrowser.Document.Forms("data").all("Btn").Click 
' or I tried 
tBrowser.Document.Forms("data").all("Btn").submit

조합 내가 오류 코드 438 트래핑에 적절한 전송 버튼 값의 결과를 삽입하려고했습니다, 객체는 지원하지 않습니다 ....
그래서 내가 클릭하거나 오른쪽 값으로 제출해야!

감사

피트

출처

2017-02-07 Peter

는 모든 버튼의 이름이 같은 이유는 특별한 이유가 있습니까? – Armin

내가 액세스하는 웹 페이지가 내가 통제 할 수없는 기존 웹 페이지 인 이유를 모르겠다! – Peter

이 링크가 도움이되는지 확실하지 않은 경우 : http://stackoverflow.com/questions/8926378/how-to-select-an-input-element-by-value-using-javascript js를 사용하는 경우 버튼의 값 (또는 값을 기준으로 버튼). 그러나, 당신은 이미 그 값을 사용할 수 있다고 가정하는 onsubmit() 메소드를 가지고 있습니까? – Armin

솔루션 발견!

Set Formtst = tBrowser.Document.getElementsByTagName("input") 
For Each btest In Formtst 
    If btest.Value = "SaveRecord" Then 
     btest.Click 
     Exit For 
    End If 
Next

감사

피트

출처

2017-02-07 16:32:55 Peter

onclick submit button vba html

답변

관련 문제