On Jul 11, 2:21 pm, richal...@cs.com wrote:

Sorry, but I forgot to include the code:
Private Sub CoPolicyType_NotInList(NewData As String, Response As
Integer)

   ' Add a new policy type by typing a name in
   ' CoPolicy Type  combo box.

   Dim NewCoPolicyType As Integer, TruncateName As Integer, Title As
String, MsgDialog As Integer
   Const MB_OK = 0
   Const MB_YESNO = 4
   Const MB_ICONQUESTIONMARK = 32
   Const MB_ICONEXCLAMATION = 64
   Const MB_DEFBUTTON1 = 0, IDYES = 6, IDNO = 7
   ' Display message box asking if user wants to add a
   ' new insurer.
   Title = "Policy Type Not In List"
   MsgDialog = MB_YESNO + MB_ICONQUESTIONMARK + MB_DEFBUTTON1
   NewCoPolicyType = MsgBox("Do you want to add a new Policy Type?",
MsgDialog, Title)

   If NewCoPolicyType = IDYES Then
                      '  Display message box and adjust length of
value entered in
                       '  PolicyType combo box.
       Title = "Name Too Long"
       MsgDialog = MB_OK + MB_ICONEXCLAMATION

       If Len(NewData) > 25 Then
           TruncateName = MsgBox("Policy names can be no longer than
25 characters. The name you entered will be truncated.", MsgDialog,
Title)
           NewData = Left$(NewData, 25)
       End If
       '  Open Add Policy form.
       DoCmd.OpenForm FormName:="FPolicyTypeCo", DataMode:=acAdd,
WindowMode:=acDialog, openargs:=NewData
       '  Continue without displaying default error message.
           Response = acDataErrContinue
   End If

End Sub