Question

我有一个HTML页面，其中包含具有不同“value = xxx”参数的multilpe提交按钮。我需要通过MSAccess模块中的VBA代码提交具有正确值的表单！

<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中插入正确的提交按钮值结果，对象不支持....
所以我需要点击或提交正确的值！

谢谢

皮特

Answer 1

找到解决方案！

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

谢谢

皮特

onclick提交按钮vba html

1 个答案: