Bonjour, je cherche à sélectionner dans une vue des documents
- sur 6 mois depuis le début de l'année. (vue A)
- Ensuite permettre de saisir une période pour le critère de sélection (rendre dynamique la vue) (vue B)
Merci à vous
cdt
camille
Michael DELIQUE a écrit:salut
pour les 6mois tu peux faire un select sur le date, mais ça bouffe bcp de ressource.
pour les vues avec un select dynamique, la seule solution est de passé par du LS pour changer la formule.
Dim s As New NotesSession
Dim db As NotesDatabase
Dim sToday As String
Dim sYesterday As String
Dim view As NotesView
Dim sActualSelFormula As String
Dim sNewSelFormula As String
Dim sActualColFormula As String
Dim sNewColFormula As String
Dim dateTime As New NotesDateTime( "" )
Dim vYesterday As Variant
Dim col As notesviewcolumn
On Error Goto processError
Call initViewData()
Set db = s.currentDatabase
dateTime.LSLocalTime = Now
sToday = dateTime.Dateonly
Forall vw In lstViewList
Set view = db.getView(Listtag(vw))
On Error Goto processNext
'again do not make this stuff for folders...
If view.isFolder = False Then
sActualSelFormula = ""
sNewSelFormula = ""
sActualSelFormula = view.Selectionformula
If sActualSelFormula <> "" Then
sNewSelFormula = Replace(vw, "@Today", {@TextToTime("}+sToday+{")})
sNewSelFormula = Replace(sNewSelFormula, "@Yesterday", {@TextToTime("}+sYesterday+{")})
view.SelectionFormula = sNewSelFormula [b]<--Erreur ici et sortie de la boucle[/b]
End If
Call view.Refresh()
End If
processNext:
End Forall
On Error Goto processError
Exit Sub
processError:
Call raiseError()
Sub initViewData
lstViewList("vwDossierForce") = {SELECT Form = "fmDossier" & (@Adjust(@Today;0;0;-180;0;0;0)<=dteForcage}
End SubsNewSelFormula = Replace(vw, "@Today",sToday)SELECT form="frmDossier" & Forcage= "Oui"& (dteForcage>@Adjust(@textToTime(20/2/2013);0;0;-180;0;0;0))