Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Access et Business Object

Access et Business Object

5 réponses
Avatar
ptitecreature
Bonjour,

Je suis nouvelle sur ce groupe, j'espere que vous pourez m'indiquer la
solution =E0 mon probl=E8me.

Je suis une utilisatrice principalement d'Acces, j'ai cr=E9e une base
qui fonctionne avec des formulaires et des boutons de commande. Je
voudrais r=E9ussir =E0 lier une requete BO =E0 un bouton de commande de
telle sorte que en cliquant sur le bouton de commande l'utilisateur
lancera directement sa requete BO.

Je vous remercie d'avance pour votre aide.

Caroline
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ptitecreature
J'apporte quelques pistes à mon sujet, apparement je devrais faire un
shell pour ouvrir l'application...
Mais je ne sais pas comment marche le shell sur Acces ( syntaxe de la
fonction)
Pourriez vous m'éclairer sur ce sujet

Merci d'avance
Avatar
Gilles MOUGNOZ
Bonjour, Caroline
Qu'appelles-tu une requête BO ?
Pour la commande Shell, regarde ici:
http://office.microsoft.com/fr-fr/access/HA012289061036.aspx?pid=CH100728911036
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
J'apporte quelques pistes à mon sujet, apparement je devrais faire un
shell pour ouvrir l'application...
Mais je ne sais pas comment marche le shell sur Acces ( syntaxe de la
fonction)
Pourriez vous m'éclairer sur ce sujet
Merci d'avance


Avatar
ptitecreature
Merci pour ta réponse,

BO est une application qui s'appelle Business Object qui permet de
sortir des tables de données, relativement importantes.

Pour le shell pourrais tu me copier ce qu'il y a sur ton lien car je
suis au bureau et je n'ai qu'un acces restreint à internet et je ne
peux pas ouvrir ton lien.

Caroline
Avatar
Gilles MOUGNOZ
Bonjour, Caroline
Il s'agit simplement du lien vers l'aide en ligne Microsoft.
Pour l'aide "off-line", tapes Shell dans l'éditeur VBA et appuie sur F1.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"ptitecreature" a écrit dans le message de news:

Merci pour ta réponse,

BO est une application qui s'appelle Business Object qui permet de
sortir des tables de données, relativement importantes.

Pour le shell pourrais tu me copier ce qu'il y a sur ton lien car je
suis au bureau et je n'ai qu'un acces restreint à internet et je ne
peux pas ouvrir ton lien.

Caroline
Avatar
d.delrieux
J'apporte quelques pistes à mon sujet, apparement je devrais faire un
shell pour ouvrir l'application...
Mais je ne sais pas comment marche le shell sur Acces ( syntaxe de la
fonction)
Pourriez vous m'éclairer sur ce sujet

Merci d'avance

Bonsoir,

Voici une fonction que j'avais écrit il y a plusieurs années pour
automatiser la récupération de données provenant d'univers BO Il me
semble que c'était pour BO3.
Je crois que maintenant on doit pouvoir piloter directement BO par des
liens OLE.

Function FLUX_BO(cde_acces As Variant, PSW As Variant)
' cette fonction construit les requetes utiliséese dans BO.
' renvois O si Ok sinon renvois N
' Cde_acces = code d'acces pour lancer BO
' Psw =mot de passe pour lancer BO
' d_abs_arret = date d'arrete des abscences
' ATTENTION DANS BO les dates des abscences sont au format
: AAAA.MM.JJ
' il faut qu'il y ait une procedure BO qui execute une requete sql et
c'est la requette sql que l'on modifie
' Ici AGO_FLUX

On Error GoTo Err_BO
Nb_Err = 0
crlf = Chr(10) & Chr(13)
sql_c = ""
' construction de la requete pour les Flux
' REM AGO_F_E automatisation de la requete
sql_c = ""
sql_c = sql_c & "SELECT" & crlf
sql_c = sql_c & "FLUX_INT_UNITE.EFFET,'³'," & crlf
sql_c = sql_c & "FLUX_INT_UNITE.MATRICULE,'³'," & crlf
sql_c = sql_c & "FLUX_INT_UNITE.NOM,'³'," & crlf
sql_c = sql_c & "FLUX_INT_UNITE.PRENOM,'³'," & crlf
sql_c = sql_c & "WHERE" & crlf
sql_c = sql_c &
(FLUX_INT_UNITE.MATRICULE=BIGPER..AGENT_CONSULT.MATRICULE)" & crlf
sql_c = sql_c & "AND (FLUX_INT_UNITE.ANNEE >= '" &
Trim$(Forms![Présentation_1]![Année]) & "')" & crlf

sql_c = sql_c & "AND (" & crlf
sql_c = sql_c & "AND FLUX_INT_UNITE.NV_DEPARTEMENT IN (" &
seek_dpt_flux() & ")" & crlf
sql_c = sql_c & ")" & crlf
sql_c = sql_c & ";"

' ecriture de la rq pour AGO_F_E
Open Adr_Nom_Base("FLUX") & "AGO_F_E.SQL" For Output As 1 ' Ouvre le
fichier en sortie.
Write #1, sql_c ' Ecrit les données dans le fichier.
Close #1 ' Ferme le fichier.


' Adr_nom_base renvois le chemin de OBJECTS.EXE
X = Shell(Adr_Nom_Base("BO") & "OBJECTS.EXE -users " & Trim$(cde_acces)
& "/" & Trim$(PSW) & " -universe U_FLUX -procedure AGO_FLUX", 1)

response = MsgBox("La Récuperation de l'Univer FLUX est elle bien
terminée ? " & Chr(13) & Chr(10) & "Si BO renvoie un message d'erreur,
Répondre Non ", 4 + 16, "ATTENTION !")
If response = 6 Then 'OK selected...
FLUX_BO = "O"
Else
FLUX_BO = "N"
GoTo Exit_BO
End If

Exit_BO:
Exit Function

Err_BO:
response = MsgBox("PROBLEME AVEC BO Univer FLUX!!!! SORTIE
OBLIGATOIRE. ", 16, "ATTENTION !")
MsgBox Err.Description & " " & Str(Err)
FLUX_BO = "N"
GoTo Exit_BO

End Function