Copy values from Access form to online webpage form

[themushroomking]

Hi there folks! Trying to be innovative here but it wont budge. :S


At work we have an Access database. At the end of the day, they need to copy some of the data to an online web form manually. (NOTE: We can not do anything about this in any way! Customer website)
Instead of doing this manually, i would like to post the values from my form, to the webform. This shouldnt be too difficult as i know what the fields are called in the webform.

Currently i have a form with a "web browser control" (browser) window.
In the same form i have a field (field1).
I have a button (button1).
The fieldname in the webform is called (text1).

The event procedure of my button is:
Private Sub button1_Click()
browser("text1).Value = field1
End Sub


Im not an expert so bare with me here. Can anyone point me in the right direction here?


Currently its not working. Type mismatch. (i figured it wouldnt work) ALL HELP IS WELCOME!

[June7]

Example from my project:

        'open ASTM/AASHTO test standards website and pass agency username/password to the web page
        Dim oBrowser As InternetExplorer
        Set oBrowser = New InternetExplorer
        oBrowser.Silent = True
        oBrowser.Navigate "https://login.ihserc.com/login/erc?"
        oBrowser.Visible = True
        Do
            'Wait till the Browser is loaded
        Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
        oBrowser.Document.all.Item("subAcctLoginName").Value = "user"
        oBrowser.Document.all.Item("subAcctPassword").Value = "password"
        oBrowser.Document.all.Item("Submit").Click

[themushroomking]

Hi June7 . Thank you so much for the reply. Im struggeling still with this.

Your code looks simple but effective. Awesome!

I just dont get it to run :S. I put this code on Form Load event?? Or a module?
Is there anything else i should add somewhere? I added Microsoft internet controls to my references. But thats it.

Thanks in advance for your help and patience

[orange]

If you post your code or database, you might get more focused responses.

[June7]

My code is in a button Click event. And yes, reference the Internet Controls library.

[themushroomking]

Terrific June7! It's working! Thank you so very much. Youre a life saver.

SOLVED >>> For anyone interrested: (ill keep it neutral and easy)


Private Sub button_Click()
Dim oBrowser As InternetExplorer
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.Navigate "https://www.roboform.com/filling-test-all-fields"
oBrowser.Visible = True
Do

Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
oBrowser.Document.all.item("01___title").Value = Me.FormField1
oBrowser.Document.all.item("02frstname").Value = Me.FormField2
'oBrowser.Document.all.item("Submit").Click
End Sub