[AccessD] Not In List Not the Right Solution

That is how I do it.


On Tue, Apr 9, 2013 at 10:05 AM, Jim Dettman <jimdettman at verizon.net> wrote:

>
>   Not in list is the right event.  Would go something like this:
>
> Private Sub cboPatient_NotInList(NewData As String, Response As Integer)
>
> 10      gstrMBTitle = "Patient not on file"
> 20      gstrMBMsg = "Do you wish to add?"
> 30      gintMBDef = vbYesNo + vbExclamation + vbDefaultButton1
> 40      gintMBResp = MsgBox(gstrMBMsg, gintMBDef, gstrMBTitle)
>
> 50      If gintMBResp = vbYes Then
> 60        DoCmd.OpenForm "frmPatients", acNormal, , , acFormEdit, acDialog,
> "ADD;EXITTOFORM=frmVisits"
> 70        Response = DATA_ERRADDED
> 80      Else
> 90        Response = DATA_ERRCONTINUE
> 100     End If
>
>
> End Sub
>
>   This pops up a form, let's the record get added, then forces a requery of
> the combo and another lookup (Response = DATA_ERRADDED).
>
> Jim.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> Sent: Tuesday, April 09, 2013 12:24 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Not In List Not the Right Solution
>
> Dear List:
>
> I have a request from a user that when they try to find a name in a combo
> box if the name is not there, that the program go to add a new record and
> place the data entered in the combo box in the last name field and let them
> finish entering the new data.
>
> I tried the NotInList event until I realized this is to add entries to the
> combo box.  But I can't seem to get it to behave properly - it goes into a
> loop displaying my "add then new guy now?" not in list message.
>
> I think Not In List is not the best way to do this, but don't know how
> else.
>
> Any ideas?
>
> MTIA
>
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.bchacc.com <http://www.bchacc.com/>
> www.e-z-mrp.com <http://www.e-z-mrp.com/>
> Skype: rocky.smolin
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>