Discussion :

[didoboy]

Bonjour à tous,
une petite question je vous prie..
J'ai développé une mdb avec table, requette, et module...

il y a une autre application en vba (macro)..dans laquelle j'utilise :

Code :

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

1
2
3
4
5
6
7
 
 
dim titi as new Access.Application
titi.OpenCurrentDatabase....
et
 
titi.Run "NomProcédure d'un module"

Ma question est : les postes qui vont utiliser la macro vont elle planté si il n'y a pas Access installé dessus.?....
et si il y a le runtime installé..est ce que c'est sur que "Access.Application" fonctionnera.?
je dévelope mais je ne suis pas un pro du déploiement.

Merci par avance de vos réponses.

[marot_r]

Je n'ai pas utilisé d'objet Access.Application mais j'ai déjà fait un OpenCurrentDatabase et un Run avec un runtime 2002 sans aucun problèmes.

Disposes-tu d'un poste pour faire des tests ? C'est la solution idéale dans ce genre de cas. Tu développes sur ton poste et tu testes ta future version de production sur un autre poste qui est aussi proche de ton parc standard que possible.

Sur ton poste tu peux simuler le mode runtime en lançant access par la ligne de commande. (Menu démarrer/Executer/Cmd)

MSAccess "C:\TonChemin\TaBD.mdb" /runtime.

Personnelement je n'ai pas rencontré de problèmes avec les RunTimes que j'ai utilisés (A97 et A2002).

Note : en runtime le menu contextuel d'Access (Clic-Droit) est désactivé.

A+

[Arkham46]

bjr

Le New Access.Application ne marchera pas

http://www.developpez.net/forums/d11...untime-access/

[didoboy]

Bonjour marot_r,Arkham46

Merci pour vos contris..merci pour le lien...

j'ai modifié le code afin d'utiliser la méthode indiquée a savoir : OpenRunTime
...toutefois j'ai le désagréable affichage de la base, puis sa fermeture....
vous auriez une proposition a me faire.?...car le visible=false ne semble pas avoir de résultat..( il s'agit d'un .mdb)..
Merci par avance de vos réponses.

[argyronet]

Bonjour,

Le GetObject ne te permettra pas de rendre l'instance invisible.
N'aurais-tu pas moyen d'exécuter cette macro directement à partir de l'application depuis laquelle tu cherches l'appeler ?
Que fait cette macro en fait ?
Peux-tu nous donner un exemple de code ?

Argy

[didoboy]

La macro est une surcouche en fait de l'application...une sorte d'api...
dans le code existant il y a des utilisation de

Code :

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

1
2
3
4
 
dim titi as new ADODB.connection
Dim objRecordset As New ADODB.Recordset
etc...

je ne voulais pas mettre toutes les requettes en dur dans le code..laisser ce traitement a access...mais bon..si il n'y a pas d'autre possible...

voici le code qui appelle la procédure dans le module de la base..cette procédure appelle elle des requettes dans la base.

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
 
Public Function gfstrReturnxxxxx(ByVal ixxx As String, ByVal inxxxx As String) As String
On Error GoTo ErrorHandler
 
Dim result As String
Call OpenRunTime'->copier- coller du code donné ds le lien
'MonAccess.Visible = False
'MonAccess.OpenCurrentDatabase cgstrDATA_BASE_PATHFD & cgstrDATABASE_NAME
MonAccess.Run strSUB_Returnxxxxx, ixxxx, inxx, result
 
MonAccess.Quit acquitsaveNone
Set MonAccess = Nothing
 
strReturnxxx = result
 
Exit Function
 
ErrorHandler:
 If Err.Number <> 0 Then
        Call gflngDisplayMessage(39, enxxrr, inxx)
        'Erase ostrArrArray
        Err.Clear
    End If
    Resume Next
 
End Function

Suis je donc obligé d'utiliser ADODB..et l'objet command.?...

[didoboy]

est ce que vous savez comment faire la meme chose mais sans utiliser new Access.application.?
j'essai de le faire avec ADODB.Command..mais j'ai des soucis...
vous savez commment faire pour appeller une sub qui est dans un module access et qui a 2 param byval et 1 byref.?
je ne parviens pas a trouver l'info

.....

BON, je ne suis pas parvenu a utiliser une sub d'un module .mdb. avec adodb...en revanche j'ai pu utiliser les requettes paramétrées de la base avec adodb...
je clos donc le post..merci pour vos contris.....