Soustraction dans Access

  • Auteur de la discussion darkspoilt
  • Date de début

darkspoilt

Expert
Bonjour,
Je voudrais connaitre la méthode pour soustraire des données Acces provenante de table différentes et pour mettre le résultats dans une trosième table.
Merci d'avance
 

Freeman23

Expert
Vague question...
Plusieurs solutions :

- Une requête d'insertion
- Passage par plusieurs recordset
- Mix recordset de lecture et requête d'insertion
 

darkspoilt

Expert
Je m'explique.
Je dois récupéré des valeurs dans un tableau Excel mais celui-ci est en lecture seule. Donc j'ai essayé de faire une soustraction par automation (pour avoir ma bonne valeur) mais celui ci ne fonctionne pas car il faut enregistrer pour que l'opération soit prises en compte donc j'aimerais importer ces valeurs dans access afin de pouvoir faire une simple soustraction mais je veux garder une valeur c'est pour cela que j'ai plusieurs table. grnade précision chaque table a que une seule valeur c'est nécessaire de faire un recordset car je n'ai pas tout compris le fonctionnement, je ne vois pas comment faire des requete dessus.
 

Freeman23

Expert
Là j'avoue que je suis perplexe. Des tables avec une valeur j'appelle cela une variable...(sic :p)
Donc pourquoi faire 3 tables pour rien ?
Qu'est ce que tu dois faire du résultat à la fin ?
 

darkspoilt

Expert
J'explique en détail ce que je dois faire
[cpp]
A - B = c
[/cpp]
J'ai A, j'ai B et je dois calculer C et tout garder (A c'est en option)
A et B sont des valeurs dans une Cellule Excel que j'importe
a la fin A, B et C je dois les ajouter a une table existante donc la méthode que j'ai proposé n'est surment pas la bonne mais je vois pas comment je peux faire autrement je peux mettre une valeur d'un cellule Excel dans une variable il y aura pas de conflit?? si c'est le cas comment je remet ces valeures dans une table Access?
 

Freeman23

Expert
Ton problème est tout simple. Tu reprends la procedure automation.

Tu ouvres ton classeur source (ou tu as tes valeurs à récupérer)

Code:
        Dim wbfile as workbook
        Dim a as variant
        Dim b as variant 

        '...ouverture excel etc.
        set wbfile = Xls.workbooks.open("monclasseur.xls")
        ' Récupération de la valeur a
        a = wbfile.sheets("toto").range("A1")
        ' Récupération de B
        b = wbfile.sheets("toto").range("B1")
        ' On a les données voulues plus besoin excel 
        wbfile.close False 'aucune modif
        set wbfile = nothing 
        xls.application.close
        set xls = nothing
        ' verifie qu'on a des nombres 
        if isnumeric(a) and isnumeric(b) then 
             currentdb.execute "INSERT INTO MATABLE(VALEUR_A,VALEUR_B,VALEUR_C) SELECT " & _ 
             a & " as vA," & b & "as vB," & cdbl(a-b) & " as vDiff"
        end if

J'ai tapé ca à la va-vitedonc il peut y avoir des erreurs mais en gros c'est le principe. Donc oui tu peux récupérer des valeurs d'une cellules excels tout comme l'inverse, il n'y a aucun problème entre Excel et Access et c'est bien une des qualités principales de ses produits.
 

darkspoilt

Expert
Merci c'est si simple que ca?? moi qui me comliquait la vie merci merci merci beaucoup
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 108
Membres
1 586 287
Dernier membre
lucilleguffey
Partager cette page
Haut