MAJ Liste de prix

[line b]

Bonjour,

Je viens d'être embauchée dans une entreprise. Je suis en train de me familiariser avec Acomba.
Je suis développeur ACCESS de formation.
Aujourd'hui je viens d'apprendre que mon patron modifie les prix des produits dans un fichier et que par la suite il me demande de modifier les prix dans Acomba pour les memes produits.
Donc une cloche m'a sonné et je sais qu'Acomba permet l'importation ou exportation de données.

Je me suis procurer un numéro d'enregistrement d'une durée de 15 jours afin de me familiariser avec la possibillité de programmer une interface via ACCESS.
Ma question est :

Est-ce un projet de longue haleine ? est-ce que cela implique plusieurs tables ?
Quelqu'un pourrait me donner les étapes à suivre afin de gagner du temps

Merci de votre aide

[PlanteG]

Le pilote ODBC est accompagné d' un fichier d'aide qui décrit les tables et la façon de travailler avec Access (et Excel). En gros, vous êtes en mesure d'importer les tables d'Acomba comme si elles étaient de types relationnelles. Donc vous pouvez voir le contenu et le modifier. Vous êtes également en mesure d'accéder aux données par programmation.

Dans votre cas, ce sont les tables de l'inventaire qui vont vous intéresser. Il y a un exemple appelé Modification d'une composante qui vous intéressera.

La seule autre façon d'accéder aux données d'Acomba de l'extérieur est d'utiliser le SDK. Il est gratuit, mais c'est ce n'est pas aussi simple.

[line b]

Merci beaucoup pour vs informations. Elles me seront utiles.

[Lartis]

Bonjour,

C'est un projet très simple. Si vous n'avez ni items ni composantes, vous n'avez besoin que de la table "Product", qui est une table dans laquelle vous pouvez écrire directement.

Si vous modifier le prix 1, vous modifier le champs PrSellingPrice0_1, prix 2 PrSellingPrice0_2. Pour le prix 1 US, ça serait PrSellingPrice1_1.

Voici un exemple qui fait pratiquement exactement ce que vous voulez. Il suppose une table locale Tb_ChangementPrix contenant PrNumber et PrPrixVendantX (votre nouveau prix). La table Acomba Product doit être linkée.

Code:


Sub ChangePrix()
On Error GoTo Error_Sub

    Dim db As Database
    Dim RsFrom As Recordset
    Dim RsTo As Recordset
    Set db = CurrentDb()
    Set RsFrom = db.OpenRecordset("SELECT * from Tb_ChangementPrix")
   
    While Not RsFrom.EOF
       
        Set RsTo = db.OpenRecordset("SELECT * from Product WHERE PrNumber = """ & RsFrom!PrNumber & """")
       
        If RsTo.EOF Then
            MsgBox "produit " & RsFrom!PrNumber & " inexistant dans Acomba"
        Else
            RsTo.Edit
            'If (RsFrom!PrPrixVendant1 > 0) Then
            'RsTo!PrSellingPrice0_1 = RsFrom!PrPrixVendant1
            'If (RsFrom!PrPrixVendant2 > 0) Then
            'RsTo!PrSellingPrice0_2 = RsFrom!PrPrixVendant2
            'If (RsFrom!PrPrixVendant3 > 0) Then
            RsTo!PrSellingPrice0_3 = RsFrom!PrPrixVendant3
            'RsTo!PrSellingPrice0_4 = RsFrom!PrPrixVendant4
            'RsTo!PrSellingPrice0_5 = RsFrom!PrPrixVendant5
            'RsTo!PrUPC = RsFrom!PrCUP
            RsTo.Update
       
        End If
        RsFrom.MoveNext
    Wend
   
    RsFrom.Close
    RsTo.Close
    db.Close
    Set RsFrom = Nothing
    Set RsTo = Nothing
    Set db = Nothing
   
Exit_Sub:
    Exit Sub
Error_Sub:
    MsgBox Err.Description
    Resume Exit_Sub
End Sub


[Contenu sponsorisé]