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]Run Time Error

    BellaDePauli
    BellaDePauli
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 113
    Registrado : 16/05/2011

    [Resolvido]Run Time Error Empty Run Time Error

    Mensagem  BellaDePauli 28/2/2012, 19:51

    Boa Tarde pessoal, tudo bom?

    Tenho uma aplicaçãozinha em que na hora de rodar uma condição While ele da o seguinte erro:

    Run-time error '-2147217887 (80040e21)': File sharing lock count exceeded. Increase MaxLocksPerFile registry entry.

    Alguém poderia me dizer como eu posso incrementar para que o registro entre? Shocked

    Obrigada!


    .................................................................................
    Bella de Pauli
    "A beira de um abismo só existe um jeito de dar um passo a frente, é dando um passo para trás" - Johnnie walker
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Run Time Error Empty Re: [Resolvido]Run Time Error

    Mensagem  criquio 28/2/2012, 20:43

    Poste sempre o código completo quando houver, e a linha para a qual o erro depura para a gente poder analisar melhor, pois existem várias situações que podem gerar o mesmo erro. Isso ajuda no esclarecimento da questão. Grato.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    BellaDePauli
    BellaDePauli
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 113
    Registrado : 16/05/2011

    [Resolvido]Run Time Error Empty Re: [Resolvido]Run Time Error

    Mensagem  BellaDePauli 29/2/2012, 18:54

    Esta é a parte do código que ele informa o erro:

    Dim rs As ADODB.Recordset
    Set rs = CreateObject("Adodb.recordset")
    rs.Open "Select * from tabela", cnn, adOpenKeyset, adLockPessimistic, adCmdTableDirect

    While Not rs.EOF
    rs.Fields("Coluna1") = Mid(rs.Fields("Material"), 1, 1)
    rs.Fields("Coluna2") = Round(rs.Fields("Valor") - rs.Fields("Montante"), 2)
    rs.MoveNext
    Wend

    O erro acontece onde está em vermelho...

    Se puder me ajudar por favor.... Shocked


    .................................................................................
    Bella de Pauli
    "A beira de um abismo só existe um jeito de dar um passo a frente, é dando um passo para trás" - Johnnie walker
    avatar
    Convidad
    Convidado


    [Resolvido]Run Time Error Empty Re: [Resolvido]Run Time Error

    Mensagem  Convidad 29/2/2012, 22:58

    Cibele

    Experimente retirar do código essa linha em vermelho.

    Como a linha:

    While Not rs.EOF

    Diz: Faça enquanto não for o final do recordset.

    Creio que ele executará todas os registros automaticamente.

    Agora, se retirar não "funfar"

    coloque:

    rs.moveFirst
    While Not rs.EOF

    No aguardo.

    Abraços
    BellaDePauli
    BellaDePauli
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 113
    Registrado : 16/05/2011

    [Resolvido]Run Time Error Empty Re: [Resolvido]Run Time Error

    Mensagem  BellaDePauli 16/3/2012, 17:10

    Oi Balem, não consegui resolver com as soluções que você passou... Mas vasculhando na internet achei um post em inglês onde o cara tinha o mesmo problema que o meu.

    O problema é resolvido colocando esta linha no começo do código, que aumenta o tamanho do MaxLocksPerFile com a linha abaixo:

    Application.DBEngine.SetOption dbMaxLocksPerFile, 1000000


    cheers


    .................................................................................
    Bella de Pauli
    "A beira de um abismo só existe um jeito de dar um passo a frente, é dando um passo para trás" - Johnnie walker
    avatar
    Convidad
    Convidado


    [Resolvido]Run Time Error Empty Re: [Resolvido]Run Time Error

    Mensagem  Convidad 16/3/2012, 17:18

    Interessante Bella!

    Valeu pelo retorno e por compartilhar a solução encontrada.

    Boa sorte !!

      Data/hora atual: 28/11/2022, 02:34