me.recordsource = me.recourdsource re-triggers notinlist event

  • Thread starter Thread starter ragtopcaddy via AccessMonster.com
  • Start date Start date
R

ragtopcaddy via AccessMonster.com

My code is below.
When the event happens originally, apparently when it gets to the .
RecordSource line, it causes the NotInList event to refire. As I step through
it, it goes from the .RecordSource line back to the Private Sub line. Any
suggestions?

Private Sub cmbTermFinder_NotInList(NewData As String, Response As Integer)

DoCmd.SetWarnings False
dbLocal.Execute "INSERT INTO tblTerminology ( Term ) SELECT """ & NewData &
""" AS Term", dbFailOnError

'Tell Access you've added the value
Response = acDataErrAdded

DoCmd.SetWarnings True
With Me
.RecordSource = .RecordSource
.Requery
End With
With DoCmd
.GoToControl ("txtTERMID")
.FindRecord Me.cmbTermFinder.Column(0), acEntire, , acSearchAll, , acAll,
True
.GoToControl ("txtTerm")
End With
Me.cmbTermFinder = Null

End Sub
 
Why are you bothering with resetting the recordsource and requerying?
Setting Response = acDataErrAdded should do those things for you
automatically.
 
Douglas,

Thanks for the reply.

The reason for resetting the recordsource and requerying is that I'm getting
desperate! After the procedure, the continuous form doesn't show the added
record. But, if I type the newly added item in the combo box, it is no longer
"NotInList", although, because it doesn't appear in the subform, the
afterupdate routine can't find the record. The routine has no trouble finding
records that actually appear in the subform.

Regards,

Bill
Why are you bothering with resetting the recordsource and requerying?
Setting Response = acDataErrAdded should do those things for you
automatically.
My code is below.
When the event happens originally, apparently when it gets to the .
Click to expand...
[quoted text clipped - 29 lines]
End Sub
Click to expand...
Click to expand...

--
Bill Reed

"If you can't laugh at yourself, laugh at somebody else"

Message posted via AccessMonster.com
 
Sounds as though you should be requerying the form, not the combo box.

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


ragtopcaddy via AccessMonster.com said:
Douglas,

Thanks for the reply.

The reason for resetting the recordsource and requerying is that I'm
getting
desperate! After the procedure, the continuous form doesn't show the added
record. But, if I type the newly added item in the combo box, it is no
longer
"NotInList", although, because it doesn't appear in the subform, the
afterupdate routine can't find the record. The routine has no trouble
finding
records that actually appear in the subform.

Regards,

Bill
Why are you bothering with resetting the recordsource and requerying?
Setting Response = acDataErrAdded should do those things for you
automatically.
My code is below.
When the event happens originally, apparently when it gets to the .
Click to expand...
[quoted text clipped - 29 lines]
End Sub
Click to expand...
Click to expand...

--
Bill Reed

"If you can't laugh at yourself, laugh at somebody else"

Message posted via AccessMonster.com
Click to expand...
 
Back
Top