Hello,
I have the following code in a form with a dropdown menu
--
Private Sub Combo0_AfterUpdate()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "MaleFrm"
stLinkCriteria = "[MaleAnimalCode]=" & Me![Combo0]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
--
When I run...