@Prompt

[steph1708]

Bidouille :
J'ai rajouté le @Return après le @Prompt comme tu m'a dis, alors effectivement mon document ne se ferme plus et je peux changer ma date, mais j'ai le message suivant "Echec de la formule de validation de champs"

stloje:
la formule de validation est dans validation d'entrée d'un champ date modifiable, c'était ça que tu voulais savoir ?

[kochiz]

Donc en synthèse tu fais ton test sur les datess, si c'est ok tu @Sucess sinon @Failure (texte explicatif) et c'est ok , non

[Bidouille]

Là c'est boulette dans le code ou le typage de tes champs.

Si il n'y en pas trop isole les un à un, ou bien mets des @prompt([ok];"";A) ...@prompt([ok];"";B) ...@prompt([ok];"";C) ...etc... entre tes lignes de code

Et tu verras l'endroit ou ca ce banane

[steph1708]

kochiz :
oui c'est ça, en gros l'utilisateur rentre une date par exemple pour une réunion et en enregistrant ça test si la personne invité pour cette réunion est dispo, si ce n'est le cas, je leur demande de changer la date.

bidouille :
bon bin je crois que je n'ai qu'à redécortiquer mon code

en tout cas merci pour votre réactivité et vos lumières

[kochiz]

@If (datdebCR <absCRD> absCRF[n]; @Success;
@Failure("ATTENTION !!! Le CR est absent du " + @Text (absCRD[n]) + " au " + @Text (absCRF[n]) + ". Merci de modifier la date"))

[steph1708]

kochiz:

J'ai déjà testé cette formule, mais il ne tient pas compte du @failure, pour lui tout est ok, même si la date n'est pas bonne

[Michael DELIQUE]

salut

et si plustot que des formules tu faisait ça en lotus script ?

[steph1708]

c'est vrai qu'étant moins à l'aise avec le lotus script, je n'y pense pas forcément, mais je vais regarder si je peux arriver à faire quelque chose

[Michael DELIQUE]

regarde si ça ne t'aiderais pas

Code : Tout sélectionner

Public Function DateValide( wDate As String) As Integer
   
   'Déclaration des Variables   
   Dim dteValue As notesdatetime
   
   On Error Goto ErreurHandle
   
   DateValide = True
   
   If Trim(wDate) = "" Then
      DateValide = False
      Exit Function
   End If
   
   Set dteValue = New notesdatetime (wDate)
   dateValide = dteValue.IsValidDate
   Set dteValue = Nothing
   
   Exit Function
ErreurHandle:
   Msgbox "("+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   DateValide = False
   Exit Function
End Function

[steph1708]

merci