If Then Statement

T

Tedd N

I'm struggling with an if, then statement. I have a combo box [status] on a
form. When the user selects "complete" a message box reminds the user to go
to another combo box [savings] and select the appropriate answer. That
second box is not required (and thus is null) until the status box is marked
complete. I need to force the user to select an answer from the savings
combo box if status is complete. I have not had enough caffeine so I can't
spot my problem, though I'm sure it is not a difficult line of code, and I
only know enough VB to be dangerous :)

The logic (or illogic :) I'm using is ... if status = complete, then
savings cannot be null.

The code below returns a function call error, that the left hand side must
return a variant or object.
If (Me.Status) = complete Then IsNull(Me.Savings / Avoidance) = False
End If
 
S

Sam

Hi Tedd, hows this sound:

on form close/exit event,

If status = complete then
if savings is null then
'cancel exit operation
'prompt user/ msg box to select an option from savings
end if
end if

alternativley you can use case select instead of if statements?

Hope this helps!
Sam
 
T

Tedd N

Thanks Sam,
That's the other direction I was going, in either case the check was to be
before update, I think I just made it too complicated with one statement
rather than two.
 
S

Sam

well i realize my solution is probably a simplistic one, as im still
learning, but i hope i could help :)
Sam
 
D

Dirk Goldgar

Tedd N said:
I'm struggling with an if, then statement. I have a combo box
[status] on a form. When the user selects "complete" a message box
reminds the user to go to another combo box [savings] and select the
appropriate answer. That second box is not required (and thus is
null) until the status box is marked complete. I need to force the
user to select an answer from the savings combo box if status is
complete. I have not had enough caffeine so I can't spot my problem,
though I'm sure it is not a difficult line of code, and I only know
enough VB to be dangerous :)

The logic (or illogic :) I'm using is ... if status = complete, then
savings cannot be null.

The code below returns a function call error, that the left hand side
must return a variant or object.
If (Me.Status) = complete Then IsNull(Me.Savings / Avoidance) = False
End If
Click to expand...

This code would be inthe form's BeforeUpdate event, I take it? That's
where it makes the most sense to me. It might look something like this:

'----- start of code -----
Private Sub Form_BeforeUpdate(Cancel As Integer)

If Me.Status = "complete" Then
If IsNull(Me![Savings / Avoidance]) Then
Cancel = True ' cancel update
MsgBox _
"You must fill in the the savings.", _
vbOkOnly,
"Required Field"
Me![Savings / Avoidance].SetFocus
End If
End If

End Sub
'----- end of code -----

I've assumed that "Savings / Avoidance" is the name of a single control
on your form, and not intended to represent the division of two fields.
If I'm right about that, be aware that it's really not a good idea to
use spaces and arithmetic operators, or any nonstandard characters, in
field or control names.
 
Top