[RESOLVED] Code Error

[manofsteel00]

I was wondering if anyone could help me with an error I'm getting when trying to call a sub that takes multiple parameters. I keep getting a "Expected: = " error, however the sub does not return a value (therefore not a function) was wondering how to get this fixed. Any help is greatly appreciated.

'CHECKZEROOH()*****************************************************************
Private Function checkZeroOH(PICKSL As String, PROD As Long, DESC As String) As Boolean
    Dim sql As String
    
    Set otherConnection = New ADODB.connection
    otherConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source= G:\Finance\Inventory Control\CycleCount\DB\Z028.mdb"
    otherConnection.Open
    Set otherRecordset = New ADODB.recordSet
    
    sql = "SELECT [OH] FROM [Untitled] WHERE [PICKSL]='" & PICKSL & "' and [PROD]=" & PROD & " and [DESC]='" & DESC & "'"
    
    otherRecordset.Open sql, otherConnection, adOpenKeyset, adLockPessimistic, adCmdText
    
    If (sql = "0" Or sql = "") Then
        'The PICK SLOT is zero
        checkZeroOH = True
        Exit Function
    End If
    checkZeroOH = False
    
End Function
'ENDOF*CHECKZEROOH()***********************************************************
 
'ADDZEROOH()*******************************************************************
Private Sub addZeroOH(PICKSL As String, PROD As Long, DESC As String, MANUID As String, HITI As String, OH As Integer)
    Dim sql As String
    
    Set newConnection = New ADODB.connection
    newConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source= G:\Finance\Inventory Control\CycleCount\DB\CycleCount.mdb"
    newConnection.Open
    Set newRecordSet = New ADODB.recordSet
    
    sql = "Insert into [MAIN] (PICKSL,SLOT,RES,PROD,[DESC],PACK," & _
        "[MANU ID],HITIX, [PALLET ID],[PALLET QTY],DFP) VALUES ('" & _
        PICKSL & "','',''," & PROD & ",'" & DESC & "','','" & MANUID & "','" & HITI & _
        "',''," & OH & ",''"
MsgBox (sql)
    newConnection.Execute sql
    
    sql = "Insert into [ALTER] (USERNAME,DATEOFCHANGE," & _
        "TYPEOFCHANGE,PICKSL,SLOT,RES,PROD,[DESC],PACK," & _
        "[MANU ID],HITIX, [PALLET ID],[PALLET QTY],DFP) VALUES (" & _
        "'p6b0438',#" & Now() & "#," & "'ZERO OH ADDED','" & _
        PICKSL & "','',''," & PROD & ",'" & DESC & "','','" & MANUID & "','" & HITI & _
        "',''," & OH & ",''"
MsgBox (sql)
    newConnection.Execute sql
    
    newRecordSet.Close
    newConnection.Close
    Set newRecordSet = Nothing
    Set newConnection = Nothing
End Sub
'ENDOF*ADDZEROOH()*************************************************************
 
'LOOPTHRUZEROOH()**************************************************************
Private Sub loopThruZeroOH()
    Set connection = New ADODB.connection
    connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source= G:\Finance\Inventory Control\CycleCount\DB\Z028.mdb"
    connection.Open
    Set recordSet = New ADODB.recordSet
    recordSet.Open "Untitled", connection, adOpenKeyset, adLockPessimistic, adCmdTable
    
    recordSet.MoveFirst
    Do Until recordSet.EOF
        If (checkZeroOH(recordSet.Fields("PICKSL"), recordSet.Fields("PROD"), _
            recordSet.Fields("DESC")) = True) Then
'////THE ERROR IS ON THE NEXT LINE ///////////////////////////////////            
            addZeroOH(recordset.Fields("PICKSL"), _
                      recordset.Fields("PROD"), _
                      recordset.Fields("DESC"), _
                      recordset.Fields("MANUID"), _
                      recordset.Fields("HITI"), _
                      recordset.Fields("OH"))
            
            
            addZeroOH(recordSet.Fields("PICKSL"), recordSet.Fields("PROD"), _
                recordSet.Fields("DESC"), recordSet.Fields("MANUID"), _
                recordSet.Fields("HITI"), recordSet.Fields("OH"))
        End If
        recordSet.MoveNext
    Loop
 
End Sub
'ENDOF*LOOPTHRUZEROOH()********************************************************

[brucevde]

When calling procedures use either

Call addZeroOH(recordSet.Fields("PICKSL"),...)

or don't specify Call and don't use the brackets

addZeroOH recordSet.Fields("PICKSL"), ...'rest of parameters

[manofsteel00]

I should have known that! Thanks!

[MartinLiss]

Now that we've helped you, you can help us by pulling down the Thread Tools menu and clicking the Mark Thread Resolved button which will let everyone know that you have your answer. Also if someone has been particularly helpful, or even particularly unhelpful, you have the ability to affect a their forum "reputation" by rating their post.