Pass a recordset to a sub in the same module

[dmax17]

Hi,

I am trying to pass a recordset to a sub procedure as follows

Private Sub AddNewSProdStatus(rsTemp As DAO.Recordset)
    rsSProdStatus.AddNew
    rsSProdStatus![ProdID] = Me.Recordset![ProdStatusID]
    rsSProdStatus![TitleID] = Me.Recordset![Title]
    rsSProdStatus![ProdDealType] = 1
    rsSProdStatus![PrimaryNet] = rsTemp![RerunNet]
    rsSProdStatus![StartDate] = rsTemp![DealStartDate]
    rsSProdStatus![EndDate] = rsTemp![DealEndDate]
    rsSProdStatus![CostPerEp] = rsTemp![CostperEpisode]
    rsSProdStatus![SchedulingRestrictions] = rsTemp![Scheduling]
    rsSProdStatus![CurCompID] = rsTemp![CPSalesHistoryID]
    rsSProdStatus.Update
End Sub

However, whenever I call the procedure as below

AddNewSProdStatus (rsCSales)

I get a type mismatch error.

All Recordsets are declared as DAO and contain data

Thank you

 

[spikepl]

Insert

Option Explicit


at the top of all your modules and try to compile.

This call

AddNewSProdStatus (rsCSales)

should be

AddNewSProdStatus rsCSales