Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Inputbox's with dropdown option - LotusScript

Posted on 2002-05-21
14
Medium Priority
?
2,549 Views
Last Modified: 2013-12-18
Hello All,

I needed to create input boxes in Notes, but these input boxes need to have drop down boxes in them, where the user can select certain items.  For example, when the user clicks on the new button on a form, an inputbox should appear stating: "Please select Interface Type:", and the choices for for interface type should be: "Ethernet", "Tolken Ring".  Anyone have any suggestions?  This is being programmed in LotusScript...

Thanks,
Faraz
0
Comment
Question by:fiqbal
  • 6
  • 4
  • 2
  • +1
14 Comments
 
LVL 9

Expert Comment

by:Arunkumar
ID: 7024575
Have a subform with a layout region with one field in it called choices.

use this script in a button that will prompt with choices.

===================
     Dim ss As New notessession
     Dim curdb As notesdatabase
     Dim doc As notesdocument
     Dim dialogdoc As notesdocument
     Dim item As notesitem    
     Dim ws As New notesuiworkspace    
     Set curdb = ss.CurrentDatabase
     
     
     Set DialogDoc = curdb.createDocument()
     Set Item = dialogdoc.replaceItemValue("Choices", "")
     
     
     Call Item.appendToTextList("Value-1")
     Call Item.appendToTextList("Value-2")
     Call Item.appendToTextList("Value-3")          
     
     DialogDoc.Text = "Please select from the list below:"
     tvMsg$ = "Routing"
     If WS.DialogBox("DialogChooser", True, True, False, False, False, False, tvMsg$, DialogDoc) = False Then Exit Sub

=======================

Good Luck!
Arun.
0
 
LVL 9

Expert Comment

by:Arunkumar
ID: 7024576
The subform name is DialogChooser FYI:
0
 
LVL 9

Expert Comment

by:Arunkumar
ID: 7024582
To check for the values selected use the following code after the previous one....

If dialogdoc.Choices(0) = "Value-1" then
'Do your action here !!!
Elseif dialogdoc.Choices(0) = "Value-2" then
'Do your second action here
Else
'Third action...
End if

Hope this helps!

-Arun.
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
LVL 9

Expert Comment

by:Arunkumar
ID: 7024930
Oops!

The choices field in the layout region on the subform "DialogChooser" should be of ComboBox type and the value should be from formula, and write the formula as "Choices" without quotes !

:-)
0
 
LVL 24

Accepted Solution

by:
HemanthaKumar earned 400 total points
ID: 7025028
With R5, there is a new method equivalent to @prompt.

Use this in a button
Sub Initialize
     Dim ws As New NotesUIWorkspace
     Dim v As Variant
     Dim choices(1) As String
     choices(0) = "Ethernet"
     choices(1) =  "Tolken Ring"
     v = ws.Prompt( PROMPT_OKCANCELCOMBO, "TITLE", "Please select Interface Type:", choices(0), choices )
     Print v
End Sub

For R4, I have a different approach. If you are interested I can give it to you.

~Hemanth
0
 
LVL 8

Expert Comment

by:Jean Marie Geeraerts
ID: 7026176
Listening...
0
 
LVL 9

Expert Comment

by:Arunkumar
ID: 7026255
See i am so dumb!  Such an easy thing i got so very confused !
0
 
LVL 8

Expert Comment

by:Jean Marie Geeraerts
ID: 7026263
Hee hee :-)
0
 
LVL 9

Expert Comment

by:Arunkumar
ID: 7026274
;-)
0
 

Author Comment

by:fiqbal
ID: 7027378
Hello Hemanth,

I get an error, "Object variable not set"...Any suggestions?
0
 

Author Comment

by:fiqbal
ID: 7027875
Thank you for your input...
0
 

Author Comment

by:fiqbal
ID: 7027878
Thank you all for your inputs....it was greatly appreciated!!!
0
 
LVL 24

Expert Comment

by:HemanthaKumar
ID: 7027945
Sorry I couldn't get to this immediately. Is the problem solved ?
0
 

Author Comment

by:fiqbal
ID: 7039540
yes thank you...
0

Featured Post

New feature and membership benefit!

New feature! Upgrade and increase expert visibility of your issues with Priority Questions.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

For Desktop Techs: How to retain a user's Notes configuration data when swapping out the end user's computer. (Assuming that you are not upgrading to a completely different version of Notes client) All you need to do is: 1) install Notes o…
For beginners of Lotus Notes user this is important to know about the types of files and their location supported by IBM Notes. Mostly users are unaware about how many file types are created and what their usages are. This Article is fully dedicated…
This course is ideal for IT System Administrators working with VMware vSphere and its associated products in their company infrastructure. This course teaches you how to install and maintain this virtualization technology to store data, prevent vuln…
Loops Section Overview

916 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question