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
