Page 1 sur 1

liste de dialogue et vue

MessagePublié: 31 Oct 2003 à 12:28
par célia
Bonjour,Je souhaite à partir d'un bouton Action afficher une liste de dialogue me permettant de sélectionner des vues. Comment faire ?Merci d'avance !Célia

Re: liste de dialogue et vue

MessagePublié: 31 Oct 2003 à 12:59
par Raziel
Salut, voici un bout de code qui répond à ton pbDim session As New notessessionDim ws As New notesuiworkspaceDim db As notesdatabaseDim retour As StringDim nomVues() As StringDim tabVues As VariantDim indice As Integer Set db = session.currentdatabasetabVues = db.viewsRedim nomVues(Ubound(tabVues)) As String For indice = 0 To Ubound(tabVues) nomVues(indice) = tabVues(indice).nameNext retour = Cstr(ws.Prompt(PROMPT_OKCANCELLIST, "Sélection d'une vue","Choississez la vue à ouvrir", "", nomVues)) If retour <> "" Then Call ws.currentdatabase.OpenView(retour)

Re: liste de dialogue et vue

MessagePublié: 31 Oct 2003 à 14:59
par célia
Merci beaucoup,mais j'ai la version lotus 4.6 et j'ai un message d'erreur qui apprait me disant "PROMPT NOT A MEMBER"

Re: liste de dialogue et vue

MessagePublié: 31 Oct 2003 à 15:01
par célia
Merci beaucoup,mais j'ai la version lotus 4.6 et j'ai un message d'erreur qui apprait me disant "PROMPT NOT A MEMBER"