If statement in 'After Update' event makes it miss other code

[visionstate]

Hi All,
I have put the following code in the 'After Update' of a combo box:

Private Sub ComboTeam_AfterUpdate()
lblSurnameNotify.Visible = True
Me!ComboSurname = Null
Me!ComboSurname.Requery
If Me.ComboTeam.Value = "*" Then
Me.ComboSurname.RowSource = "SELECT DISTINCT Staff.Surname FROM Staff
WHERE (((Staff.Dept) Like forms!Form1!comboDept));"
Else
Me.ComboSurname.RowSource = "SELECT DISTINCT Staff.Surname FROM Staff
WHERE (((Staff.Team) Like forms!Form1!comboTeam)); "
End If
End Sub

Below this combo box I have the ComboSurname combo box with the
following code:

Private Sub ComboSurname_AfterUpdate()
Me!ComboForename = Null
Me!ComboForename.Requery
lblForenameNotify.Visible = True
End Sub

For some reason, the comboForename combo box does not requery and the
ForenameNotify label does not display.
I have a feeling it is because of the 'If' statement that the code
isn't executing but wondered if anybody could shed any light on this?
Thanks a lot for reading.

R.

[Thelma Lubkin]

vi*********@googlemail.com wrote:
: Hi All,
: I have put the following code in the 'After Update' of a combo box:

: Private Sub ComboTeam_AfterUpdate()
<snip>
: lblSurnameNotify.Visible = True
<snip etc>

: Below this combo box I have the ComboSurname combo box with the
: following code:

: Private Sub ComboSurname_AfterUpdate()
: Me!ComboForename = Null
: Me!ComboForename.Requery
: lblForenameNotify.Visible = True
: End Sub

: For some reason, the comboForename combo box does not requery and the
: ForenameNotify label does not display.
<snip>

The code in the ComboSurname_AfterUpdate subroutine won't execute
until user has chosen a surname: is that where it's not
happening? If you want both comboboxes requeried before
proceeding, I'd put both in the ComboTeam_AfterUpdate code.

--thelma

: R.

[visionstate]

Hi Thelma,
Thanks for the reply.
A further development. Having messed around a bit and not really known
what i've done, i select a surname and the label still doesn't show but
the forename box requeries (so I am able to select a forename) but if i
then decide to change the surname in the comboSurname box, the forename
stays the same as the previous entry in the forename box. Very odd! Any
ideas??
Thanks again!

R.
Thelma Lubkin wrote:

vi*********@googlemail.com wrote:
: Hi All,
: I have put the following code in the 'After Update' of a combo box:

: Private Sub ComboTeam_AfterUpdate()
<snip>
: lblSurnameNotify.Visible = True
<snip etc>

: Below this combo box I have the ComboSurname combo box with the
: following code:

: Private Sub ComboSurname_AfterUpdate()
: Me!ComboForename = Null
: Me!ComboForename.Requery
: lblForenameNotify.Visible = True
: End Sub

: For some reason, the comboForename combo box does not requery and the
: ForenameNotify label does not display.
<snip>

The code in the ComboSurname_AfterUpdate subroutine won't execute
until user has chosen a surname: is that where it's not
happening? If you want both comboboxes requeried before
proceeding, I'd put both in the ComboTeam_AfterUpdate code.

--thelma

: R.

[Thelma Lubkin]

vi*********@googlemail.com wrote:
: Hi Thelma,
: Thanks for the reply.
: A further development. Having messed around a bit and not really known
: what i've done, i select a surname and the label still doesn't show but
: the forename box requeries (so I am able to select a forename) but if i
: then decide to change the surname in the comboSurname box, the forename
: stays the same as the previous entry in the forename box. Very odd! Any
: ideas??
: Thanks again!

Do you have this in your ComboSurname_AfterUpdate code?

Me!ComboForename = Null

I don't see why the label doesn't show, unless it's hidden
behind one of your controls, but it isn't going to update itself. You
will have to set its Caption property to the forename user chooses,
in a ComboForename_AfterUpdate event [if that's where s/he chooses]

--thelma
: R.