Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access identification d'un formulaire

identification d'un formulaire

2 réponses
Avatar
Le Méruvien
Bonjour tout le monde ,
J'ai un formulaire A qui peut etre appelé de deux forms <>, B et C, le
problème est qu'a l'ouverture de ce forms A, j'ai une formule qui dis
"[affaire]=forms! B.affaire"
vous comprenez donc que quand j'appel ce forms A depuis le C, j'ai une
erreur !
Donc ma question est : comment savoir de quel forms j'ai appelé A ?
La formule de Daniel du 18/2 ne fonctionne pas, la valeur de openargs est
"Null"
merci
Signaler un problème avec ce contenu

2 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
3stone
Salut,

"Le Méruvien"
La formule de Daniel du 18/2 ne fonctionne pas, la valeur de openargs est "Null"



Mais si... cela fonctionne très bien ;-)


Tu ouvre ton formulaire ainsi :

DoCmd.OpenForm "NomForm", , , , , , Me.Name


et, dans "NomForm" tu fait dans l'événement "Sur ouverture" :

Dim strFormName As String
If Not IsNull(Me.Openargs) Then
strFormName = Me.OpenArgs
Msgbox "Nom du formulaire appelant : " & strFormName
End if



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
Le Méruvien
Bonjour, et merci, ça fonctionne bien!
"3stone" a écrit dans le message de news:
#
Salut,

"Le Méruvien"
La formule de Daniel du 18/2 ne fonctionne pas, la valeur de openargs
est "Null"




Mais si... cela fonctionne très bien ;-)


Tu ouvre ton formulaire ainsi :

DoCmd.OpenForm "NomForm", , , , , , Me.Name


et, dans "NomForm" tu fait dans l'événement "Sur ouverture" :

Dim strFormName As String
If Not IsNull(Me.Openargs) Then
strFormName = Me.OpenArgs
Msgbox "Nom du formulaire appelant : " & strFormName
End if



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------