[Resolvido]Erro "O Objeto É Obrigatório" ao chamar Recordset em uma Function

rstComn![NotaCom] = ((rstComn!pontNI / 2) / Prazificador(rstComn))

Código:

Private Sub botExibir_Click()

    SeDataNula

    If Me.BoxTipos = "Pontuação" Then
            
                    Dim rstComn As Recordset
            
                    Dim SQL_V As String
                    
                        SQL_V = "SELECT * " + _
                                "FROM tblComunicados " + _
                                "WHERE tblComunicados.txt_Situacao <> 'Em Análise'" + _
                                "AND tblComunicados.txt_Situacao <> 'Cancelado'" + _
                                "AND tblComunicados.txt_Situacao <> 'Indevido'" + _
                                "AND tblComunicados.txt_Situacao <> ' Em Análise'" + _
                                "AND tblComunicados.txt_nomeDemanda <> 'Regularidade Fiscal';"
                        
                        Set rstComn = CurrentDb.OpenRecordset(SQL_V, dbOpenDynaset)
            
        Do Until rstComn.EOF
                    
                    Dim rstIrr As Recordset
            
                    Dim SQL_I As String
                    
                        SQL_I = "SELECT * " + _
                                "FROM tblIrregularidades " + _
                                "WHERE tblIrregularidades.txt_Irregularidade = '" & rstComn!txt_nomeDemanda & "'"
                        
                        Set rstIrr = CurrentDb.OpenRecordset(SQL_I, dbOpenDynaset)
                    
                        rstComn.Edit
                        
                        rstComn![pontNI] = rstIrr!Gravidade
                            
                        rstComn.Update
                        
                        rstComn.Edit
                        
                        rstComn![NotaCom] = ((rstComn!pontNI / 2) / Prazificador(rstComn))
                        
                        rstComn.Update
                        
            rstComn.MoveNext

        Loop
        
rstComn.OpenRecordset

    End If
    

Código:

Private Sub botExibir_Click()

    SeDataNula

    If Me.BoxTipos = "Pontuação" Then
            
                    Dim rstComn As Recordset
            
                    Dim SQL_V As String
                    
                        SQL_V = "SELECT * " + _
                                "FROM tblComunicados " + _
                                "WHERE tblComunicados.txt_Situacao <> 'Em Análise'" + _
                                "AND tblComunicados.txt_Situacao <> 'Cancelado'" + _
                                "AND tblComunicados.txt_Situacao <> 'Indevido'" + _
                                "AND tblComunicados.txt_Situacao <> ' Em Análise'" + _
                                "AND tblComunicados.txt_nomeDemanda <> 'Regularidade Fiscal';"
                        
                        Set rstComn = CurrentDb.OpenRecordset(SQL_V, dbOpenDynaset)
            
        Do Until rstComn.EOF
                    
                    Dim rstIrr As Recordset
            
                    Dim SQL_I As String
                    
                        SQL_I = "SELECT * " + _
                                "FROM tblIrregularidades " + _
                                "WHERE tblIrregularidades.txt_Irregularidade = '" & rstComn!txt_nomeDemanda & "'"
                        
                        Set rstIrr = CurrentDb.OpenRecordset(SQL_I, dbOpenDynaset)
                    
                        rstComn.Edit
                        
                        rstComn![pontNI] = rstIrr!Gravidade
                            
                        rstComn.Update
                        
                        rstComn.Edit
                        
                        rstComn![NotaCom] = ((rstComn!pontNI / 2) / Prazificador(rstComn))
                        
                        rstComn.Update
                        
            rstComn.MoveNext

        Loop
        
rstComn.OpenRecordset

    End If
    

Não estou conseguindo achar o erro.

Obrigado desde já pela ajuda!

Já agora o que é isto ?

Código:

Prazificador(rstComn)

Não será

Código:

rstComn!Prazificador

Olá, JPaulo, obrigado por sua atenção.

Não consegui entender a sua resposta, se conseguir explica-la melhor ficaria eternamente grato!

Eu tentei chamar a rst na Function a partir do ByRef e coloquei a ByRef onde a chamo, não entendi o erro ainda.

Att.

Matheus

Resolvi fazendo a famosa gambiarra, mas obrigado pela tentativa de ajuda