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


3 participantes

    Erro de Compilação

    avatar
    Dsantos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 23/12/2021

    Erro de Compilação Empty Erro de Compilação

    Mensagem  Dsantos 30/11/2023, 19:17

    Prezados,

    Estou iniciando em VB e estou desenvolvendo um projeto que está travado no seguinte erro...

    "Erro de compilação:

    O tipo definido pelo usuário não foi definido"

    Segue o código onde está ocorrendo o erro. Após o erro fica destacado esta parte do código "rs As DAC.Recordset"

    Private Sub BtnAdTodos_Click()
    Dim rs As DAC.Recordset

    CurrentDb.Execute "DELETE FROM TBL_USUARIO_FORMULARIOS WHERE ID_USUARIO =" & Me.CbxUsuarios, dbFailOnError

    Set rs = CurrentDb.OpenRecordset("TBL_FORMULARIOS")

    Do Until rs.EOF
    CurrentDb.Execute "INSERT INTO TBL_USUARIO_FORMULARIOS (ID_USUARIO, ID_FORM) VALUES(" & Me.CbxUsuarios & "," & rs!ID_FORM & ")", dbFailOnError
    rs.MoveNext
    Loop

    rs.Close
    Set rs = Nothing

    Me.LbxPermitidos.Requery

    End Sub

    Utilizo o Microsoft Access 2013.

    Desde já agradeço.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3449
    Registrado : 13/12/2016

    Erro de Compilação Empty Re: Erro de Compilação

    Mensagem  Alexandre Fim 30/11/2023, 20:38

    Olá Diniz,

    O erro está na declaração da variavel de recordset:
    Dim rs As DAC.Recordset

    Correto:
    Dim rs As DAO.Recordset

    Compile novamente e verifique se ocorrem erros.

    É isso

    Att,

    Alexandre Fim



    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Erro de Compilação Setinf11
    Sistemas e Tecnologia Ltda

    Dsantos gosta desta mensagem

    avatar
    Dsantos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 23/12/2021

    Erro de Compilação Empty Olá Alexander

    Mensagem  Dsantos 1/12/2023, 17:47

    Fiz a correção que você indicou e funcionou.

    Valeu. Muito obrigado pela orientação.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3449
    Registrado : 13/12/2016

    Erro de Compilação Empty Re: Erro de Compilação

    Mensagem  Alexandre Fim 1/12/2023, 18:15

    Ok, Diniz !!

    Sempre que precisar este forum vai te ajudar.

    Por gentileza, marque o tópico como "Resolvido"

    Veja no link como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    Boa sorte...o fórum agradece.

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Erro de Compilação Setinf11
    Sistemas e Tecnologia Ltda
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8483
    Registrado : 05/11/2009

    Erro de Compilação Empty Re: Erro de Compilação

    Mensagem  Alexandre Neves 2/12/2023, 18:09

    Boa tarde e bem-vindo à participação no fórum
    Leia as regras e respeite-as. A sala de repositórios não serve para tirar dúvidas, por isso, movi-lhe o tema para esta sala


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    Erro de Compilação Empty Re: Erro de Compilação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/10/2024, 07:52