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

    [Resolvido]Erro Código VBA não encontrado.

    abjinfo
    abjinfo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 118
    Registrado : 02/07/2015

    [Resolvido]Erro Código VBA não encontrado. Empty [Resolvido]Erro Código VBA não encontrado.

    Mensagem  abjinfo 10/10/2017, 15:22

    olá pessoal do Forum!

    Estou com dificuldades em achar o erro no Open, pois estava ok, mais acrescentei estás linha e parou de funcionar, acho que fiz caca, rsrsrs.

    '------------------------------------------------
    'Abre o back-end, informando a senha de acesso
    '------------------------------------------------
    Set bdlista = OpenDatabase(DLookup("path_0", "tblCaminhoBe"), False, False, _
    ";PWD=" & fncCrip(DLookup("senha", "tblCaminhoBe"), 102030))
    '------------------------------------------------


    Por favor gostaria de uma ajuda.

    Obrigado.


    Private Sub Form_Close()

    On Error Resume Next
    If nlogoff = False Then Exit Sub
    rslista.Close 'Encerra conexão com o recordset
    Set bdlista = Nothing
    If nlogoff = False Then Exit Sub
    DoCmd.Quit
    'On Error Resume Next
    'If nlogoff = False Then Exit Sub
    'DoCmd.Quit
    End Sub

    ________________________________________________________

    Private Sub Form_Open(Cancel As Integer)
    '------------------------------------------------
    'Abre o back-end, informando a senha de acesso
    '------------------------------------------------
    Set bdlista = OpenDatabase(DLookup("path_0", "tblCaminhoBe"), False, False, _
    ";PWD=" & fncCrip(DLookup("senha", "tblCaminhoBe"), 102030))
    '------------------------------------------------

    Call CriarMenuFormularios
    Call CriarMenuRelatorios

    Set dbs = CurrentDb
    strSQL = "SELECT * FROM viewEmpresa"
    Set rst = dbs.OpenRecordset(strSQL)
    Me.txtEmpresa = rst("ccNomEmp")
    DadosEmpresa.crt = rst("ccCRT")
    DadosEmpresa.ALIQUOTA = rst("ccAliquotaSimples")
    rst.Close

    Set dbs = CurrentDb
    strSQL = "SELECT * FROM tbl_Parametros"
    Set rst = dbs.OpenRecordset(strSQL)
    Modulos.UsuarioECF = rst("UsuarioECF")
    Modulos.UsuarioNFe = rst("UsuarioNFE")
    Modulos.UsuarioCobranca = rst("UsuarioCobranca")
    Modulos.UsuarioSMS = rst("UsuarioSMS")
    Modulos.UsuarioOS = rst("UsuarioOS")
    Modulos.UsuarioOF = rst("UsuarioOF")
    rst.Close
    EstadoCapsLock
    End Sub
    avatar
    joaomarcos84712722
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 17/03/2017

    [Resolvido]Erro Código VBA não encontrado. Empty Re: [Resolvido]Erro Código VBA não encontrado.

    Mensagem  joaomarcos84712722 10/10/2017, 18:29

    Às vezes acontece isso comigo também. Vai na guia FERRAMENTAS DO BANCO DE DADOS, clica em Compactar e Reparar Banco de Dados, se seu arquivo continuar aberto após este processo feche-o. Abra o arquivo novamente no modo edição (com a tecla Shift pressionada ao abrir o arquivo), e abra o form aonde você colocou o ultimo código em Modo Design. Após abrir no Modo Design, abra ele no Modo Formulário.
    As vezes não funciona de primeira mas funciona comigo.
    abjinfo
    abjinfo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 118
    Registrado : 02/07/2015

    [Resolvido]Erro Código VBA não encontrado. Empty Re: [Resolvido]Erro Código VBA não encontrado.

    Mensagem  abjinfo 11/10/2017, 14:45

    Obrigado por responder João Marcos.

    Eu já tinha tentado, mais não é isso.

    Mais valeu.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 22/11/2016

    [Resolvido]Erro Código VBA não encontrado. Empty Re: [Resolvido]Erro Código VBA não encontrado.

    Mensagem  DamascenoJr. 25/8/2021, 01:00

    Alexandre, algum avanço?

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    abjinfo
    abjinfo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 118
    Registrado : 02/07/2015

    [Resolvido]Erro Código VBA não encontrado. Empty Re: [Resolvido]Erro Código VBA não encontrado.

    Mensagem  abjinfo 25/8/2021, 14:20

    Opá... Damasceno!

    Não, eu não tive progresso, pois estava intermitente. Uma hora carregava outra não.

    Parei de usar o Open.

    Obrigado.

      Data/hora atual: 24/9/2022, 21:43