Code Examples

Add To A Listbox

acCmdUndo

This example will add an item to a list box. It uses the Northwinds and Solutions databases that come as samples for Access.

'***************** Code Start *******************
' From EnterOrEditProducts Form on Solutions Database

Private Sub CategoryID_NotInList(NewData As String, Response As Integer)
' Add a new category by typing a name in CategoryID combo box.
  Dim intNewCategory As Integer, intTruncateName As Integer
  Dim strTitle As String, intMsgDialog As Integer

  ' Display message box asking if user wants to add a new category.
  strTitle = "Category Not In List"
  intMsgDialog = vbYesNo + vbQuestion + vbDefaultButton1
  intNewCategory = MsgBox("Do you want to add a new category?", intMsgDialog, strTitle)
  If intNewCategory = vbYes Then
    ' Remove new name from CategoryID combo box so control can 
    ' be requeried when user returns to form.
    DoCmd.RunCommand acCmdUndo
    ' Display message box and adjust length of value entered in CategoryID combo box.
    strTitle = "Name Too Long"
    intMsgDialog = vbOKOnly + vbExclamation     If Len(NewData) > 15 Then
      intTruncateName = MsgBox("Category names can be no longer than" _
        & "15 characters. The name you entered will be truncated.", intMsgDialog, strTitle)
      NewData = Left(NewData, 15)
    End If
    ' Open AddCategory form.
    DoCmd.OpenForm "AddCategory", acNormal, , , acAdd, acDialog, NewData
    ' Continue without displaying default error message.
    Response = acDataErrAdded
  End If
End Sub

'****************** Code End ********************

© 1998 - 2011 Terry Wickenden TKW Design Site developed, maintained and hosted by TKW Design. This site is best viewed at 1024 x 768. Optimised for Firefox.