AS_Dialog_Choose_From_List ( theList ; window_title ; message ; allow_multiple ; allow_empty ; default_items ; OK_button_name ; result_field )

creates a dialog with a chooser list to choose one or multiple items

Average rating: 4.2 (40 votes) Log in to vote

Thomas Siebert - Show more from this author
http://www.t-seabird.de

Sample input:

Perform AppleScript [
AS_Choose_from_List ( "Germany¶USA¶India¶France¶Spain¶Japan¶China" ; "The List" ; "Please select your favorites" ; 1 ; 0 ; "India¶France" ; OK_button_name ; "" ) ]

Sample output:

Germany
India

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/*
AS_Dialog_Choose_From_List ( theList ; window_title ; message ; allow_multiple ; allow_empty ; default_items ; OK_button_name ; result_field )

version 17
---------------------------------------------
Thomas Siebert, 25.04.2017
info@t-seabird.de
www.t-seabird.de
---------------------------------------------

creates a dialog with a chooser list

theList = a list you want to choose from: "Germany¶USA¶India¶France¶Spain¶Japan¶China".
message = a message to the user.
allow_multiple = 1:  activate choosing of multiple items of the list via the command key.
allow_empty = 1:  allow not to choose an item.
default_items = pre select items as default
OK_button_name = give a name to the OK button (usually "OK")
result_field = the FileMaker field to return the result ( table::field ) using the current record of the current layout table or to a global field of any table.
			if you have a record lock conflict set a commit record before using this function.

Use the ScriptStep "Perform AppleScript" using the option "Calculated AppleScript"
You also shall use "Perform AppleScript" directly from a button.

Die CF wird über den Scriptschritt "AppleScript ausführen" mit der Option "Berechnetes Script" genutzt.
"AppleScript ausführen" steht auch direkt in den Tastenkommandos zur Verfügung.
*/

"set myList to fmpList_to_AppleScriptList(" & Quote ( theList ) & ")
¶set default_items to fmpList_to_AppleScriptList(" & Quote ( default_items ) & ")
¶set allow_multiple to " & Quote ( allow_multiple ) & " = \"1\"
¶set allow_empty to " & Quote ( allow_empty ) & " = \"1\"
¶
¶set AppleScript's text item delimiters to return
¶set myResult to (choose from list myList multiple selections allowed allow_multiple empty selection allowed allow_empty with title \"" & window_title & "\" with prompt \"" & message & "\" default items default_items OK button name \"" & OK_button_name & "\") as string
¶
¶if myResult is not false then
¶	try
¶		return_value_to_FileMaker_field(\"" & GetFieldName ( result_field ) & "\", myResult)
¶	on error number -1728
¶		return_value_to_FileMaker_field(\"" & result_field & "\", myResult)
¶	end try
¶end if
¶
¶on return_value_to_FileMaker_field(field_reference, Value)
¶	(* version 9, Thomas Siebert, info@t-seabird.de, 23.04.2017,  
¶	return a value to any FileMaker Field  (global or local) of the current table  
¶	or to a global field of any other table. *)
¶	set AppleScript's text item delimiters to \"::\"
¶	set the item_list to every text item of field_reference
¶	set AppleScript's text item delimiters to \"\"
¶	set myList to item_list as list
¶	set TableName to item 1 of myList
¶	set FieldName to item 2 of myList
¶	--tell application \"FileMaker Pro Advanced\"
¶		set currentTable to name of current table
¶		try
¶			if TableName = currentTable then
¶				save
¶				set cell FieldName of record ID (ID of current record) of table TableName to Value
¶			else
¶				set cell FieldName of table TableName to Value
¶			end if
¶		on error number the error_number
¶			if error_number = -10006 then
¶				display dialog \"No records in target table. \rThere should be at least 1 record.\"
¶			else if error_number = -10011 then
¶				display dialog \"Record lock conflict.\"
¶			end if
¶		end try
¶	—end tell
¶end return_value_to_FileMaker_field
¶
¶on fmpList_to_AppleScriptList(myList)
¶	(* Change FileMaker list format to AppleScript list format *)
¶	set AppleScript's text item delimiters to ASCII character 166
¶	set the item_list to every text item of myList
¶	set AppleScript's text item delimiters to \"\\\", \\\"\"
¶	set myList to item_list as list
¶	set AppleScript's text item delimiters to \"\"
¶	return myList
¶end fmpList_to_AppleScriptList"

creates a dialog with a chooser list
returning a list of the choosed values to a FileMaker text field
returning "false" if nothing choosed or canceled

theList = a list you want to choose from. For instance: "Germany¶USA¶India¶France¶Spain¶Japan¶China".
message = a message to the user.
allow_multiple = 1 or "true" to activate choosing of multiple items of the list via the command key.
allow_empty = 1 or "true" to allow not to choose an item.
default_items = pre select items as default
OK_button_name = give a name to the OK button (usually "OK")
result_field = the FileMaker field to return the result ( table::field ) using the current record.

Use the ScriptStep "Perform AppleScript" using the option "Calculated AppleScript"
You also shall use "Perform AppleScript" directly from a button.

Comments

		Geoff Fairchild, Columbus, Ohio May 19, 2016
I tried this out using MacOS 10.11.5 (El Capitan) and FileMaker Pro Advanced 9 and I can see some great potential for its use in my work. I displays perfectly fine, but apparently I do not have a ''GetFieldName' function in my version of FileMaker, so the declaration below fails. Is there some way around this ? result_field = Substitute ( GetFieldName ( result_field ) ; "::" ; Â¶ )

		Thomas Siebert May 19, 2016
try this: In the function parameter you shall write the field name in brackets: "tablename::fieldname" alter the formular for result_field without using GetFieldName: result_field = Substitute ( result_field ; "::" ; Â¶ ) ;

		Thomas Siebert May 19, 2016
sorry, in my last post I wrote "brackets" but I ment "quotation marks"

		Thomas Siebert May 20, 2016
I rewrote most of the function. everything is calculated within the AppleScript now, except "Get ( FileName )" "Quote ( text )" and "GetFieldName ( result_field )"

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

AS_Dialog_Choose_From_List ( theList ; window_title ; message ; allow_multiple ; allow_empty ; default_items ; OK_button_name ; result_field )

Comments

Support this website.

Support this website.