Discussion :

[Chekov]

Bonjour,

J'aimerai ajouter la reference à Access par le code. Il me semble avoir lu qqpart que c'était possible. Ceci afin que mon programme puisse s'exécuter sur des machines qui ne disposent pas d'Access.

L'impression des Etats via mon programme (grâce à la ref Access) sera un plus, si l'ajout de reference fonctionne pendant l'exécution.

Merci pour toute aide.

Bonne soiree/journée

[Vld44]

voir "createobject"

[Chekov]

Super merci

Code :

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

1
2
3
4
5
6
7
Dim AppAccess
    Set AppAccess = CreateObject("Access.Application")
 
    AppAccess.OpenCurrentDatabase FichierAccess, False
    AppAccess.DoCmd.OpenReport NomEtat, 0
    AppAccess.CloseCurrentDatabase
    Set AppAccess = Nothing

[SfJ5Rpw8]

enfin ... ton code .. ne fonctionnera pas si acces n'est pas installé sur ton PC..

.... Ceci afin que mon programme puisse s'exécuter sur des machines qui ne disposent pas d'Access....

Quelles fonctions d'access veux-tu utiliser ... "sans-access" ?

[Chekov]

En fait mon programme est un front-end de gestion d'une base Access 2000 en VB+ADO.

J'avais besoin, de façon complémentaire, de pouvoir imprimer des etats contenus dans cette base. Mais la tâche principale du programme étant tout autre chose, je ne voulais pas que l'absence d'Access empêche d'utiliser l'application pour le reste. L'impression des etats pouvant se faire depuis un poste disposant à la fois d'access et de mon programme.

Access.Application ne me servira que pour imprimer les états contenus dans la base (avec parametres).