Erro em tempo de execução 2501

Connekta Informatica 29/12/2014, 12:10

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº1

Erro em tempo de execução 2501

Mensagem Connekta Informatica 29/12/2014, 12: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 29/12/2014, 12:27

biligo

biligo: Avançado; Respeito às regras :

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

Mensagem nº2

Re: Erro em tempo de execução 2501

Mensagem biligo 29/12/2014, 12: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 29/12/2014, 12:34

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº3

Re: Erro em tempo de execução 2501

Mensagem Connekta Informatica 29/12/2014, 12: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** 29/12/2014, 12:42

Noobezinho

Noobezinho: Moderador; Respeito às regras :

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

Mensagem nº4

Re: Erro em tempo de execução 2501

Mensagem Noobezinho 29/12/2014, 12: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** 29/12/2014, 13:07

Silvio

Silvio: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 5074
Registrado : 20/04/2011

Mensagem nº5

Re: Erro em tempo de execução 2501

Mensagem Silvio 29/12/2014, 13: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 29/12/2014, 13:30

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº6

Re: Erro em tempo de execução 2501

Mensagem Connekta Informatica 29/12/2014, 13: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 29/12/2014, 13:33

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº7

Re: Erro em tempo de execução 2501

Mensagem Connekta Informatica 29/12/2014, 13: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** 29/12/2014, 13:46

Silvio

Silvio: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 5074
Registrado : 20/04/2011

Mensagem nº8

Re: Erro em tempo de execução 2501

Mensagem Silvio 29/12/2014, 13: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 29/12/2014, 15:14

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº9

Re: Erro em tempo de execução 2501

Mensagem Connekta Informatica 29/12/2014, 15: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** 29/12/2014, 15:33

Silvio

Silvio: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 5074
Registrado : 20/04/2011

Mensagem nº10

Re: Erro em tempo de execução 2501

Mensagem Silvio 29/12/2014, 15: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 29/12/2014, 19:27

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº11

Re: Erro em tempo de execução 2501

Mensagem Connekta Informatica 29/12/2014, 19: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 29/12/2014, 22:11

biligo

biligo: Avançado; Respeito às regras :

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

Mensagem nº12

Re: Erro em tempo de execução 2501

Mensagem biligo 29/12/2014, 22: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 29/12/2014, 22:49

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº13

Re: Erro em tempo de execução 2501

Mensagem Connekta Informatica 29/12/2014, 22: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

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº14

Re: Erro em tempo de execução 2501

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

Erro em tempo de execução 2501

Erro em tempo de execução 2501

Re: Erro em tempo de execução 2501

Re: Erro em tempo de execução 2501

Re: Erro em tempo de execução 2501

Re: Erro em tempo de execução 2501

Re: Erro em tempo de execução 2501

Re: Erro em tempo de execução 2501

Re: Erro em tempo de execução 2501

Re: Erro em tempo de execução 2501

Re: Erro em tempo de execução 2501

Re: Erro em tempo de execução 2501

Re: Erro em tempo de execução 2501

Re: Erro em tempo de execução 2501

Re: Erro em tempo de execução 2501

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada