473,321 Members | 1,877 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,321 software developers and data experts.

Authorize.net Access 2003 & Access 2002 Problem

Hello,
I have code within my DB application to process credit cards through
authorize.net. Ive been using the same code for several years without a
problem.
I have an order entry computer and after reinstalling Win XP, we used
Office/Access 2003.
When we try to process CC's we get a debug screen and Access itself
crashes.
However, the code still runs fine on Access/Office XP. The debug screen
says: Method 'doSSLPost' of object 'ISSLPost' Failed

Here is the area that seems to be causing the problem:
'Create a new Auth object
Set AuthNetPost = New AuthNetSSLConnect.SSLPost

Here is more of the code from the beginning:
Private Sub btnUpload_Click()

Dim AuthNetPost As AuthNetSSLConnect.SSLPost
Dim Connection As ADODB.Connection
Dim RecordSet As ADODB.RecordSet
Dim UpdateRS As ADODB.RecordSet
Dim PostString As Variant
Dim AuthCode As Variant
Dim ResponseReasonText As Variant
Dim ApprovalCode As Variant
Dim ccID As Long
Dim sQuery As String
Dim BatchDate As Date
Dim mcrDeclineUpdate As String
Dim MacroUpdate As String
Dim Count As Integer
Dim mcrCCCustRefUpdate As String

DoCmd.Hourglass True
'Update CC Table with Cust Ref Numbers
DoCmd.RunMacro "mcrCCCustRefUpdate"

'Execute the stored procedure
Set RecordSet = New ADODB.RecordSet
RecordSet.Open "EXEC qryCCUpload", CurrentProject.Connection

'Create a new Auth object
Set AuthNetPost = New AuthNetSSLConnect.SSLPost

'loop through the record set
Do Until RecordSet.EOF

'Build query string
PostString = "x_Login=" & RecordSet!coCCLogin & ", "
PostString = PostString & "x_Password=" &
RecordSet!coCCPassword & ", "
PostString = PostString & "x_Invoice_Num=" & RecordSet!ccID &
", "
PostString = PostString & "x_Description=" &
RecordSet!Description & ", "
PostString = PostString & "x_Amount=" &
Format(RecordSet!Amount, "0.00") & ", "
PostString = PostString & "x_Method=" & RecordSet!PaymentMethod
& ", "
PostString = PostString & "x_Type=" & RecordSet!TransType & ",
"
PostString = PostString & "x_Card_Num=" & RecordSet!ccNumber &
", "
PostString = PostString & "x_Exp_Date=" & RecordSet!ccExpDate &
", "
PostString = PostString & "x_Cust_Id=" &
RecordSet!custReferenceNo & ", "
PostString = PostString & "x_First_Name=" & RecordSet!custName
& ", "
PostString = PostString & "x_Last_Name=" & RecordSet!LastName &
", "
PostString = PostString & "x_Company=" & RecordSet!Company & ",
"
PostString = PostString & "x_Address=" & RecordSet!Address & ",
"
PostString = PostString & "x_City=" & RecordSet!CCCity & ", "
PostString = PostString & "x_State=" & RecordSet!CCState & ", "
PostString = PostString & "x_Zip=" & RecordSet!CCZip & ", "
PostString = PostString & "x_Country=" & RecordSet!Country & ",
"
PostString = PostString & "x_Email=" & RecordSet!Email & ", "
PostString = PostString & "x_Phone=" & RecordSet!Phone & ", "
PostString = PostString & "x_Fax=" & RecordSet!Fax
'PostString = PostString & ", x_Test_Request=TRUE"

DoCmd.Hourglass True

'Post the data
AuthNetPost.doSSLPost PostString

'Set return values from authnet
ApprovalCode = AuthNetPost.GetField(1)
ResponseReasonText = AuthNetPost.GetField(4)
AuthCode = AuthNetPost.GetField(5)
ccID = RecordSet!ccID
BatchDate = Date

'Build update SQL
sQuery = "UPDATE tblCCInfo "
sQuery = sQuery & "SET ccBatch1 = Yes, "
sQuery = sQuery & "ccApprovalCode1 = " & ApprovalCode & ", "
sQuery = sQuery & "ccResponseReason1 = '" & ResponseReasonText
& "', "
'************************************************* ***********************************
If (ApprovalCode = 1) Then
sQuery = sQuery & "ccAuthorizationCode1 = '" & AuthCode &
"', "
Else
sQuery = sQuery & "ccAuthorizationCode1 = 0, "
End If
'************************************************* ***********************************
sQuery = sQuery & "ccBatchDate = ' " & BatchDate & "'"
sQuery = sQuery & " WHERE ccID = " & ccID
'Execute the update statement
Set UpdateRS = New RecordSet
UpdateRS.Open sQuery, CurrentProject.Connection
Set UpdateRS = Nothing

RecordSet.MoveNext
Loop

RecordSet.Close

'Destroy the AuthNetPost object and recordset
Set AuthNetPost = Nothing
Set RecordSet = Nothing
'**********************End Processing Original Orders ***********
Is there anything obvious that allow this to run in Access Xp and not
in Access 2003?
Thanks,
Jay

Jul 27 '06 #1
0 2305

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

14
by: wolftor | last post by:
1) Is there a free runtime version of Access available that is more recent than the one for Access 2000? 2) If I create an application (MDE) in A2K, will it run on all later versions of Access?...
0
by: Sabine Oebbecke | last post by:
Hi Experts! I have several forms and reports where controls get their values with 'Forms!MainForm!Control' or 'Forms!MainForm!Subform!Control' resp 'Forms!MainForm!Subform.Form!Control' which...
1
by: Wayne Aprato | last post by:
I have a client who is running several Access 97 databases that I have written for them. They are about to upgrade to Access 2003. Is the default file format of Access 2003 still Access 2000 the...
7
by: Wayne Aprato | last post by:
I have several Access 2003 mde databases. When I try to open them in Access 2002 I get the following error: "The Visual Basic for Applications project in the database is corrupt." ...
6
by: Peter Frost | last post by:
Please help I don't know if this is possible but what I would really like to do is to use On Error Goto to capture the code that is being executed when an error occurs. Any help would be much...
47
by: ship | last post by:
Hi We need some advice: We are thinking of upgrading our Access database from Access 2000 to Access 2004. How stable is MS Office 2003? (particularly Access 2003). We are just a small...
4
by: RM | last post by:
Had VS .Net 2002 installed on W2k Server SP3 and supported a number of web sites. Installed VS .Net 2003 on Friday and now all web sites using .Net & MS ACCESS get this strange error upon open. ...
3
by: banba_ca | last post by:
When I create a new db from the main Access window or thru Vb (set newdb = ...) I always end up with Access 2000 file format. I would like to get 2002 - 2003 file format. The reason is that when I...
0
by: Sebastian | last post by:
Hello I develop my applications in Access 2002. My development system is running Windows XP SP2 and I have Microsoft Office XP Developer. Microsoft Office XP is at SP3. I used Inno Setup (great...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
1
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
1
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
0
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome former...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.