IIf(frmForm.opt

[cmxulb]

Hello,

This code below works, but if I add "both" it doesn't work

.Cells(iRow, 3) = IIf(frmForm.optLarge.Value = True, "Large", "Small") This code works


.Cells(iRow, 3) = IIf(frmForm.optLarge.Value = True, "Large", "Small", "Both") if I add "both" does not work.

How can I make it work by

adding "Both"?

 

[Rick Rothstein]

What are your possible values for optLarge? IIf stands for "Immediate IF"... is is basically and If..Then..Else..EndIf so it reacts to True and False only. You have a 3rd choice... what value chooses the "Both" response?

 

[cmxulb]

What are your possible values for optLarge? IIf stands for "Immediate IF"... is is basically and If..Then..Else..EndIf so it reacts to True and False only. You have a 3rd choice... what value chooses the "Both" response?

Yea, true and false for large and small. but how can I make work with a 3rd choice?

 

[Rick Rothstein]

In order to answer that question, I need you to tell us what that third choice would be... True, False and.... what?

Also, how are these choices being delivered to you code procedure? Is the user selecting from a drop down, entering it into an InputBox, entering into a cell formatted as General, entering it into a cell formatted as Text, some other way?

Just out of curiosity, can you work with the three words (Large, Small, Both) directly?

If you tell us how the code you are asking about fits in your overall code procedure, it would help us in guiding you to the solution you are hoping to find.

 

[cmxulb]

It works by selecting Scale small or large, but now I need to add Both. Selecting 1 only.

 

[dmt32]

Hi
try

Cells(iRow, 3) = IIf(Me.optLarge.Value, "Large", IIf(Me.optBoth.Value, "Both", "Small"))

Dave

 

[Rick Rothstein]

Since these are option buttons, they will all have a value (True or False), so you can chain the IIF functions like this (I have assumed the name of your "small" OptionButton, change it if I guessed wrong)...

.Cells(iRow, 3) = IIf(frmForm.optLarge.Value, "Large", IIf(frmForm.optSmall.Value, "Small", "Both))

Note: OptionButtons can only be True or False so you do not to test if it equals True or not.

 

[cmxulb]

Hi
try

Cells(iRow, 3) = IIf(Me.optLarge.Value, "Large", IIf(Me.optBoth.Value, "Both", "Small"))

Dave

yesss Thank You
This worked. took Me out add it FrmForm
View attachment 36500

Since these are option buttons, they will all have a value (True or False), so you can chain the IIF functions like this (I have assumed the name of your "small" OptionButton, change it if I guessed wrong)...

.Cells(iRow, 3) = IIf(frmForm.optLarge.Value, "Large", IIf(frmForm.optSmall.Value, "Small", "Both))

Note: OptionButtons can only be True or False so you do not to test if it equals True or not.

Yessss Thank You! This worked.

 

[cmxulb]

One last thing.
For validation, this is the code without "Both"
How can you make work with "Both"

'Validating Scale


If .optLarge.Value = False And .optSmall.Value = False Then

MsgBox "Please select scale.", vbOKOnly + vbInformation, "scale"
ValidatePrintDetails = False
Exit Function

End If

 

[dmt32]

yesss Thank You
This worked. took Me out add it FrmForm
View attachment 36500

I assumed the optionbuttons are on a userform? in which case, Me is the same as frmForm

Glad we could help

Dave