Welcome to SPN

Register and Join the most happening forum of Sikh community & intellectuals from around the world.

Sign Up Now!

notinlist

Discussion in 'Information Technology' started by Levans digital, Jul 28, 2006.

Tags:
  1. Levans digital

    Levans digital
    Expand Collapse
    Guest

    I am working on the NotInList event with the following

    Private Sub DescriptionNo_NotInList(NewData As String, Response As Integer)
    Dim strName As String, strWhere As String

    ' User typed in a contact type that's not in the list
    strName = NewData
    ' Build the verification search string
    strWhere = "[DescriptionNo] =" & strName

    ' Verify that they want to add the new Contact Type
    If vbYes = MsgBox("Cargo Description " & NewData & " is not defined. " & _
    "Do you want to add this Description?", vbYesNo + vbQuestion +
    vbDefaultButton2, gstrAppTitle) Then
    ' Open the add a Contact Type form and pass it the new value
    ' NOTE: For this simple lookup value we could do an SQL Insert,
    ' but this method gives the user one extra chance to verify the
    value.
    DoCmd.OpenForm "CargoDescriptionfrm", DataMode:=acFormAdd,
    WindowMode:=acDialog, _
    OpenArgs:=strName
    ' Code will wait until "add" form closes - now verify that it got
    added!
    If IsNull(DLookup("DescriptionNo", "CargoDescriptiontbl", strWhere))
    Then
    ' Ooops
    MsgBox "You failed to add a Description that matched what you
    entered. Please try again.", vbInformation, gstrAppTitle
    ' Tell Access we handled the error, but cancel the update
    Response = acDataErrContinue
    Else
    ' Tell Access new data was added
    Response = acDataErrAdded
    End If
    Else
    ' Don't want to add what they typed - show standard error message
    Response = acDataErrDisplay
    End If
    End Sub


    Problem; after New data is added and Cargo Descriptionfrm closes I fet the
    following: Runtine error 2001 'you cancelled the previous operation" When I
    debug the line "If IsNull(DLookup("DescriptionNo", "CargoDescriptiontbl",
    strWhere)) Then" is highlighted please help!!!
     
  2. Brian Bastl

    Brian Bastl
    Expand Collapse
    Guest

    I'm guessing you have a type mismatch in your Where clause. Is DescriptionNo
    a numeric datatype in your table, or is it Alphanumeric?

    Brian

    "Levans digital" <Levansdigital@discussions.microsoft.com> wrote in message
    news:856E4B37-503D-44D3-AAD6-4CD1823E73EE@microsoft.com...
    > I am working on the NotInList event with the following
    >
    > Private Sub DescriptionNo_NotInList(NewData As String, Response As

    Integer)
    > Dim strName As String, strWhere As String
    >
    > ' User typed in a contact type that's not in the list
    > strName = NewData
    > ' Build the verification search string
    > strWhere = "[DescriptionNo] =" & strName
    >
    > ' Verify that they want to add the new Contact Type
    > If vbYes = MsgBox("Cargo Description " & NewData & " is not defined. "

    & _
    > "Do you want to add this Description?", vbYesNo + vbQuestion +
    > vbDefaultButton2, gstrAppTitle) Then
    > ' Open the add a Contact Type form and pass it the new value
    > ' NOTE: For this simple lookup value we could do an SQL Insert,
    > ' but this method gives the user one extra chance to verify the
    > value.
    > DoCmd.OpenForm "CargoDescriptionfrm", DataMode:=acFormAdd,
    > WindowMode:=acDialog, _
    > OpenArgs:=strName
    > ' Code will wait until "add" form closes - now verify that it got
    > added!
    > If IsNull(DLookup("DescriptionNo", "CargoDescriptiontbl",

    strWhere))
    > Then
    > ' Ooops
    > MsgBox "You failed to add a Description that matched what you
    > entered. Please try again.", vbInformation, gstrAppTitle
    > ' Tell Access we handled the error, but cancel the update
    > Response = acDataErrContinue
    > Else
    > ' Tell Access new data was added
    > Response = acDataErrAdded
    > End If
    > Else
    > ' Don't want to add what they typed - show standard error message
    > Response = acDataErrDisplay
    > End If
    > End Sub
    >
    >
    > Problem; after New data is added and Cargo Descriptionfrm closes I fet the
    > following: Runtine error 2001 'you cancelled the previous operation" When

    I
    > debug the line "If IsNull(DLookup("DescriptionNo", "CargoDescriptiontbl",
    > strWhere)) Then" is highlighted please help!!!
     

Share This Page