#107

#107 - VBA Excel e Access - DELETE (Apagar registros do banco) - Aula 6
Nesta sexta aula do Projeto vou explicar a como fazer um DELETE nos dados das tabelas do ACCESS, programando o botão EXCLUIR.
Aproveitando o tema falarei sobre dicas de como apagar registros com segurança.
Conteúdo da aula:
Programar o botão EXCLUIR ALUNO
Como fazer um Delete de um registro
Apagando registros da tabela com critérios
Como escrever a instrução no ambiente SQL do ACCESS
Bons estudos!
Se gostou curta e compartilhe esse vídeo nas redes sociais!
-----------------------------------------------------------------------------------
Mercado Livre (Venda das 101 aulas de VBA em Pendrive)
bit.ly/2kRpoe5
-----------------------------------------------------------------------------------
Vídeo que ensino a baixar minhas planilhas
• Video
Acesso as planilhas:
www.sigaonerd.com (seção APOSTILAS DO NERD)
Facebook: sigaonerdpontocom
Twitter: @aletrovato
Link de confirmação canal do KZbin
/ @alessandrotrovato

[@joaquimcarlosmendonca2336]

Mais uma aula Legal Parabéns Professor Alessandro.....

[@AlessandroTrovato]

Muito obrigado Joaquim!!! Bons estudos.

[@ledahbernardi1070]

Professor, tem alguma aula sua q vc ensine sobre normalização do banco de dados? Tks.

[@AlessandroTrovato]

Olá Ledah! Infelizmente com essa temática não... Tenho apenas aulas de modelagem.

[@ledahbernardi1070]

@@AlessandroTrovatoq pena. Então fica a dica. Com sua didática, será muito mais tranquilo dominar esse pedaço do desenvolvimento. Tks

[@thyagoprado7573]

Alessandro Otimo video! ... So lembre de colocar o Comando Application.screenupdate = true Application.enableevents = true Depois de tratar o erro ... para quando sua planilha for tratar aquele erro ela voltar a ativar de volta esses parâmetros. Continue com otimo trabalho !!

[@AlessandroTrovato]

Olá Thyago! Interessante. Vou rever o código pois posso mesmo ter esquecido de fazer isso. Não me recordo de cabeça! Grato pela sugestão e por acompanhar os trabalhos! Se ainda não é um inscrito(a), convido você a se inscrever em meu canal de vídeos! Espero que os mais de 420 vídeos tutorias que possuo atualmente (só de Excel são mais de 170!) possam lhe ajudar. Bons estudos e sucesso!

[@pierrearaujo8425]

Parabéns... !! Ótima didática, obrigado por passar conhecimento. Mais um escrito !.

[@AlessandroTrovato]

Seja bem vindo ao canal Pierre! Espero que os mais de 420 tutoriais que possuo no KZbin possam te ajudar! Bons estudos e sucesso!

[@johnny10bady]

Alessandro uma sugestão... Tem como fazer uma pesquisa antes de excluir o registro, tipo fazer um filtro por algum campo do cabeçalho desejado para facilitar o usuário que tem ficar procurando o item para fazer a exclusão.

[@AlessandroTrovato]

Olá Johnny! Tem sim! Você pode atribuir uma tecla de atalho a um menu de pesquisa para posicionar o registro na linha. Optei por não trabalhar com formulários nesse projeto para mostrar os recursos que o banco de dados e os eventos da planilha oferecem. Se ainda não é um inscrito(a), convido você a se inscrever em meu canal de vídeos! Espero que os mais de 420 vídeos tutorias que possuo atualmente (só de Excel são mais de 170!) possam lhe ajudar. Bons estudos e sucesso!

[@brennosouza4091]

Boa noite Trovato, se não for pedir demais tem como você dar uma dica de como selecionar vários campos para serem excluídos, tentei usar for each, porém não obtive sucesso. Muito obrigrado pelas aulas!

[@marcusfellipefariaspradode8285]

Olá Alessandro, Reparei q faz a passagem através de uma variável global. Mas tbm poderia ter passado como parâmetro na hora de chamar o procedimento. ListarAlunos (vUltCelSel) Qual prática considera melhor na construção de um sistema? Penso q o uso de variáveis globais podem pesar o sistema, porém mais fácil para depurar, mas não tenho muita certeza.

[@raphaeldearaujopereira3403]

Alexandre, Sou um contador fã do trabalho que você tem efetuado de disseminação dos conhecimentos de automatização com macros, tudo que sei devo a você. Já tive até promoção em trabalho por conta de desenvolvimentos criados baseados em suas webaulas. Contudo, com relação a essa aula fiquei na dúvida apenas com relação a uma adaptação que preciso criar. Sua tabela tinha um código de exclusão no banco baseado na coluna RM que deve ser uma chave primária. Preciso criar uma solução que exclua de um banco que combine todas as colunas, pois não há uma chave primária. Você pode dizer como ficaria a linha: vRM = w.Cells(ActiveCell.Row, 7).Value SQL = "Delete from Tabela1 TB" SQL = SQL & " where TB.RM = " & vRM para uma tabela do banco em que os campos seriam: entCodigo mrfMesAno ramCodigo CMPID vdrValor graCodigo 09909 01/01/2017 98 12403 1.000,00 11 Seria possível criar uma solução que excluísse dados assim através do excel? Desde já obrigado!

[@rhostert]

Boa Noite Alessandro.Como estou trabalhando com uma base pequena, quando exclui o último registro o sistema considerou como não havendo mais registros a serem importados para a planilha e apresentou o erro em tempo de execução 3704, "Operação não permitida quando o objeto está fechado", indo em seguida para o "Exit_Point - cn.Close".O que posso fazer?

[@HeltonWarlley]

Professor, como eu apagaria uma linha inteira se apenas a primeira célula dessa linha for repetida com outra linha de outra planilha/aba?

[@leonardocardoso8736]

Olá Alessandro,estou acompanhando seus tutoriais, mas utilizando o conhecimento adquirido no meu próprio banco e minha planilha, mas utilizando seus padrões. No entando, me deparei com erro ao tentar excluir. Minha tabela no Access tenho apenas uma onde armazeno meus dados chamada de "DADOS", contendo colunas, respectivamente (TIPO DE MATERIAL, CÓDIGO, FORNECEDOR, DESCRIÇÃO) No excel, tenho a linha do cabeçalho é a 3 e primeira linha de listagem de dados é a 6 conforme sua planilha de excel, diferindo apenas isso. No VBA eu não entendi oque é "tb.rvm" (no video está em 7:51min), No código abaixo subistitui por ????. No meu caso conecta com o banco sem problemas, porém acho que não estou escrevendo corretamente na variavel SQL corretamente a busca. vRM - eu subistitui por vCODIGO 'ATUALIZAR O BANCO DE DADOS ________________ Set cn = New ADODB.Connection cn.Open ConexãoDB vCODIGO = W.Cells(ActiveCell.Row, 2).Value SQL = "Delete from DADOS" SQL = SQL & " where ?????? = " & vCODIGO On Error GoTo exit_point cn.Execute SQL cn.Close On Error GoTo 0 Minha dúvida está nessa "tb.rm", pois nos videos anteriores eu não vi você colocar em lugar nenhum na planilha, então creio ter colocado em seu banco de dados. até li o comentário dos demais, porém não obtive esta conclusão.

[@eduardoadonisss]

não precisa fechar o recordset para usar o "DELETE"?

[@AlessandroTrovato]

Não Carlos. Esse é um comando que por si só dá commit na transação e fecha o Recordset

[@eduardoadonisss]

@@AlessandroTrovato Muito Obrigado Mestre!

[@franciscoguerreiro6612]

Boa tarde, agora não percebi eu, porque não se usa assim: SQL = "Delete From tbAlunos TB where tb.rm = " & vRm não resultaria? Mesmo em apostilhas fazem por camadas!!! Cumprimentos

[@AlessandroTrovato]

Olá Francisco! Eu costumo dividir o comando em linhas para facilitar. Há querys em SQL que já vi com algumas dezenas ou centenas de linhas. Se escrevesse tudo em uma linha só não dá para dar suporte. Grato pela mensagem!

[@Pedro-Tom-Prime]

bom dia Alessandro lin = 2 with sheets("cadastro") Do Until .range("A" & lin).value = me.cdb_mq.text then me.cdb_fp.addItem .range("B" & lin).value end if lin = lin+1 loop end with end sub gostaria de usa este código no banco access Será que você pode me ajudar nisso, Minha tabela tem 4 colunas meu formularia tem 3 combombx e 1 textbox se tiver quanto você vai me cobrar? aguardo seu retorno Obrigado.

[@joaopaulorocha4286]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) On Error GoTo ERRO Dim cod As Single cod = TextBox1 TextBox2 = Application.WorksheetFunction.VLookup(cod, Plan2.Range("a:z"), 2, 0) TextBox3 = Application.WorksheetFunction.VLookup(cod, Plan2.Range("a:z"), 3, 0) TextBox4 = Application.WorksheetFunction.VLookup(cod, Plan2.Range("a:z"), 4, 0) TextBox5 = Application.WorksheetFunction.VLookup(cod, Plan2.Range("a:z"), 5, 0) ola alessandro estou com essa situação, so q eu queria quando mim retornasse o valor gostaria de apagar o conteudo da celula foi extraido o resultado. pode mim ajudar

[@AlessandroTrovato]

Olá Diane! Respondi em outro post como fazer para apagar o conteúdo das células. Utilize a propriedade ClearContents. Há várias aulas sobre o tema na playlist Macros e VBA Excel. Se ainda não é um inscrito(a), convido você a se inscrever em meu canal de vídeos! Espero que os mais de 450 vídeos tutorias que possuo atualmente (só de Excel são mais de 190!) possam lhe ajudar. Bons estudos e sucesso!