Forum d'entraide Acomba
Pourquoi ne pas devenir membre du forum ?

Identifiez-vous ou Inscrivez-vous afin d'accéder à l'inrégralité du forum:
Accès à toutes les catégories du forum,
Entraide entre les 6 500 membres, et ce nombre s'accroît quotidiennement!

Notez que ce forum est indépendant de la société Acceo Solutions, éditrice du logiciel Acomba.

Rejoignez le forum, c’est rapide et facile

Forum d'entraide Acomba
Pourquoi ne pas devenir membre du forum ?

Identifiez-vous ou Inscrivez-vous afin d'accéder à l'inrégralité du forum:
Accès à toutes les catégories du forum,
Entraide entre les 6 500 membres, et ce nombre s'accroît quotidiennement!

Notez que ce forum est indépendant de la société Acceo Solutions, éditrice du logiciel Acomba.
Forum d'entraide Acomba
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Connexion
Le Deal du moment : -14%
Apple MacBook Air (2020) 13,3″ Puce Apple M1 ...
Voir le deal
799 €

Aller en bas
avatar
potato32
Nombre de messages : 2
Date d'inscription : 28/01/2015

(Probleme)Ajout d'un produit visual basic Empty (Probleme)Ajout d'un produit visual basic

Mer 28 Jan 2015 - 16:19
Code:
Sub AddNewProduct()
'Déclarations
Dim ProductInt As New AcoSDK.Product
Dim Error As Long
Dim ProductNumber As String
Dim ProductGroupNumber As Long

'Numéro de produit à ajouter
ProductNumber = "*le nom de mon produit"
'Numéro du groupe de produits associé
ProductGroupNumber = numero du groupe

'Met toutes les propriétés de l'interface à vide
ProductInt.BlankKey
ProductInt.BlankCard

'Réservation de la clé primaire

ProductInt.PKey_PrNumber = ProductNumber
Error = ProductInt.ReserveCardNumber
If Error = 0 Then
'Code pour ajouter un produit
Error = ProductInt.AddCard
If Error = 0 Then

MsgBox "Ajout du produit complété avec succès."

Else

MsgBox "Erreur : " & Acomba.GetErrorMessage(Error) & "*le nom de mon produit"
'Libération de la clé primaire si l'ajout
'n'est pas complété
Error = ProductInt.FreeCardNumber
If Error <> 0 Then

MsgBox "Erreur : " & Acomba.GetErrorMessage(Error) & "*le nom de mon produit"

End If

End If

if Error = 7 then
'code pour modifier un produit
else
MsgBox "Erreur : " & Acomba.GetErrorMessage(Error) & "*le nom de mon produit"
end if

Ceci est le code (en general) que j'utilise pour ajouter in produit et si il est present, le modifier.
Mon probleme est que se code fonctionne parfaitement sur mon ordinateur windows 7 mais pas sur l'ordinateur test sur windows 8... en fait... il fonctionne a moitier sur windows 8
Je suis amplement capable de modifier mon produit, mais l'ajouter me donne une erreur.
"Erreur : La cle specifie n'est pas reservee" & le nom de mon produit
Je sais pertinement que c'est la fonction addcard qui me cause l'erreur... pourquoi quand pour arriver la, il faut que la cle soit reserver...
Plus d'informations...
La version de acomba est a jour, les SDK aussi.
J'ai essayer mode administrateur, windows 7 et windows xp service pack 3 pour mon application...
L'utilisateur de la societe que j'essaie d'inserrer des donnee est celui par defaut.(Supervisor, pas de mot de passe)
Ceci n'est pas le code entier... j'envoi ce message a partir d'un autre ordinateur. Je vais revenir avec le code exact si necessaire.

Svp Help! Sa me rend fou.
avatar
potato32
Nombre de messages : 2
Date d'inscription : 28/01/2015

(Probleme)Ajout d'un produit visual basic Empty Re: (Probleme)Ajout d'un produit visual basic

Mer 28 Jan 2015 - 23:28
Ouais...
J'oubliais de innitializer la valeur PrNumber malgre le fait que je reservais ma position aved PKey_PrNumber...
Je me sens fou... et je n'avais pas donner assez d'information pour qu'on m'aide...
Merci d'avoir lu.

Majid_QC aime ce message

Revenir en haut
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum