L
Levans digital
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!!!
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!!!