From: love on 20 Mar 2010 17:52
"esee" <iamnubw(a)gmail.com> wrote in message
> The AfterUpdate Event for a control cboName is NOT updating another
> control txtCurTotals on the same form.
> What's wrong?
> The control txtCurTotals has the following Control Source:
> ="Current Selections = " & [TotalCount]
> TotalCount: DCount("Ingredient","zIngredientAndLocation","[NeedIt] =
> Private Sub cboName_AfterUpdate()
> Dim rs As DAO.Recordset
> Set rs = Me.Recordset.Clone
> rs.FindFirst "[IngredientID] = " & Me![cboName]
> If rs.NoMatch Then
> MsgBox "Record not found"
> Me.Bookmark = rs.Bookmark
> Me.NeedIt.Value = True
> End If
> Set rs = Nothing
> End Sub