We developed a small test database that we are using to attempt to connect to a wsdl to consume web services. The database form contains 3 fields and a submit button on the form. At the bottom I've included the code behind the button on the form and the class module code that was generated by the Web Service Tool.
I've added a little bit of information that pertains to the Access Database and our process and expected results:
VBA for connection to wsdl has been generated using the Web Service Tool and is displayed in the Class Module called clsws_Service0
From the form the user will input Submission ID, Timestamp and Sequence.
Clicking Submit should run vba code to Call the Class Module, passing the field data values input into the form which will in turn call the wsdl document
The form field values should be cleared
The user should receive either an error message or success message
In the class module it states that we are to Dimension the class as a new Class which we have done. We have also added the fields in the form to the code. What we do not know how to do is to write the appropriate code to accomplish what we have outlined above.
We do not understand exactly what we should be putting in our Access 2003 application to make this work. Can anyone help us out with the code in VBA to do this!
*&***************************************
From the form I click on a submit button. This is the code behind the button:
Private Sub Submit_Click()
Dim objNodeList As IXMLDOMNodeList
Dim SubLogTest As New clsws_Service0
Dim strSubmissionID As String
Dim strTimestamp As String
Dim strSequence As String
Dim strSeparator As String
strSeparator = "<br />" + Chr$(10)
strSubmissionID = strSubmissionID
strTimestamp = strTimestamp
strSequence = strSequence
MsgBox ("Got this far")
Set SubLogTest = New clsws_Service0
Set objNodeList = SubLogTest.wsm_CorrectedAddressXml(txtSubmissionID, txtTimestamp, txtSequence)
End Sub
******************************************************
This is the code generated by using the Web Service Tool and connecting to the url given to us by our xml team.
I've added a little bit of information that pertains to the Access Database and our process and expected results:
VBA for connection to wsdl has been generated using the Web Service Tool and is displayed in the Class Module called clsws_Service0
From the form the user will input Submission ID, Timestamp and Sequence.
Clicking Submit should run vba code to Call the Class Module, passing the field data values input into the form which will in turn call the wsdl document
The form field values should be cleared
The user should receive either an error message or success message
In the class module it states that we are to Dimension the class as a new Class which we have done. We have also added the fields in the form to the code. What we do not know how to do is to write the appropriate code to accomplish what we have outlined above.
We do not understand exactly what we should be putting in our Access 2003 application to make this work. Can anyone help us out with the code in VBA to do this!
*&***************************************
From the form I click on a submit button. This is the code behind the button:
Private Sub Submit_Click()
Dim objNodeList As IXMLDOMNodeList
Dim SubLogTest As New clsws_Service0
Dim strSubmissionID As String
Dim strTimestamp As String
Dim strSequence As String
Dim strSeparator As String
strSeparator = "<br />" + Chr$(10)
strSubmissionID = strSubmissionID
strTimestamp = strTimestamp
strSequence = strSequence
MsgBox ("Got this far")
Set SubLogTest = New clsws_Service0
Set objNodeList = SubLogTest.wsm_CorrectedAddressXml(txtSubmissionID, txtTimestamp, txtSequence)
End Sub
******************************************************
This is the code generated by using the Web Service Tool and connecting to the url given to us by our xml team.