MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

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

    avatar
    Bernidios
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 17/07/2017

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

    Mensagem  Bernidios 19/9/2017, 17:20

    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!


    Última edição por Bernidios em 19/9/2017, 20:56, editado 1 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 19/9/2017, 17:29

    Já agora o que é isto ?

    Código:
    Prazificador(rstComn)

    Não será

    Código:
    rstComn!Prazificador


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Erro "O Objeto É Obrigatório" ao chamar Recordset em uma Function Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Erro "O Objeto É Obrigatório" ao chamar Recordset em uma Function Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Erro "O Objeto É Obrigatório" ao chamar Recordset em uma Function Folder_announce_new Instruções SQL como utilizar...
    avatar
    Bernidios
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 17/07/2017

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

    Mensagem  Bernidios 19/9/2017, 17:39

    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


    Última edição por Bernidios em 19/9/2017, 20:58, editado 1 vez(es)
    avatar
    Bernidios
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 17/07/2017

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

    Mensagem  Bernidios 19/9/2017, 20:57

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 09:25