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


4 participantes

    Erro em tempo de execução 2501

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    Erro em tempo de execução 2501 Empty Erro em tempo de execução 2501

    Mensagem  Connekta Informatica 29/12/2014, 15:10

    Erro em tempo de execução 2501 - A ação OpenForm foi cancelada.

    DoCmd.OpenForm "frmBoletos", acNormal, , "IdBoleto = '" & nIdBoleto & "'"

    Pesquise aqui no fórum e na internet, alterei de acordo com as pesquisas feitas, mais nada resolveu.

    Alguém pode me ajudar?



    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 228
    Registrado : 10/04/2014

    Erro em tempo de execução 2501 Empty Re: Erro em tempo de execução 2501

    Mensagem  biligo 29/12/2014, 15:27

    Boas amigo,

    Realmente deveria estar funcionando, é um valor texto mesmo o Id? se for apenas números tente assim

    DoCmd.OpenForm "frmBoletos", , , "IdBoleto = " & nIdBoleto
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    Erro em tempo de execução 2501 Empty Re: Erro em tempo de execução 2501

    Mensagem  Connekta Informatica 29/12/2014, 15:34

    Já tentei dessa forma, mais continua o mesmo erro.

    DoCmd.OpenForm "frmBoletos", , , "IdBoleto = " & nIdBoleto


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    Erro em tempo de execução 2501 Empty Re: Erro em tempo de execução 2501

    Mensagem  Noobezinho 29/12/2014, 15:42

    Onde está esse código?

    Num botão?

    idBoleto é número ou texto(string)


    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    Erro em tempo de execução 2501 Empty Re: Erro em tempo de execução 2501

    Mensagem  Silvio 29/12/2014, 16:07

    Poste parte do projeto onde reside o problema.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    Erro em tempo de execução 2501 Empty Re: Erro em tempo de execução 2501

    Mensagem  Connekta Informatica 29/12/2014, 16:30

    O idBoleto vem de uma tabela como Numeração Automática.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    Erro em tempo de execução 2501 Empty Re: Erro em tempo de execução 2501

    Mensagem  Connekta Informatica 29/12/2014, 16:33

    O banco de dados é para emissão de boleto Caixa, que estou tentando adaptar.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    Erro em tempo de execução 2501 Empty Re: Erro em tempo de execução 2501

    Mensagem  Silvio 29/12/2014, 16:46

    Código:
    Dim rsBoleto As dao.Recordset
    Dim nIdBoleto As Long
    Dim nConta As Long
    Dim novoNumero

    If Nz(Me!ListaInquilino, 0) <= 0 Then Exit Sub

    If MsgBox("Confirma abertura de boleto para o inquilino " & vbCrLf & vbCrLf & Me!ListaInquilino.Column(2), vbQuestion + vbYesNo, "Confirmação") = vbNo Then Exit Sub

    Set rsBoleto = CurrentDb.OpenRecordset("tblBoletos")
    nConta = DLookup("idconta", "tblContas", "idsenhorio = " & Me.ListaSenhorio & "")
    novoNumero = Nz(DMax("bol_nossoNumero", "tblBoletos", "idconta = " & nConta), 0)
    rsBoleto.AddNew
        nIdBoleto = rsBoleto!IdBoleto
        rsBoleto!IdInquilino = Me!ListaInquilino
        rsBoleto!IdConta = nConta
        rsBoleto!bol_NossoNumero = IIf(novoNumero = 0, DLookup("NossoNumero", "tblContas", "idSenhorio = " & Me!ListaSenhorio) + 1, novoNumero + 1)
    rsBoleto.Update
    rsBoleto.Close
    Set rsBoleto = Nothing
    DoCmd.OpenForm "frmBoletos", acNormal, , "IdBoleto = " & nIdBoleto & ""

    veja se funfa....


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    Erro em tempo de execução 2501 Empty Re: Erro em tempo de execução 2501

    Mensagem  Connekta Informatica 29/12/2014, 18:14

    Silvio Boa Tarde

    Coloquei o código que você me passou, ai acontece o seguinte:

    Erro em tempo de execução '3075': erro na sintaxe (operador faltando) na expressão de consulta 'idSenhorio = '.

    Coloquei para depurar:

    nConta = DLookup("idconta", "tblContas", "idsenhorio = " & Me.ListaSenhorio & "")

    Coloquei o operador ' :

    nConta = DLookup("idconta", "tblContas", "idsenhorio = '" & Me.ListaSenhorio & "'")

    Em seguida abrir o formulário Controle de Alugueis e cliquei em "Gerar Novo Boleto".

    Erro em tempo de execução '3464': Tipo de dados incompatível na expressão do critério.



    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    Erro em tempo de execução 2501 Empty Re: Erro em tempo de execução 2501

    Mensagem  Silvio 29/12/2014, 18:33

    Ok....

    Me explica, passo a passo como você gera o boleto.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    Erro em tempo de execução 2501 Empty Re: Erro em tempo de execução 2501

    Mensagem  Connekta Informatica 29/12/2014, 22:27

    Bom abro o formulário Alugueis, seleciono a Empresa e cliente clico na Lista de boleto e clico em Emitir Novo Boleto, ai ao clicar no botão acontece os erros.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 228
    Registrado : 10/04/2014

    Erro em tempo de execução 2501 Empty Re: Erro em tempo de execução 2501

    Mensagem  biligo 30/12/2014, 01:11

    Boas amigo,
    Possuo o mesmo modelo aqui no meu bau XD.
    O que posso afirmar é que você errou em algum lugar na adaptação, falta dados nas tabelas, estão com preenchimento incompleto para a geração dos boletos.
    Sei que pode parecer uma ideia meio louca mais você poderia adaptar e testar antes de adicionar todos os dados como por exemplo:
    Se você quer adicionar 2 tabelas "clientes e Empresas" e já existem 2 que não ira utilizar "Inquilinos e Senhorios" que já estão funcionando perfeitamente
    vá adicionando os campos aos poucos e testando quando tudo estiver funcionando troque o nome das tabelas, altere no vba e importe os dados.
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    Erro em tempo de execução 2501 Empty Re: Erro em tempo de execução 2501

    Mensagem  Connekta Informatica 30/12/2014, 01:49

    biligo, vou refazer as adaptações de acordo com as suas dicas. Assim que possivel retorno.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Conteúdo patrocinado


    Erro em tempo de execução 2501 Empty Re: Erro em tempo de execução 2501

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:38