Bob Gajewski
rbgajewski at adelphia.net
Wed May 21 22:39:30 CDT 2008
Hi Folks - me again :(
I am trying to figure out how to handle NotInList code to popup a form for
adding the new record; allowing the addition of only 1 record; then closing
the popup and returning the added value.
I have an equipment table, and one of the fields is for the manufacturer. My
code below opens the form, allows for the addition of any number of entries,
then when manually closed it leaves the original value that fired the NIL
event. I can live with the manual popup form close, but I really want to
only allow a single record addition.
Any suggestions are much appreciated!
Regards,
Bob Gajewski
============================================================================
=========
Private Sub EquipmentManufacturerID_NotInList(NewData As String, Response As
Integer)
Dim db As Database, rs As Recordset
Dim strMsg As String
strMsg = "'" & NewData & "' is not in the Manufacturers table. "
strMsg = strMsg & "Would you like to add it?"
If vbNo = MsgBox(strMsg, vbYesNo + vbQuestion, "Add Manufacturer") Then
Response = acDataErrDisplay
Else
On Error Resume Next
DoCmd.OpenForm "frmManufacturers", acNormal, , , acFormAdd, acDialog
DoCmd.Save
If Err Then
MsgBox "An error occurred. Please Try Again."
Response = acDataErrContinue
Else
Response = acDataErrAdded
LastUpdated = Date
End If
Me!EquipmentManufacturerID.Requery
End If
strMsg = ""
End Sub