Hi William,
if the text of field "naam1" = empty and the selectedtext of button
"naam1nivo" = "1"
then answer error "Naam van leerling 1 mag niet leeg zijn!"
if the text of field "naam1" = empty and the selectedtext of button
"naam1nivo" = "2"
then answer error "Naam van leerling 1 mag niet leeg zijn!"
if the text of field "naam1" = empty and the selectedtext of button
"naam1nivo" = "3"
then answer error "Naam van leerling 1 mag niet leeg zijn!"
if the text of field "naam1" = empty and the selectedtext of button
"naam1nivo" = "4"
then answer error "Naam van leerling 1 mag niet leeg zijn!"
if the text of field "naam1" = empty and the selectedtext of button
"naam1nivo" = "5"
then answer error "Naam van leerling 1 mag niet leeg zijn!"
if the text of field "naam1" = empty and the selectedtext of button
"naam1nivo" = "6"
then answer error "Naam van leerling 1 mag niet leeg zijn!"
if the text of field "naam1" = empty and the selectedtext of button
"naam1nivo" = "7"
then answer error "Naam van leerling 1 mag niet leeg zijn!"
Note: the following case
if the text of field "naam1" is not empty and the selectedtext of
button "naam1nivo" = "..."
then answer error "Niveau van leerling 1 mag niet leeg zijn!"
triggers a second action in the else clause below
if the text of field "naam1" = empty and the selectedtext of button
"naam1nivo" = "..."
then put "" into tData
else put field "naam1" && the selection of button "naam1nivo" &cr
into tData
So can anyone help to shorten the code (because I have 25 fields)?
on processFields
put "Naam van leerling 1 mag niet leeg zijn!" into errorMessage --
if "1" is constant
repeat with x = 1 to 25
put ("Naam van leerling"&x&"mag niet leeg zijn!") into
errorMessage -- if "1" changes
put ("naam"&x&"nivo") into buttonName
put (the text of field ("naam"&x) = empty) into emptyField
get the selectedtext of button buttonName
if it "..." then
if not emptyField then answer error errorMessage
if emptyField then put "" into tData
else put field ("naam"&x) && the selection of button
buttonName &cr into tData
else if emptyField answer error errorMessage
end repeat
end processFields
Rob Cozens
CCW, Serendipity Software Company
"And I, which was two fooles, do so grow three;
Who are a little wise, the best fooles bee."
from "The Triple Foole" by John Donne (1572-1631)
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
