Sauter un bloc d'instruction vers la fin
mohalesage
-
Yoda -
Yoda -
Bonjour les amis,
je n'arrive pas à réussir une instruction donnée à mon application, qui consiste à aller vers l'actualisation des données si la réponse à la question est négative.
Pour plus de précision je vous expose mes codes :
If TDateSortie = "" Then
Reponse1 = MsgBox("S'agit il d'un sortant ?", vbCritical + vbExclamation + vbYesNo,
"Alors ! Que répondez vous ?")
TDateSortie.SetFocus
Exit Sub
End If
If Reponse1 = vbYes Then
TDateSortie.SetFocus
Else
?????????? ( je ne sais pas comment faire ignorer mon application si Reponse1= vbNo , d'aller directement à l'instruction d'actualisation )
Exit Sub
End If
Sachant que l'instruction d'actualisation est écrite comme suite :
If Not TDateSortie = "" Then RS![DSORTIE] = TDateSortie
RS.Update
Merci pour votre aide.
je n'arrive pas à réussir une instruction donnée à mon application, qui consiste à aller vers l'actualisation des données si la réponse à la question est négative.
Pour plus de précision je vous expose mes codes :
If TDateSortie = "" Then
Reponse1 = MsgBox("S'agit il d'un sortant ?", vbCritical + vbExclamation + vbYesNo,
"Alors ! Que répondez vous ?")
TDateSortie.SetFocus
Exit Sub
End If
If Reponse1 = vbYes Then
TDateSortie.SetFocus
Else
?????????? ( je ne sais pas comment faire ignorer mon application si Reponse1= vbNo , d'aller directement à l'instruction d'actualisation )
Exit Sub
End If
Sachant que l'instruction d'actualisation est écrite comme suite :
If Not TDateSortie = "" Then RS![DSORTIE] = TDateSortie
RS.Update
Merci pour votre aide.
A voir également:
- Sauter un bloc d'instruction vers la fin
- Fin des zfe - Guide
- Bloc-notes (windows) - Télécharger - Traitement de texte
- Fin de la 4g en france - Accueil - Guide opérateurs et forfaits
- Windows 7 vers windows 10 - Accueil - Mise à jour
- Clavier qwerty vers azerty - Guide
1 réponse
Bonjour,
Deux Conditions If imbriquées:
Deux Conditions If imbriquées:
If TDateSortie = "" Then
Reponse1 = MsgBox("S'agit il d'un sortant ?", vbCritical + vbExclamation + vbYesNo, "Alors ! Que répondez vous ?")
If Reponse1 = vbYes Then
TDateSortie.SetFocus
Else
RS![DSORTIE] = TDateSortie
RS.UpdateExit
End If
Else
RS![DSORTIE] = TDateSortie
RS.Update
End If