onclick submit button vba html

Ich habe eine HTML-Seite, die Multifil-Buttons mit unterschiedlichen "value = xxx" -Parametern hat. Ich muss das Formular mit dem richtigen Wert über VBA-Code in MSAccess-Modul senden!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

'hier habe ich Code, der verschiedene Werte erhalten kann und auch Werte ohne Problem einfügen!

'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

Kombinationen Ich habe in Trapping-Fehlercode 438, die richtige Taste Wert Ergebnis vorlegen einzufügen versucht Objekt nicht unterstützt ....
Also muss ich mit dem richtigen Wert klicken oder einreichen!

Dank

Pete

Quelle

2017-02-07 Peter

Gibt es besonderen Grund, warum alle Tasten den gleichen Namen haben? – Armin

Ich weiß nicht warum, da die Webseite, auf die ich zugreife, eine existierende ist, von der ich keine Kontrolle habe! – Peter

Nicht sicher, ob dieser Link hilfreich ist: http://stackoverflow.com/questions/8926378/how-to-select-an-input-element-by-value-using-javascript Wenn Sie js verwenden, können Sie erhalten Wert einer Schaltfläche (oder Schaltfläche nach Wert). Sie haben jedoch bereits die Methode onsubmit(), von der ich denke, dass sie diesen Wert verwenden kann? – Armin

die Lösung gefunden!

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

Dank

Pete

Quelle

2017-02-07 16:32:55 Peter

onclick submit button vba html

Antwort

Verwandte Themen