We need four VB functions in Access 2003 VBA that will accept parameters from the application, consume a webservice and return a string SUCCESS or ERROR-ID-CODE-DESCRIPTION
These functions mirror the webservice, documentation for the webservice is attached.
Functions should be named and should syntax as follows.
------------------------
Public Function HLClear(key As String, ownerID As String, homeID As String, groupSize As String) As String
'Send Request to Web Service using passed variables
If WebServiceResponse(Success) = True Then
HLClear = "SUCCESS"
Else
HLClear = "ERROR-ID:" & homeID & "-Code:" & WebServiceResponse(ErrorCode) & "Message:" & WebServiceResponse(Message)
End If
End Function
Public Function HLCurrency(key As String, ownerID As String, homeID As String, Currency As String) As String
'Send Request to Web Service using passed variables
If WebServiceResponse(Success) = True Then
HLCurrency = "SUCCESS"
Else
HLCurrency = "ERROR-ID:" & homeID & "-Code:" & WebServiceResponse(ErrorCode) & "Message:" & WebServiceResponse(Message)
End If
End Function
Public Function HLSetOne(key As String, ownerID As String, homeID As String, groupSize As String, startDate As String, endDate As String, Optional tariffName As String, Optional weeklyRate As String, Optional minNights As String, Optional weekdayRate As String, Optional weekendRate As String) As String
'Send Request to Web Service using passed variables
If WebServiceResponse(Success) = True Then
HLCurrency = "SUCCESS"
Else
HLCurrency = "ERROR-ID:" & homeID & "-Code:" & WebServiceResponse(ErrorCode) & "Message:" & WebServiceResponse(Message)
End If
End Function
Public Function HLSetAll(key As String, ownerID As String, homeID As String, groupSize As String, startDates() As String, endDates() As String, Optional tariffNames() As String, Optional weeklyRates() As String, Optional minNightss() As String, Optional weekdayRates() As String, Optional weekendRates() As String) As String
'Send Request to Web Service using passed variables
If WebServiceResponse(Success) = True Then
HLCurrency = "SUCCESS"
Else
HLCurrency = "ERROR-ID:" & homeID & "-Code:" & WebServiceResponse(ErrorCode) & "Message:" & WebServiceResponse(Message)
End If
End Function
------------------------
The winning bidder should be able to provide these functions, written properly, with code REMARKS/Annotation explaining at each major step what the code is doing.
Variable naming should be descriptive and relevant to the purpose.
We envisage a very quick turnaround and have set a 4 day deadline. If you do not think you can manage this, please do not bid as this has to be completed quickly.
Respected Sir,
Please see PMB for details & I m Ready to start immediately. Surety of quality work done with 100% accuracy with attention to detail.
Please see attached sample application that how much user friendly application development capability I have. Looking forward to your prompt reply.
Kindest regards.
Farrukh Rehman.
Greetings Client,
I will be able to help you with your project request.
I will provide you with a very robust and accurate project output.
I have over 7 years of experience in Excel,Access VBA. I have developed and managed database and automated reports for different projects.
Regards
Mukul