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


5 participantes

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    avatar
    teremiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro Dom 05 Jan 2020, 08:49

    Prezados,

    Estou desenvolvendo uma funcionalidade para 'Estornar Venda' em um BD de controle de estoque e vendas de uma Livraria. Essa funcionalidade é acionada por um botão "EstornarVenda' no formulário 'Vendas', que possui um subformulário 'DetalheVenda'. O trecho de código VBA abaixo mostra o estorno sendo realizado (deleta todos os registros da Tabela 'DetalheVenda' para o código de Venda na tela e, após, deleta o próprio registro daquela Venda:

    If Resposta = vbOK Then
    'Exclui os registros de detalhe desta Venda sendo estornada
    strSQL = "DELETE FROM DetalheVenda WHERE CodVenda = " & Me.CodVenda
    CurrentDb.Execute strSQL, dbFailOnError

    'Exclui o registro desta Venda
    strSQL = "DELETE FROM Vendas WHERE CodVenda = " & Me.CodVenda
    CurrentDb.Execute strSQL, dbFailOnError
    Me.Requery
    End If

    A lógica está funcionando, pois todos os registros daquela venda foram excluídos. O problema está no comando 'Me.Requery', que está produzindo o erro de execução '3167 - Registro excluído'. Na tela os campos aparecem preenchidos com '#excluído'. Gostaria de saber como fazer para atualizar a tela, mostrando o registro de uma outra venda cadastrada (p/ex. a primeira ou a última).

    Obrigado.

    avatar
    teremiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro Dom 05 Jan 2020, 13:35

    Devo acrescentar que observei que esta mensagem de erro só ocorre quando se aciona o botão 'EstornarVenda' logo após uma nova venda ter sido gravada (o registro da nova venda ainda está na tela do formulário Vendas e seu subformulário 'DetalheVenda'. Se eu fecho o formulário e reabro, selecionando o registro dessa Venda e clicando em 'EstornarVenda', o programa funciona normalmente, deletando os registros desta Venda nas Tabelas 'Vendas' e 'DetalheVenda' e executando o comando 'Me.Requery' com sucesso (após o 'Requery', a tela apresenta o primeiro registro da Tabela 'Vendas').
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Silvio Seg 06 Jan 2020, 08:14

    Boas.....


    Tente isso.

    If Resposta = vbOK Then
    'Exclui os registros de detalhe desta Venda sendo estornada
    strSQL = "DELETE FROM DetalheVenda WHERE CodVenda = " & Me.CodVenda
    CurrentDb.Execute strSQL, dbFailOnError

    'Exclui o registro desta Venda
    strSQL = "DELETE FROM Vendas WHERE CodVenda = " & Me.CodVenda
    CurrentDb.Execute strSQL, dbFailOnError
    End If

    DoCmd.GoToRecord , , acLast ' vai para o último registro da tua tabela. Retirado o comando me.requery da linha de código.









    .................................................................................
    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."
    avatar
    teremiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro Seg 06 Jan 2020, 12:26

    Prezado Silvio,

    Coloquei o comando que você sugeriu e retirei o 'Me.Requery', mas ainda não consegui que funcionasse. Não aparece mais a mensagem de 'Erro 3167 - Registro excluído' porém:

    1. Na tela do formulário 'Vendas' continua aparecendo o registro da Venda recém-estornada, mesmo com o comando 'DoCmd.GoToRecord , , acLast');
    2. Quando eu tento fechar o formulário 'Vendas' surge uma mensagem do Access 'Registro excluído';(os registros foram efetivamente deletados);
    3. Quando eu dou OK nessa mensagem do Access surge outra mensagem 'Não é possível salvar este registro agora. .........'. Tenho que responder OK para efetivamente fechar o formulário 'Vendas'.

    Assim, de algum modo, não estamos conseguindo posicionar o formulário 'Vendas' em um registro válido após o estorno. Abraços.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Marcelo David Seg 06 Jan 2020, 14:44

    Boa tarde amigos,
    ao invés do requery após excluir, use refresh.

    Me.Refresh


    .................................................................................
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Marcel11
    avatar
    teremiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro Seg 06 Jan 2020, 18:13

    Prezado Marcelo David,

    Colocando o comando 'Me.Refresh', em vez de 'Me. Requery' continua a mensagem de erro '3167 - Registro excluído'.

    Abraços.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 12/04/2012

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Fernando Bueno Seg 06 Jan 2020, 18:36

    Boa tarde;

    Tenta compactar e reparar seu banco.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução 16rzeq
    avatar
    teremiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro Seg 06 Jan 2020, 19:42

    Prezado Fernando Bueno,

    Tenho feito isso regularmente. Mas fiz a compactação e reparação do BD uma vez mais, sem eliminar o erro 3167.

    Abraços
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Marcelo David Seg 06 Jan 2020, 23:13

    Poderia postar o banco para verificarmos?


    .................................................................................
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Marcel11
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Silvio Ter 07 Jan 2020, 06:44

    Boas.....

    Coloque um tratamento de erro.

    Algo parecido com isso.
    on error goto fim

    If Resposta = vbOK Then
    'Exclui os registros de detalhe desta Venda sendo estornada
    strSQL = "DELETE FROM DetalheVenda WHERE CodVenda = " & Me.CodVenda
    CurrentDb.Execute strSQL, dbFailOnError

    'Exclui o registro desta Venda
    strSQL = "DELETE FROM Vendas WHERE CodVenda = " & Me.CodVenda
    CurrentDb.Execute strSQL, dbFailOnError
    End If

    fim:
    if err.number= 3167 then
    DoCmd.GoToRecord , , acLast
    end if


    .................................................................................
    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."
    avatar
    teremiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro Ter 07 Jan 2020, 09:17

    Prezado Silvio,

    A inclusão de um tratamento de erro, como sugerido, evita a interrupção do código VBA no comando 'Me.Requery' (ou Refresh), mas na tela continua visível o registro excluído. Não aponta automaticamente para o último registro válido.
    Achei uma solução de compromisso que é um MsgBox informando que a Venda foi estornada com sucesso, seguido de um comando para fechar o formulário 'Vendas', conforme abaixo:

    If Resposta = vbOK Then

    strSQL = "DELETE FROM DetalheVenda WHERE CodVenda = " & Me.CodVenda
    CurrentDb.Execute strSQL, dbFailOnError

    'Exlui o registro desta Venda
    strSQL = "DELETE FROM Vendas WHERE CodVenda = " & Me.CodVenda
    CurrentDb.Execute strSQL, dbFailOnError
    MsgBox ("Venda estornada com sucesso.")
    'DoCmd.Close

    End If

    Funciona bem. Como estornar uma Venda é uma operação não usual, basta o usuário reabrir o formulário 'Vendas' via botão do Painel de Navegação que fica sempre aberto ao iniciar o BD Access.

    Abraços e obrigado pelo interesse.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Assis Ter 07 Jan 2020, 09:32

    Boa tarde

    A tabela "Vendas" deve estar relacionada com a tabela "DetalheVenda" pelo campo "Codvenda".
    Se isso estiver a acontecer então basta executar o comando "DELETE" só na tabela "Vendas" que a relação automaticamente tem de anular na tabela "DetalheVenda".


    'Se CodVenda for numerico
    CurrentDb.Execute "DELETE * From Vendas Where [Codvenda]= " & Me.CodVenda

    Poste:
    Só estas duas tabelas e o formulário aonde tem o comando "Anular"




    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Silvio Ter 07 Jan 2020, 10:20

    Boas...

    Verdade mesmo, se houver um relacionamento um para muitos entre as tabelas e haver a propagação automática de exclusão, Assis está coberto de razão.


    .................................................................................
    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."
    avatar
    teremiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro Qua 08 Jan 2020, 03:00

    Prezados Assis, Silvio, Marcelo David e demais colegas do Forum MA,

    Realmente, a colocação do Assis permitiu simplificar o código da funcionalidade 'EstornarVendas' ao editar a relação entre as Tabelas 'Vendas' e 'DetalheVendas', inserindo a condição 'propagar exclusão dos registros relacionados'. Mas como o problema está na atualização do formulário 'Vendas' após o estorno ser feito com sucesso, decidi enviar o BD para avaliação de vocês (arquivo zipado anexo).

    No painel de navegação que abrirá automaticamente, cliquem no botão 'Nova Venda' ou 'Todas as Vendas' e, no formulário 'Vendas' que abrir, insiram alguns dados de uma nova Venda e, em seguida (sem clicar no botão 'ConcluirVenda'), cliquem no botão 'EstornarVenda'. O código VBA irá pedir confirmação e, após o OK, surgirá a mensagem 'Venda estornada com sucesso'. Eu retornei o código original, com o comando 'Me.Requery', que originou o erro '3167 - registro excluído' objeto desse Tópico que abri. Peço que avaliem o que pode estar acontecendo e se existe alguma solução para o erro que não exija o fechamento do formulário 'Vendas'.

    Peço que desconsiderem as evidencias de ser um projeto de BD Access de desenvolvedor amador, sem habilidades maiores com o VBA. É um projeto meu para doação a uma instituição de caridade de cunho espiritual, que possui livraria sem qualquer controle de estoque e vendas.

    De antemão, obrigado a todos pelo empenho em ajudar meu projeto.
    Anexos
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução AttachmentLivrariaNossoLar.zip
    BD do projeto, para avaliação do erro objeto deste Tópico
    Você não tem permissão para fazer download dos arquivos anexados.
    (183 Kb) Baixado 7 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Assis Qua 08 Jan 2020, 19:12

    Boa noite

    Teste e retorne


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    teremiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro Qui 09 Jan 2020, 09:18

    Prezado Assis,

    Para a funcionalidade 'Nova Venda' (preencher o formulário de uma nova venda e imediatamente clicar no botão 'EstornarVenda') eu continuo a obter a mensagem '3167 - Registro excluído'. Se eu fechar o formulário recém-preenchido com uma venda e abrir de novo, selecionando aquela venda, e clicar 'EstornarVenda' o erro não ocorre.

    Observei que a única modificação feita por você foi migrar o comando 'Me.Requery' para o final da Sub 'EstornarVenda'.

    Abraços.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Assis Qui 09 Jan 2020, 09:29

    Qual a versão do seu Office ?

    No meu Office 2013 32 não acontece aquilo que citou.


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    teremiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro Qui 09 Jan 2020, 11:15

    Office Professional Plus 2016

    Abraços.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Marcelo David Qui 09 Jan 2020, 15:04

    Boa tarde,


    Abaixo dessa linha:
    Código:
    Dim strSQL As String
    ponha:
    Código:
    On Error Resume Next

    Apague o requey e e ponha isso:

    Código:
    SendKeys "{ESC}"
    NovaVenda_Click
    SendKeys "{F5}"
    DoEvents
    MsgBox ("Venda estornada com sucesso.")

    A MsgBox tem que está exatamente como pus.



    .................................................................................
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Marcel11
    avatar
    teremiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro Qui 09 Jan 2020, 19:15

    Caro Marcelo David,

    A solução apresentada funcionou, eliminando o erro 3167. Gostaria de entender o que os comandos colocados realizam, antes de colocar o Tópico como 'Resolvido'.

    Observei, porém, que após a mensagem "Venda Estornada com sucesso", o Access limpa o formulário 'Vendas' e o subformulário 'DetalheVenda', preparando para uma nova Venda. Nesse formulário limpo, porém, a primeira ComboBox preenchível (Tarefeiro) está vazia, ou seja não apresenta a seleção de dados da Tabela 'Tarefeiros' para escolha. Como é campo obrigatório gera um impasse no preenchimento da 'Nova Venda'.

    Abraços, e obrigado pelo interesse
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Marcelo David Sex 10 Jan 2020, 07:33

    Bom dia,
    Para a combo se manter com os itens para seleção, após essa linha:
    Código:
    DoEvents
    ponha essa:
    Código:
    Me.CodColab.Requery

    Segue o que as linha fazem:
    On Error Resume Next
    Como sugere o que está escrito, ao ocorrer algum erro, siga (pelo menos tenta) para a próxima linha sem interromper o procedimento

    SendKeys "{ESC}"
    Envio a tecla ESC do teclado. Como se fosse você clicando nela, isso desfaz a última ação ocorrida no registro
    NovaVenda_Click
    Executo o método do botão Nova Venda, para assim deixar o formulário preparado para tal
    SendKeys "{F5}"
    Envio a tecla F5 do teclado. Como se fosse você clicando nela, isso atualiza imediatamente o que estiver no formulário, retirando assim o texto #Excluído dos campos
    DoEvents
    Faz com que o sistema operacional execute outras tarefas na execução do código, no nosso caso, ele exibe a MsgBox e o Requery da Combo mesmo após ocorrer algum erro que não interrompa o fluxo do programa, pois estamos usando o On Error Resume Next.
    Me.CodColab.Requery
    Recarrega a combo buscando novamente os registros da SQL




    .................................................................................
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Marcel11
    avatar
    teremiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro Sex 10 Jan 2020, 11:31

    Prezado Marcelo David,

    Finalmente posso considerar esse Tópico como resolvido.

    Obrigado pelo empenho na solução e pelas explicações sobre a mesma.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Marcelo David Sex 10 Jan 2020, 12:34

    Ótimo que ficou a contento. O fórum agradece o retorno!


    .................................................................................
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Marcel11

    Conteúdo patrocinado


    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 07 Nov 2024, 20:43