I am receiving error 2147352567 when trying to delete  a record from
form 1Cruise. The error is happening in a function that calculates and
sends a total weight to a text box. The delete never completes.

The code in the function is as follows and it errors when checking the
setid in the first if statement when attempting the delete but works
fine otherwise.

Public Function GetTotalWeight() As Double
    On Error GoTo ErrHandler


    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim intCriteria As Long

    'If Not IsNull([Forms]![Form1]![1Cruise].[Form]![CruiseID]) Then

    If Not IsNull([Forms]![Form1]![1Cruise].[Form]![1Sets].[Form]!
[SetID]) Then
        strSQL = "SELECT Sum([1CatchComposition].[Weight (kg)]) AS
[SumOfWeight (kg)], [1CatchComposition].SetIDFK " & _
                    "FROM 1CatchComposition " & _
                    "GROUP BY [1CatchComposition].SetIDFK " & _
                    "HAVING [1CatchComposition].SetIDFK=" & _
                    [Forms]![Form1]![1Cruise].[Form]![1Sets].[Form]!
[SetID] & ";"

        Set db = CurrentDb
        Set rs = db.OpenRecordset(strSQL)

        If Not rs.EOF Then
            If Not IsNull(rs.Fields("[SumOfWeight (kg)]")) Then
                GetTotalWeight = rs.Fields("[SumOfWeight (kg)]")
            End If
        Else
            GetTotalWeight = 0
        End If
    End If
   'End If

ErrHandler:
    If Err.Number = 0 Then
    Else
        MsgBox Err.Number & "  " & Err.Description & "  " & "has
occurred in GetTotalWeight."
    End If




End Function