[AccessD] Not In List Event

Hi Rocky

OK, that explains.
Now use this:

    dblNewVal = Val(NewData) / 100
    intReply = MsgBox("The value " & Format(dblNewVal, "Percent") & " is not in the " & Me.fldBaitPercent.Tag _
        & " percent list. Do you want to add it?", vbYesNo, "New Value")
    If intReply = vbNo Then
        Response = acDataErrContinue
        ' <NameOfYourComboBox>.Undo
    Else
        Set db = CurrentDb
        Set rs = db.OpenRecordset("Select Top 1 * FROM tblPercents")
        rs.AddNew
        rs!fldPercentType = Me.fldBaitPercent.Tag
        rs!fldPercentValue = dblNewVal
        rs.Update
        rs.Close
        Set rs = Nothing
        Me.fldBaitPercent = dblNewVal
        Response = acDataErrAdded
    End If

That works here.

/gustav


>>> rockysmolin at bchacc.com 02-11-2010 16:26:11 >>>
I changed the format of the combo box to Percent but when I enter 26 it
comes out as 2600% instead of 26%.  And gets stored in the table as 26
instead of .26

R