nom procédure appelante

Bonjour

oui :

sub a()
call sub test("a")
end sub

sub b()
call sub test("b")
end sub

sub test(appelant as string)
msgbox "qui m'a appelé " = appelant
end sub

a+
--
Arnaud
---------------------------------------------
infos, conseils et liens : http://www.mpfa.info
---------------------------------------------

<jc> a écrit dans le message de news: 445b018b$0$24990$636a55ce@news.free.fr...

Bonjour à tous

si j'ai une sub qui appelle une autre sub, est ce que je peux récupérer le nom de la procédure appelante ?

sub a()
call sub test()
end sub

sub b()
call sub test()
end sub

sub test()
msgbox "qui m'a appelé" = ? 'comment récupérer ici ?
end sub

merci pour votre aide

Bonjour,

Ne serait-ce point ?

Sub a()
Call test("a")
End Sub

Sub b()
Call test("b")
End Sub

Sub test(appelant As string)
MsgBox "qui m'a appelé " & appelant
End Sub

Bonjour

oui :

sub a()
call sub test("a")
end sub

sub b()
call sub test("b")
end sub

sub test(appelant as string)
msgbox "qui m'a appelé " = appelant
end sub

a+

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

Salut Eric

oui bien sûr

Voilà ce qui arrive quand on a 2 écrans d'ordis sous les yeux ;-)

a+
Arnaud

"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news: OaOcFqBcGHA.724@TK2MSFTNGP05.phx.gbl...

Bonjour,

Ne serait-ce point ?

Sub a()
Call test("a")
End Sub

Sub b()
Call test("b")
End Sub

Sub test(appelant As string)
MsgBox "qui m'a appelé " & appelant
End Sub

Bonjour

oui :

sub a()
call sub test("a")
end sub

sub b()
call sub test("b")
end sub

sub test(appelant as string)
msgbox "qui m'a appelé " = appelant
end sub

a+

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

merci beaucoup, c'est bien cool !

<Anor> a écrit dans le message de news:
O3T$GiBcGHA.1516@TK2MSFTNGP05.phx.gbl...

Bonjour

oui :

sub a()
call sub test("a")
end sub

sub b()
call sub test("b")
end sub

sub test(appelant as string)
msgbox "qui m'a appelé " = appelant
end sub

a+
--
Arnaud
---------------------------------------------
infos, conseils et liens : http://www.mpfa.info
---------------------------------------------

<jc> a écrit dans le message de news:
445b018b$0$24990$636a55ce@news.free.fr...

Bonjour à tous

si j'ai une sub qui appelle une autre sub, est ce que je peux récupérer
le nom de la procédure appelante ?

sub a()
call sub test()
end sub

sub b()
call sub test()
end sub

sub test()
msgbox "qui m'a appelé" = ? 'comment récupérer ici ?
end sub

merci pour votre aide

pas de prob pour les petites erreurs j'avais rectifié par moi meme, c'est le
principe qui m'interessait.

la y'a un autre truc que je comprends pas trop c'est pourquoi ma variable ne
passe pas sur la troisieme procédure dans le code suivant :

Option Compare Database
Dim mode as String
----------------------------------------------
Function AftUpdCode()
If Forms!frmfiches!CadreModeAffichage = 1 Then Call
Verif_Code_Distrib(Forms!frmfiches!EnterCode.Text, "F1")
End Function
-------------------------------------------------------
Sub Verif_Code_Distrib(Xcode, mode)
MsgBox mode ' me renvoie F1, logique
If Xcode >= 1000 And Xcode < 5000 Then Call Code_Location(Xcode)
End Sub
------------------------------------------------------
Sub Code_Location(Xcode)
MsgBox mode 'me renvoie null je comprends pas puisque mode est déclarée en
tete de module
End Sub


merci pour vos lumieres!

Astucieux :-)