js8bleu
Messages postés576Date d'inscriptionsamedi 14 octobre 2006StatutMembreDernière intervention27 janvier 2014
-
7 mai 2011 à 01:08
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
7 mai 2011 à 11:07
Bonjour,
je souhaiterai interrompre un enregistrement et donner le curseur à txtdaterecu au cas où la date du reçu serait supérieure à la date du jour. Voici un bout du code :
rsenregistrer.AddNew
rsenregistrer!numrecu = txtnumrecu.Text
If daterecu > Date Then
MsgBox "La date du reçu doit être inférieure ou égale à la date du jour"
txtdaterecu.SetFocus
Else
rsenregistrer!daterecu = txtdaterecu.Text
End If
rsenregistrer.Update
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 7 mai 2011 à 11:07
Salut
As-tu réflechi avant de poser ta question ?
Qu'est ce qui provoque l'insertion dans ta DB ?
C'est le .Update
Donc, il ne faut pas exécuter le .Update si ta condition apparait.
Donc, il faut déplacer le .Update car, actuellement, il s'exécutera dans les deux cas.
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)