Rocky Smolin
rockysmolin at bchacc.com
Tue Apr 9 13:32:06 CDT 2013
In my case, the combo is on the bound form where they want to add the record. But something like that may work. R -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Tuesday, April 09, 2013 10:06 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Not In List Not the Right Solution 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