Problème avec exit sub
Fermé
jadami
Messages postés
103
Date d'inscription
mercredi 14 mars 2007
Statut
Membre
Dernière intervention
18 septembre 2020
-
Modifié le 29 oct. 2017 à 00:47
yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 - 31 oct. 2017 à 15:50
yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 - 31 oct. 2017 à 15:50
5 réponses
jordane45
Messages postés
38138
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 avril 2024
4 649
29 oct. 2017 à 08:00
29 oct. 2017 à 08:00
Bonjour
Exit sub.. quitte la sub courrante..
Dont il quitte la sub où il se trouve.. pas celle d'après
Exit sub.. quitte la sub courrante..
Dont il quitte la sub où il se trouve.. pas celle d'après
jordane45
Messages postés
38138
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 avril 2024
4 649
29 oct. 2017 à 11:28
29 oct. 2017 à 11:28
Tu transformes ta sub ConditionAnomalieR en fonction qui retourne true ou false et tu testes ke retour dand un if dans ta première sub
yg_be
Messages postés
22698
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 avril 2024
1 471
31 oct. 2017 à 15:50
31 oct. 2017 à 15:50
bonjour, l'idée, en gros, est de faire ceci:
'... if ConditionAnomalieR() then exit sub end if '... function ConditionAnomalieR() as boolean ' ... If reponse = vbOK Then Me.lblMessage.Caption = " RegroupFamille non défini" Me.lblMessage2.Caption = " RegroupFamille non défini" Me.cmbRegroupFamille.SetFocus ConditionAnomalieR=true Exit Sub End If End If ConditionAnomalieR=false End sub
jadami
Messages postés
103
Date d'inscription
mercredi 14 mars 2007
Statut
Membre
Dernière intervention
18 septembre 2020
Modifié le 29 oct. 2017 à 10:25
Modifié le 29 oct. 2017 à 10:25
Bonjour,
Merci pour la réponse.
Mais comment faire pour ne pas atteindre la deuxième sub ?
Salutations
Merci pour la réponse.
Mais comment faire pour ne pas atteindre la deuxième sub ?
Salutations
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
J’ai besoin d’aide car je n’arrive pas à résoudre mon problème, je connais mal les Fonctions.
Sur cette sub Private Sub cmbRecherche_AfterUpdate(), j’ai rajouté :
La Sub ConditionAnomalieR() je l’ai transformé de cette façon :
Merci d’avance pour ton aide
Salutations
J’ai besoin d’aide car je n’arrive pas à résoudre mon problème, je connais mal les Fonctions.
Sur cette sub Private Sub cmbRecherche_AfterUpdate(), j’ai rajouté :
Case "R"
Call ConditionAnomalieR(True) «le True rajouté»
If Argum = False Then “ le iF rajouté”
If (Me.cmbCoders = 1 !!!!!!!!!!!!! then
strMessage = "Chèque à saisir"
Else
strMessage = "Renouvelé"
End if
End if
La Sub ConditionAnomalieR() je l’ai transformé de cette façon :
Private Function ConditionAnomalieR(ByVal Argum As Integer) As Boolean
If IsNull(cmbRegroupFamille.Value) Or cmbRegroupFamille.Value = "" Then
'Boite de dialogue par Api
reponse = MessageBox(Me.hwnd !!!!!!!!!!!!!!!!!!!!!
If reponse = vbOK Then
Me.lblMessage2.Caption = " RegroupFamille non défini"
Me.cmbRegroupFamille.SetFocus
Argum = True “ Argum Rajouté”
Exit function
End If
End If
End function
Merci d’avance pour ton aide
Salutations