Help with VBA

[pointies]

I am trying to work on "message center" for work and running into a
problem with a form

In the form, there is a checkbox, a textbox and a combobox

What I am trying to do is check to see if anything is enter in textbox,
if so, adhere that to the orginal message

then check to see if anything is chosen from the combobox, if so,
adhere that to the message

then check to see if the checkbox is checked, if so, adhere that to the
message.

These events are not mutually exclusive, so someone can do all three,
none of the above, 2 of this or what not, but I have to have the event
play out in that order..

Right now, my code is not recognizing previous actions, for example, it
works if only one of the items is checked or entered.. but if the
checkbox is checked, it skills over the combobox and the textbox, if
something in the combobox is chosen, it ignores the things in the
textbox. Please help, here is a copy of the code:

Private Sub BtnSbmt2_Click()

If Textbox <"" Then
MessHist = Messhist & Textbox
End If

If NewAssign <"" Then
AssignedTo = NewAssign
MessHist = MessHist ' & some kind of NewAssign message
End If

If Check44.Value = True Then
Status = "Closed"
MessHist = MessHist '& some kind of close message
End If

Me.Refresh

End Sub

[salad]

po******@gmail.com wrote:

I am trying to work on "message center" for work and running into a
problem with a form

In the form, there is a checkbox, a textbox and a combobox

What I am trying to do is check to see if anything is enter in textbox,
if so, adhere that to the orginal message

then check to see if anything is chosen from the combobox, if so,
adhere that to the message

then check to see if the checkbox is checked, if so, adhere that to the
message.

These events are not mutually exclusive, so someone can do all three,
none of the above, 2 of this or what not, but I have to have the event
play out in that order..

Right now, my code is not recognizing previous actions, for example, it
works if only one of the items is checked or entered.. but if the
checkbox is checked, it skills over the combobox and the textbox, if
something in the combobox is chosen, it ignores the things in the
textbox. Please help, here is a copy of the code:

Private Sub BtnSbmt2_Click()

If Textbox <"" Then
MessHist = Messhist & Textbox
End If

If NewAssign <"" Then
AssignedTo = NewAssign
MessHist = MessHist ' & some kind of NewAssign message
End If

If Check44.Value = True Then
Status = "Closed"
MessHist = MessHist '& some kind of close message
End If

Me.Refresh

End Sub

I don't understand your problem. Just the same I'll take a stab.

TextBoxes, normally will open as Null if there is no default value. So
asking the question
If NewAssign <""
might not return a result you requst.

You can do things like
If IsNull(NewAssign) Then
or
If NZ(NewAssign,"") <"" Then
instead.