combobox causing update or cancelupdate error

[AccessThomas]

I have a split form with the records list set to the bottom of the screen. The top of the form has a chkbox that we check when we update a record. When I click on individual records listed at the bottom of the screen and click the chkbox there is no problem. However, If I click on my combobox to go to the record typed in, it will go to the record, but when I click on the chkbox, to show the record was updated, I get this error



"update or cancelupdate without addnew or edit"

Here is the code for the combobox:


'------------------------------------------------------------' cboAccountName_AfterUpdate
'
'------------------------------------------------------------
Private Sub cboAccountName_AfterUpdate()
On Error GoTo cboAccountName_AfterUpdate_Err


' _AXL:<?xml version="1.0" encoding="UTF-16" standalone="no"?>
' <UserInterfaceMacro For="cboAccountNumber" Event="AfterUpdate" xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application"><Statements><Action Name="SearchForRecord"><Argum
' _AXL:ent Name="WhereCondition">="[Account Number] = " &amp; "'" &amp; [Screen].[ActiveControl] &amp; "'"</Argument></Action></Statements></UserInterfaceMacro>
DoCmd.SearchForRecord , "", acFirst, "[Full Name] = " & "'" & Screen.ActiveControl & "'"




cboAccountName_AfterUpdate_Exit:
Exit Sub


cboAccountName_AfterUpdate_Err:
MsgBox Error$
Resume cboAccountName_AfterUpdate_Exit


End Sub

[ranman256]

don't use SEARCH
use filter:

Private Sub cboAccountName_AfterUpdate()
   if isNull(cboAccountname) then
       me.filterOn = false
   else
      me.filter = "[AcctName]='" & cboAccountname & "'"
      me.filterON = true
   end if
end sub

[AccessThomas]

Gotcha, thanks.

[AccessThomas]

Ok, got the problem fixed.