Discussion :

[toumack]

Bonjour,
Dans mon système de point de vente créé avec Access 2010, je désire incorporer un système de paiement par cartes de débit ou crédit.
J'ai donc communiqué avec "Mercury Payment System" et j'ai reçu les équipements et les programmes pour l'intégration.Cependant, lorsque je presse sur le bouton "btnProcessTransaction", j'obtiens l'erreur suivante:
"Erreur d'exécution 429 un composant ActiveX ne peut pas créer d'objet"
Voici le code en question sur le bouton nommé "btnProcessTransaction"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Private Sub btnProcessTransaction_Click()
Dim dbs As DAO.Database
Dim rs As DAO.Recordset
Dim rst As DAO.Recordset
Dim i As Variant
Dim f As Integer
Dim ms As MercuryShieldUI
Dim req As Transaction.Request
Dim resp As Transaction.Response
Dim ret As Integer
 
Set dbs = CurrentDb
 
Set rs = CurrentDb.OpenRecordset("FactureMEVTemp2")
Set rst = CurrentDb.OpenRecordset("FactureMEVTemp2 TOTAUX")
Set ms = New MercuryShield.MercuryShieldUI
Set req = New Transaction.Request
Set resp = New Transaction.Response
 
req.TenderType = MSEnum.TenderTypes_CanadianEMV
req.TransactionType = MSEnum.TransactionTypes_Sale
req.AmountData.PurchaseAmount = "177.09"
req.MerchantID = "MPS53001"
req.UserID = "Auto -Caisse"
req.InvoiceNumber = "10"
req.ReferenceNumber = "10"
req.Memo = "TestMemo"
req.CreditServers = "fe1.mercurydev.net"
req.GiftServers = "g1.mercurydev.net"
req.TerminalName = "TranSentryvb6"
'
'set the request object in the MercuryShieldUI object
'
Set ms.MercuryShieldRequest = req
'
'show the MercuryShieldUI
'
ret = ms.ShowDialog()
'ret = 2 means user cancelled the MS UI dialog
'ret = 1 means user hit the process button and the dialog closed
Set resp = ms.MercuryShieldResponse
'
'do something with the resp object here
'for example print resp.CmdStatus
'
ret = MsgBox("; CmdResponse = " & resp.CmdStatus, vbOKOnly, "; TranSentry; ")
 
        rs.Close
        Set rs = Nothing
        rst.Close
        Set rst = Nothing
        dbs.Close
        Set dbs = Nothing
 
End Sub

Dans les références, j'ai inclus 4 nouvelles références fournies par Mercury:
MercuryShield
MPS_POS_UTILS
MSEnum
Transactions

Merci de votre temps, j'espère que quelqu'un connaît la solution ou pourra me diriger vers celle-ci

Claude du Québec, Canada

[astroinv]

Sur quelle ligne as tu l'erreur ?

Es tu sur que tu puisses faire un New ? Peut être faut t il faire une déclaration simple Dim toto as Taclasse puis un Set Toto=TonPackage.Creator_de_ta_classe ?

[toumack]

Bonjour,

Set ms = New MercuryShield.MercuryShieldUI
C'est sur cette ligne que l'erreur 429 survient

Merci de ton aide