Error: You cancelled the previous operation

[Neekos]

Some of this may look familar to some of you, as part of it was posted previously. As i got farther along, i realized i was missing part of it and had to go back and redesign. The code is not fully complete so i just commented the lines that are not relevent to the issue. When the code is run, i'm getting an error that says "You cancelled the previous operation". First i was getting an error of "invalid use of null" and added the Nz functions in, leaving me with the error im at now. Can someone please help?

Private Sub btnCabin_Click()
On Error GoTo Err_btnCabin_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    Dim intInside As Integer
    Dim intInside2 As Integer
    Dim intInside3  As Integer
    Dim intInside4  As Integer
 
    'Dim intOV As Integer
    'Dim intBalc As Integer
    Dim SQL As String
    Dim strInsideCatA As String
    Dim strInsideCatB As String
    Dim strInsideCatC As String
    Dim strInsideCatD As String
 
    stDocName = "frmNewCabins"
 
    stLinkCriteria = "[GroupNumber]=" & "'" & Me![GroupNumber] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
    strInsideCatA = Nz([Forms]![frmNewCabins]![InsideCat], "")
    strInsideCatB = Nz([Forms]![frmNewCabins]![InsideCatB], "")
    strInsideCatC = Nz([Forms]![frmNewCabins]![InsideCatC], "")
    strInsideCatD = Nz([Forms]![frmNewCabins]![InsideCatD], "")
 
    intInside = DCount("tblManifest.[ID]", "tblManifest", "tblManifest.[Category] = 'Inside' AND tblManifest.[CategoryNum] = strInsideCatA AND [GroupNumber]=" & "'" & Me![GroupNumber] & "'")
    intInside2 = DCount("tblManifest.[ID]", "tblManifest", "tblManifest.[Category] = 'Inside' AND tblManifest.[CategoryNum] = strInsideCatB AND [GroupNumber]=" & "'" & Me![GroupNumber] & "'")
    intInside3 = DCount("tblManifest.[ID]", "tblManifest", "tblManifest.[Category] = 'Inside' AND tblManifest.[CategoryNum] = strInsideCatC AND [GroupNumber]=" & "'" & Me![GroupNumber] & "'")
    intInside4 = DCount("tblManifest.[ID]", "tblManifest", "tblManifest.[Category] = 'Inside' AND tblManifest.[CategoryNum] = strInsideCatD AND [GroupNumber]=" & "'" & Me![GroupNumber] & "'")
 
 
 
    'intOV = DCount("tblManifest.[ID]", "tblManifest", "tblManifest.[Category] = 'OV' AND [GroupNumber]=" & "'" & Me![GroupNumber] & "'")
    'intBalc = DCount("tblManifest.[ID]", "tblManifest", "tblManifest.[Category] = 'Balcony' AND [GroupNumber]=" & "'" & Me![GroupNumber] & "'")
 
    Forms![frmNewCabins]![InsideRemain] = Forms![frmNewCabins]![InsideAmt] - intInside
    Forms![frmNewCabins]![InsideRemainB] = Forms![frmNewCabins]![InsideAmtB] - intInside2
    Forms![frmNewCabins]![InsideRemainC] = Forms![frmNewCabins]![InsideAmtC] - intInside3
    Forms![frmNewCabins]![InsideRemainD] = Forms![frmNewCabins]![InsideAmtD] - intInside4
 
 
    'Forms![frmNewCabins]![OVRemain] = Forms![frmNewCabins]![OVAmt] - intOV
    'Forms![frmNewCabins]![BalconyRemain] = Forms![frmNewCabins]![BalconyAmt] - intBalc
 
 
Exit_btnCabin_Click:
    Exit Sub
 
Err_btnCabin_Click:
    MsgBox Err.Description
    Resume Exit_btnCabin_Click
 
End Sub

[Neekos]

ok i've narrowed it down and realized its my syntax. Can someone help me with the correct syntax for this part of my code:

intInside = DCount("tblManifest.[ID]", "tblManifest", "tblManifest.[Category] = 'Inside' AND tblManifest.[CategoryNum] = strInsideCatA  AND [GroupNumber]=" & "'" & Me![GroupNumber] & "'")

i know that's the part thats giving me my error, but i dont know the correct syntax.

Thanks!

[MGrowneyARSI]

try
intInside = DCount("tblManifest.[ID]", "tblManifest", "tblManifest.[Category] = 'Inside' AND tblManifest.[CategoryNum] = strInsideCatA AND [GroupNumber]= Me![GroupNumber] ")
or
intInside = DCount("tblManifest.[ID]", "tblManifest", "tblManifest.[Category] = "& 'Inside' AND tblManifest.[CategoryNum] = strInsideCatA AND [GroupNumber]= Me![GroupNumber])

This is the syntax for numaric values but not sure if it will work with what your doing here. worth a shot though

[Neekos]

the code worked fine until i added the part that i bolded above - thats the part that needs the syntax corrected.

[mlcampeau]

the code worked fine until i added the part that i bolded above - thats the part that needs the syntax corrected.

Not sure how to refer to the strInsideCatA variable, but what if you were to try replacing it with the expression you have assigned to it: Nz([Forms]![frmNewCabins]![InsideCat], "")?

[Neekos]

This gives me a syntax error:

intInside = DCount("tblManifest.[ID]", "tblManifest", "tblManifest.[Category] = 'Inside' AND tblManifest.[CategoryNum] = Nz([Forms]![frmNewCabins]![InsideCat], "") AND [GroupNumber]=" & "'" & Me![GroupNumber] & "'")

[Neekos]

Ok i figured it out, but im not really sure why....i just kind of mimicked the same syntax for the third part of the AND statement where GroupNumber is.

this is what i have that works:

intInside = DCount("tblManifest.[ID]", "tblManifest", "tblManifest.[Category] = 'Inside' AND tblManifest.[CategoryNum] =" & "'" & Nz([Forms]![frmNewCabins]![InsideCat], "") & "' AND [GroupNumber]=" & "'" & Me![GroupNumber] & "'")

[mlcampeau]

Ok i figured it out, but im not really sure why....i just kind of mimicked the same syntax for the third part of the AND statement where GroupNumber is.

this is what i have that works:

intInside = DCount("tblManifest.[ID]", "tblManifest", "tblManifest.[Category] = 'Inside' AND tblManifest.[CategoryNum] =" & "'" & Nz([Forms]![frmNewCabins]![InsideCat], "") & "' AND [GroupNumber]=" & "'" & Me![GroupNumber] & "'")

The quotes can be quite confusing, but I'm glad you got it working.