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 Parametre donné

Parametre donné

5 réponses
Avatar
Rick Simard
Non, je veux passer le parametre par un champ dont les données vont etre
entrées par l'usager.


"Gafish" <---gafish@free.fr----nospam> a écrit dans le message de news:
%23cRv4S0JGHA.1032@TK2MSFTNGP10.phx.gbl...
> Bonjour,
>
> Rick Simard wrote:
>> J'utilise ce script dans un module:
>> ----------
>> Function OpenBATFile() As Boolean
>> Dim stAppName As String
>> stAppName = "c:\test.bat"
>> Call Shell(stAppName, 1)
>> OpenBATFile = True
>> End Function
>> ----------
>> Comment puis-je faire pour donner un paramètre à c:\test.bat que je
>> vais aller chercher dans un entrée dans le champ d'un formulaire?
>> Exemple "c:\test.bat tester"
>
> Mets simplement dans ton stAppName la chaine complète avec le paramètre :
> stAppName = "c:\test.bat tester"
>
> Arnaud
> --
> Charte du forum : http://www.mpfa.info/
> Recherche dans les archives :
> http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
>
>
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
Eric
Bonsoir,

Function OpenBATFile(UnParam) As Boolean
If IsNull(UnParam) then Exit Function
Dim stAppName As String
stAppName = "c:test.bat " & UnParam
Call Shell(stAppName, 1)
OpenBATFile = True
End Function

Non, je veux passer le parametre par un champ dont les données vont etre
entrées par l'usager.


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Rick Simard
Merci mais ça ne fonctionne pas.

J'appelle ce script par une macro ExécuterCode Nom de fonction OpenBATFile
(«UnParam») et j'ai un message d'erreur: L'objet ne contient pas d'objet
d'automatisation '«UnParam»'

"Eric" a écrit dans le message de news:

Bonsoir,

Function OpenBATFile(UnParam) As Boolean
If IsNull(UnParam) then Exit Function
Dim stAppName As String
stAppName = "c:test.bat " & UnParam
Call Shell(stAppName, 1)
OpenBATFile = True
End Function

Non, je veux passer le parametre par un champ dont les données vont etre
entrées par l'usager.


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



Avatar
Rick Simard
À noter: Le champ ou je veux prendre la valeur pour le parametre s'appelle
[para]

Merci.

"Rick Simard" a écrit dans le message de news:

Merci mais ça ne fonctionne pas.

J'appelle ce script par une macro ExécuterCode Nom de fonction OpenBATFile
(«UnParam») et j'ai un message d'erreur: L'objet ne contient pas d'objet
d'automatisation '«UnParam»'

"Eric" a écrit dans le message de news:

Bonsoir,

Function OpenBATFile(UnParam) As Boolean
If IsNull(UnParam) then Exit Function
Dim stAppName As String
stAppName = "c:test.bat " & UnParam
Call Shell(stAppName, 1)
OpenBATFile = True
End Function

Non, je veux passer le parametre par un champ dont les données vont etre
entrées par l'usager.


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr







Avatar
Eric
Bonjour,

Soit Formulaire1 le nom du formulaire contenant le champ [para],
Action de la macro: ExécuterCode
Nom fonction: OpenBATFile(Forms("Formulaire1")!para)


À noter: Le champ ou je veux prendre la valeur pour le parametre s'appelle
[para]

Merci.

"Rick Simard" a écrit dans le message de news:


Merci mais ça ne fonctionne pas.

J'appelle ce script par une macro ExécuterCode Nom de fonction OpenBATFile
(«UnParam») et j'ai un message d'erreur: L'objet ne contient pas d'objet
d'automatisation '«UnParam»'

"Eric" a écrit dans le message de news:


Bonsoir,

Function OpenBATFile(UnParam) As Boolean
If IsNull(UnParam) then Exit Function
Dim stAppName As String
stAppName = "c:test.bat " & UnParam
Call Shell(stAppName, 1)
OpenBATFile = True
End Function


Non, je veux passer le parametre par un champ dont les données vont etre
entrées par l'usager.


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr








--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr




Avatar
Rick Simard
Ça ne fonctionne pas. Même message d'erreur :L'objet ne contient pas d'objet
d'automatisation 'formulaire1'




Je suis désespéré !

"Eric" a écrit dans le message de news:

Bonjour,

Soit Formulaire1 le nom du formulaire contenant le champ [para],
Action de la macro: ExécuterCode
Nom fonction: OpenBATFile(Forms("Formulaire1")!para)


À noter: Le champ ou je veux prendre la valeur pour le parametre
s'appelle [para]

Merci.

"Rick Simard" a écrit dans le message de news:


Merci mais ça ne fonctionne pas.

J'appelle ce script par une macro ExécuterCode Nom de fonction
OpenBATFile («UnParam») et j'ai un message d'erreur: L'objet ne contient
pas d'objet d'automatisation '«UnParam»'

"Eric" a écrit dans le message de news:


Bonsoir,

Function OpenBATFile(UnParam) As Boolean
If IsNull(UnParam) then Exit Function
Dim stAppName As String
stAppName = "c:test.bat " & UnParam
Call Shell(stAppName, 1)
OpenBATFile = True
End Function


Non, je veux passer le parametre par un champ dont les données vont
etre entrées par l'usager.


--
A+
Eric
http://www.mpfa.info/
Archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr








--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr