Filter a split form by a combo box

[ECEK]

I wish to filter my split form in vba afterupdate of a combo box.

Can anybody point me in the right direction please.

Basically I need the afterupdate vba code

AfterUpdate

filter my frmsplitform where me.combo1 = [Surname]

i can't find this anywhere !!

Thanks people

 

[isladogs]

Assuming your combo is called Combo1 & the bound field is surname then

Private Sub Combo1_AfterUpdate()

    Me.Filter = "Surname = '" & Me.Combo1 & "'"
    Me.FilterOn = True
End Sub

 

[ECEK]

Thanks Ridders I was having a blank moment

I also found

DoCmd.ApplyFilter , "[Surname]='" & Me.Combo1 & "'"

 

[arnelgp]

Why the need for combo when you can filter the datasheet.