Je me permet de reposter mon message pour savoir si l'un d'entre vous peut
m'aider,
concernant le probléme suivant :
Pour une Liste Modifiable d'un formulaire ayant la propriété "Limiter à la
Lite = Oui",
j'execute le code suivant sur l'événement "Abscence dans liste" :
°° Private Sub MaListe_NotInList(NewData As String, Response As Integer)
°° Response = acDataErrContinue 'passe outre le
message d'erreur standard
°° MsgBox "Données non présente, Veuillez......" 'affiche un message
personnalisé
°° ...autres instructions....
°° End Sub
Or mon formulaire comportant plusieurs listes déroulantes qui doivent avoir
le même comportement,
je pensai inclure mes instructions dans une procédure générique, mais je ne
peut pas récupéré la variable "Response As Integer"
donc je suis limité au code suivant :
°° Private Sub MaListe1_NotInList(NewData As String, Response As Integer)
°° Response = acDataErrContinue
°° Call MaProcedure
°° End Sub
°° Private Sub MaListe2_NotInList(NewData As String, Response As Integer)
°° Response = acDataErrContinue
°° Call MaProcedure
°° End Sub
°° Private Sub MaProcedure()
°° MsgBox "Données non présente, Veuillez......" 'affiche un message
personnalisé
°° ...autres instructions....
°° End Sub
Quelqu'un peut-il m'aider pour savoir comment réaliser l'affectation "
Response = acDataErrContinue"
au niveau de MaProcédure ???
Ou toute méthode équivalente ?
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
Ilan
Bonjour, tu peux faire renvoyer par ta procedure la valeur du Response que tu souhaites: Ta produre devient alors une fonction qui renvoie un integer et dans les evenements NotInList tu affectes Response par la valeur renvoyee par ta procedure. Ca donnerait ca :
Function MaProcedure () As integer ... ... MaProcedure¬DataErrContinue End Func
Sub MaListe_NotInList(....) Response=Maprocedure end sub
Bonjour,
Je me permet de reposter mon message pour savoir si l'un d'entre vous peut m'aider, concernant le probléme suivant :
Pour une Liste Modifiable d'un formulaire ayant la propriété "Limiter à la Lite = Oui", j'execute le code suivant sur l'événement "Abscence dans liste" : °° Private Sub MaListe_NotInList(NewData As String, Response As Integer) °° Response = acDataErrContinue 'passe outre le message d'erreur standard °° MsgBox "Données non présente, Veuillez......" 'affiche un message personnalisé °° ...autres instructions.... °° End Sub
Or mon formulaire comportant plusieurs listes déroulantes qui doivent avoir le même comportement, je pensai inclure mes instructions dans une procédure générique, mais je ne peut pas récupéré la variable "Response As Integer" donc je suis limité au code suivant : °° Private Sub MaListe1_NotInList(NewData As String, Response As Integer) °° Response = acDataErrContinue °° Call MaProcedure °° End Sub °° Private Sub MaListe2_NotInList(NewData As String, Response As Integer) °° Response = acDataErrContinue °° Call MaProcedure °° End Sub
°° Private Sub MaProcedure() °° MsgBox "Données non présente, Veuillez......" 'affiche un message personnalisé °° ...autres instructions.... °° End Sub
Quelqu'un peut-il m'aider pour savoir comment réaliser l'affectation " Response = acDataErrContinue" au niveau de MaProcédure ??? Ou toute méthode équivalente ?
Merci encore de votre aide, Thierry.
Bonjour,
tu peux faire renvoyer par ta procedure la valeur du Response que tu
souhaites:
Ta produre devient alors une fonction qui renvoie un integer et dans les
evenements NotInList tu affectes Response par la valeur renvoyee par ta
procedure.
Ca donnerait ca :
Function MaProcedure () As integer
...
...
MaProcedure¬DataErrContinue
End Func
Sub MaListe_NotInList(....)
Response=Maprocedure
end sub
Bonjour,
Je me permet de reposter mon message pour savoir si l'un d'entre vous peut
m'aider,
concernant le probléme suivant :
Pour une Liste Modifiable d'un formulaire ayant la propriété "Limiter à la
Lite = Oui",
j'execute le code suivant sur l'événement "Abscence dans liste" :
°° Private Sub MaListe_NotInList(NewData As String, Response As Integer)
°° Response = acDataErrContinue 'passe outre le
message d'erreur standard
°° MsgBox "Données non présente, Veuillez......" 'affiche un message
personnalisé
°° ...autres instructions....
°° End Sub
Or mon formulaire comportant plusieurs listes déroulantes qui doivent avoir
le même comportement,
je pensai inclure mes instructions dans une procédure générique, mais je ne
peut pas récupéré la variable "Response As Integer"
donc je suis limité au code suivant :
°° Private Sub MaListe1_NotInList(NewData As String, Response As Integer)
°° Response = acDataErrContinue
°° Call MaProcedure
°° End Sub
°° Private Sub MaListe2_NotInList(NewData As String, Response As Integer)
°° Response = acDataErrContinue
°° Call MaProcedure
°° End Sub
°° Private Sub MaProcedure()
°° MsgBox "Données non présente, Veuillez......" 'affiche un message
personnalisé
°° ...autres instructions....
°° End Sub
Quelqu'un peut-il m'aider pour savoir comment réaliser l'affectation "
Response = acDataErrContinue"
au niveau de MaProcédure ???
Ou toute méthode équivalente ?
Bonjour, tu peux faire renvoyer par ta procedure la valeur du Response que tu souhaites: Ta produre devient alors une fonction qui renvoie un integer et dans les evenements NotInList tu affectes Response par la valeur renvoyee par ta procedure. Ca donnerait ca :
Function MaProcedure () As integer ... ... MaProcedure¬DataErrContinue End Func
Sub MaListe_NotInList(....) Response=Maprocedure end sub
Bonjour,
Je me permet de reposter mon message pour savoir si l'un d'entre vous peut m'aider, concernant le probléme suivant :
Pour une Liste Modifiable d'un formulaire ayant la propriété "Limiter à la Lite = Oui", j'execute le code suivant sur l'événement "Abscence dans liste" : °° Private Sub MaListe_NotInList(NewData As String, Response As Integer) °° Response = acDataErrContinue 'passe outre le message d'erreur standard °° MsgBox "Données non présente, Veuillez......" 'affiche un message personnalisé °° ...autres instructions.... °° End Sub
Or mon formulaire comportant plusieurs listes déroulantes qui doivent avoir le même comportement, je pensai inclure mes instructions dans une procédure générique, mais je ne peut pas récupéré la variable "Response As Integer" donc je suis limité au code suivant : °° Private Sub MaListe1_NotInList(NewData As String, Response As Integer) °° Response = acDataErrContinue °° Call MaProcedure °° End Sub °° Private Sub MaListe2_NotInList(NewData As String, Response As Integer) °° Response = acDataErrContinue °° Call MaProcedure °° End Sub
°° Private Sub MaProcedure() °° MsgBox "Données non présente, Veuillez......" 'affiche un message personnalisé °° ...autres instructions.... °° End Sub
Quelqu'un peut-il m'aider pour savoir comment réaliser l'affectation " Response = acDataErrContinue" au niveau de MaProcédure ??? Ou toute méthode équivalente ?
Merci encore de votre aide, Thierry.
News Groups
Effectivement j'ai adopté cette façon de faire, merci.
Mais à terme, j'aurai souhaité arriver à la config suivante : * non utilisation des procédures événementielles : "Sub MaListe_NotInList(NewData As String, Response As Integer)" * inscription, au niveau du controle zone de liste modifiable, d'une fonction générique : Sur absence dans liste : "=MaProcédure()" * et pouvoir définir la réponse à "acDataErrContinue" Ceci, car mon formulaire comprend plusieurs zones de liste modifiables qui doivent avoir le même comportement sur l'événement "Sur absence dans liste" et donc faire du générique au lieu d'avoir des procédures événementielles pour chaques zones de liste..
Mais apparemment cela n'est pas possible.
Merci,encore, Thierry.
"Ilan" a écrit dans le message de news:
Bonjour, tu peux faire renvoyer par ta procedure la valeur du Response que tu souhaites: Ta produre devient alors une fonction qui renvoie un integer et dans les evenements NotInList tu affectes Response par la valeur renvoyee par ta procedure. Ca donnerait ca :
Function MaProcedure () As integer ... ... MaProcedure¬DataErrContinue End Func
Sub MaListe_NotInList(....) Response=Maprocedure end sub
Bonjour,
Je me permet de reposter mon message pour savoir si l'un d'entre vous peut
m'aider, concernant le probléme suivant :
Pour une Liste Modifiable d'un formulaire ayant la propriété "Limiter à la
Lite = Oui", j'execute le code suivant sur l'événement "Abscence dans liste" : °° Private Sub MaListe_NotInList(NewData As String, Response As Integer)
°° Response = acDataErrContinue 'passe outre le
message d'erreur standard °° MsgBox "Données non présente, Veuillez......" 'affiche un message
personnalisé °° ...autres instructions.... °° End Sub
Or mon formulaire comportant plusieurs listes déroulantes qui doivent avoir
le même comportement, je pensai inclure mes instructions dans une procédure générique, mais je ne
peut pas récupéré la variable "Response As Integer" donc je suis limité au code suivant : °° Private Sub MaListe1_NotInList(NewData As String, Response As Integer)
°° Response = acDataErrContinue °° Call MaProcedure °° End Sub °° Private Sub MaListe2_NotInList(NewData As String, Response As Integer)
°° Response = acDataErrContinue °° Call MaProcedure °° End Sub
°° Private Sub MaProcedure() °° MsgBox "Données non présente, Veuillez......" 'affiche un message
personnalisé °° ...autres instructions.... °° End Sub
Quelqu'un peut-il m'aider pour savoir comment réaliser l'affectation " Response = acDataErrContinue" au niveau de MaProcédure ??? Ou toute méthode équivalente ?
Merci encore de votre aide, Thierry.
Effectivement j'ai adopté cette façon de faire, merci.
Mais à terme, j'aurai souhaité arriver à la config suivante :
* non utilisation des procédures événementielles : "Sub
MaListe_NotInList(NewData As String, Response As Integer)"
* inscription, au niveau du controle zone de liste modifiable, d'une
fonction générique : Sur absence dans liste : "=MaProcédure()"
* et pouvoir définir la réponse à "acDataErrContinue"
Ceci, car mon formulaire comprend plusieurs zones de liste modifiables qui
doivent avoir le même comportement sur l'événement
"Sur absence dans liste" et donc faire du générique au lieu d'avoir des
procédures événementielles pour chaques zones de liste..
Mais apparemment cela n'est pas possible.
Merci,encore,
Thierry.
"Ilan" <Ilan@discussions.microsoft.com> a écrit dans le message de news:
1F27441D-21B6-4C5E-BFB8-4E4BBF5DFA4F@microsoft.com...
Bonjour,
tu peux faire renvoyer par ta procedure la valeur du Response que tu
souhaites:
Ta produre devient alors une fonction qui renvoie un integer et dans les
evenements NotInList tu affectes Response par la valeur renvoyee par ta
procedure.
Ca donnerait ca :
Function MaProcedure () As integer
...
...
MaProcedure¬DataErrContinue
End Func
Sub MaListe_NotInList(....)
Response=Maprocedure
end sub
Bonjour,
Je me permet de reposter mon message pour savoir si l'un d'entre vous
peut
m'aider,
concernant le probléme suivant :
Pour une Liste Modifiable d'un formulaire ayant la propriété "Limiter à
la
Lite = Oui",
j'execute le code suivant sur l'événement "Abscence dans liste" :
°° Private Sub MaListe_NotInList(NewData As String, Response As
Integer)
°° Response = acDataErrContinue 'passe
outre le
message d'erreur standard
°° MsgBox "Données non présente, Veuillez......" 'affiche un
message
personnalisé
°° ...autres instructions....
°° End Sub
Or mon formulaire comportant plusieurs listes déroulantes qui doivent
avoir
le même comportement,
je pensai inclure mes instructions dans une procédure générique, mais je
ne
peut pas récupéré la variable "Response As Integer"
donc je suis limité au code suivant :
°° Private Sub MaListe1_NotInList(NewData As String, Response As
Integer)
°° Response = acDataErrContinue
°° Call MaProcedure
°° End Sub
°° Private Sub MaListe2_NotInList(NewData As String, Response As
Integer)
°° Response = acDataErrContinue
°° Call MaProcedure
°° End Sub
°° Private Sub MaProcedure()
°° MsgBox "Données non présente, Veuillez......" 'affiche un
message
personnalisé
°° ...autres instructions....
°° End Sub
Quelqu'un peut-il m'aider pour savoir comment réaliser l'affectation "
Response = acDataErrContinue"
au niveau de MaProcédure ???
Ou toute méthode équivalente ?
Effectivement j'ai adopté cette façon de faire, merci.
Mais à terme, j'aurai souhaité arriver à la config suivante : * non utilisation des procédures événementielles : "Sub MaListe_NotInList(NewData As String, Response As Integer)" * inscription, au niveau du controle zone de liste modifiable, d'une fonction générique : Sur absence dans liste : "=MaProcédure()" * et pouvoir définir la réponse à "acDataErrContinue" Ceci, car mon formulaire comprend plusieurs zones de liste modifiables qui doivent avoir le même comportement sur l'événement "Sur absence dans liste" et donc faire du générique au lieu d'avoir des procédures événementielles pour chaques zones de liste..
Mais apparemment cela n'est pas possible.
Merci,encore, Thierry.
"Ilan" a écrit dans le message de news:
Bonjour, tu peux faire renvoyer par ta procedure la valeur du Response que tu souhaites: Ta produre devient alors une fonction qui renvoie un integer et dans les evenements NotInList tu affectes Response par la valeur renvoyee par ta procedure. Ca donnerait ca :
Function MaProcedure () As integer ... ... MaProcedure¬DataErrContinue End Func
Sub MaListe_NotInList(....) Response=Maprocedure end sub
Bonjour,
Je me permet de reposter mon message pour savoir si l'un d'entre vous peut
m'aider, concernant le probléme suivant :
Pour une Liste Modifiable d'un formulaire ayant la propriété "Limiter à la
Lite = Oui", j'execute le code suivant sur l'événement "Abscence dans liste" : °° Private Sub MaListe_NotInList(NewData As String, Response As Integer)
°° Response = acDataErrContinue 'passe outre le
message d'erreur standard °° MsgBox "Données non présente, Veuillez......" 'affiche un message
personnalisé °° ...autres instructions.... °° End Sub
Or mon formulaire comportant plusieurs listes déroulantes qui doivent avoir
le même comportement, je pensai inclure mes instructions dans une procédure générique, mais je ne
peut pas récupéré la variable "Response As Integer" donc je suis limité au code suivant : °° Private Sub MaListe1_NotInList(NewData As String, Response As Integer)
°° Response = acDataErrContinue °° Call MaProcedure °° End Sub °° Private Sub MaListe2_NotInList(NewData As String, Response As Integer)
°° Response = acDataErrContinue °° Call MaProcedure °° End Sub
°° Private Sub MaProcedure() °° MsgBox "Données non présente, Veuillez......" 'affiche un message
personnalisé °° ...autres instructions.... °° End Sub
Quelqu'un peut-il m'aider pour savoir comment réaliser l'affectation " Response = acDataErrContinue" au niveau de MaProcédure ??? Ou toute méthode équivalente ?
