Private Sub ComboOne_AfterUpdate()
Dim sSQL as string
sSQL = "SELECT * FROM TblWithValues WHERE MyIDField = " Me.ComboOne
ComboTwo.RowSource = sSQL
End Sub
Krgrds,
Perry
"vrhari" <vrh...@winvision.net> schreef in bericht
news:02d501c3060c$a17fd730$a101...@phx.gbl...