Update a list!

[Bob]

When I select Finished mode from Active nothing changes untill I close the
db down and re-open it
First code is to select the status and the 2nd is to open the list
I think there should be a Dirty in here some where
Thanks for any help....Bob

Private Sub cbStatus_BeforeUpdate(Cancel As Integer)
If IsNull(Me.cbStatus) Then
MsgBox "Horse can only be [Active] or [Finished] Mode!"
Cancel = True
End If
End Sub


Private Sub Command415_Click()
Me.cbActiveHorses.SetFocus
Me.cbActiveHorses.Dropdown
End Sub

 

[John W. Vinson]

When I select Finished mode from Active nothing changes untill I close the
db down and re-open it
First code is to select the status and the 2nd is to open the list
I think there should be a Dirty in here some where
Thanks for any help....Bob

If you want to display the value in ActiveHorses, and the underlying query has
changed, requery it first:

Private Sub Command415_Click()
Me.cbActiveHorses.Requery

Me.cbActiveHorses.SetFocus
Me.cbActiveHorses.Dropdown
End Sub

John W. Vinson [MVP]

 

[Bob]

Thanks John

If you want to display the value in ActiveHorses, and the underlying query
has
changed, requery it first:



John W. Vinson [MVP]