B
Bob
On my Main Menu I have a dropdown list from a Combo Box (cbFinishHorse),
that shows me Horses that are in Finished Status. I am trying to write the
code for AfterUpdate. So as when I click the name of the horse his form
Record appears.
This is the Row Sourse:
SELECT tblHorseInfo.HorseID, funGetHorse(0,tblHorseInfo.HorseID,false) AS
Name, [StableReturnDate] FROM tblHorseInfo WHERE Status='Finished' ORDER BY
funGetHorse(0,tblHorseInfo.HorseID,true),
funGetHorse(0,tblHorseInfo.HorseID,false);
I did try this code, But its just returning a bnew blank form
Private Sub cbHorseFinished_AfterUpdate()
If CurrentProject.AllForms("frmHorseInfo").IsLoaded = True Then
DoCmd.Close acForm, "frmHorseInfo"
End If
If cbHorseFinished = "" Or IsNull(cbHorseFinished) Then Exit Sub
DoCmd.OpenForm "frmHorseInfo", acNormal, , , , , "FromMain"
End Sub
Thanks for your help......Bob
that shows me Horses that are in Finished Status. I am trying to write the
code for AfterUpdate. So as when I click the name of the horse his form
Record appears.
This is the Row Sourse:
SELECT tblHorseInfo.HorseID, funGetHorse(0,tblHorseInfo.HorseID,false) AS
Name, [StableReturnDate] FROM tblHorseInfo WHERE Status='Finished' ORDER BY
funGetHorse(0,tblHorseInfo.HorseID,true),
funGetHorse(0,tblHorseInfo.HorseID,false);
I did try this code, But its just returning a bnew blank form
Private Sub cbHorseFinished_AfterUpdate()
If CurrentProject.AllForms("frmHorseInfo").IsLoaded = True Then
DoCmd.Close acForm, "frmHorseInfo"
End If
If cbHorseFinished = "" Or IsNull(cbHorseFinished) Then Exit Sub
DoCmd.OpenForm "frmHorseInfo", acNormal, , , , , "FromMain"
End Sub
Thanks for your help......Bob