NotInList events

[Steve Leferve]

Can someone tell what what objects I have to work with on the 'NotInList'
event? Basically I want to have a pop-up prompt the user if they want to add
the data they typed into the database.

Steve Lefevre

[fredg]

Re: NotInList events

On Tue, 20 Apr 2004 17:45:14 -0400, Steve Leferve wrote:
[color=blue]
> Can someone tell what what objects I have to work with on the 'NotInList'
> event? Basically I want to have a pop-up prompt the user if they want to add
> the data they typed into the database.
>
> Steve Lefevre[/color]

Steve,
There are several different ways to add data.
It depends on what else you need to do.
The following code in the [City] combo box NotInList event will update
the City field with a new city name. Adapt it to your own needs.
Watch out for word wrap on some of the longer lines.

On Error GoTo Err_City_NotInL ist
Dim IntResponse As Integer
' Prompt user to verify they wish to add new value.
IntResponse = MsgBox("You entered a City which is not in the list." &
vbNewLine & "Do you wish to add this City? Y/N ", vbQuestion + vbYesNo
+ vbDefaultButton 2, "City Not Listed")
If IntResponse = vbYes Then
' Set Response argument to indicate that data is being added.
Response = acDataErrAdded
' Add string in the NewData argument to City table
NewData = StrConv(NewData , vbProperCase)

CurrentDb.Execu te " INSERT INTO tblCities(txtCi ty) SELECT " &
chr(34) & NewData & chr(34) & ";",dbFailOnErr or
Me!City = NewData
Else
' If user chooses Cancel, suppress error message and undo changes.
Response = acDataErrContin ue
Me!City = Null
End If

Exit_City_NotIn List:
Exit Sub

Err_City_NotInL ist:
If Err = 2113 Then
Err = 0
Resume Next
Else
MsgBox Str(Err) & " " & Err.Description
Resume Exit_City_NotIn List
End If

--
Fred
Please only reply to this newsgroup.
I do not reply to personal email.