[Resolvido]Deletando dados internos

Amigos muito boa tarde. O objetivo aqui é deletar tabelas e formúlarios.

Estou tentando deletar minhas tabelas e formularios quando um sistema estiver fora da prazo determinado.
Já testei o códigos criando outros bd, eles funciona, mas nesse projeto ele não funciona ja apaguei e criei linhas , mas continua o mesmo, não funciona.
Não sei onde posso está errando.
os codigos de vermelho não faz nada no projeto

Dim placaDeRede, caninhododll
On Error GoTo Trato
Call AccessTransparente(0)

   Me.txtNplaca = MAC_ADDRESS
   'Me.Caption = "Serviço Social - Setor Judicial - " & Format(Now, "hh:nn:ss")
   placaDeRede = DLookup("placa", "tbl_Checks")

If Me.txtNplaca = placaDeRede Or Len(Dir("C:\Program Files\Common Files\confi.dll")) > 0 Then
Else
   MsgBox "*** A licença do sistema não é registrado nesse computador ***", vbCritical, "Grupo Pacheco - Licença"
   Me.bt_cad_usuário.Enabled = False
   Me.bt_localizar_paciente.Enabled = False
   Me.bt_cad_usuario.Enabled = False
   Me.bt_abre_cad_procedimento.Enabled = False
   Me.Comando29.Enabled = False
   Me.BT_EXAMES_SUS.Enabled = False
   Me.bt_LevantamentoEmExcel.Enabled = False
   Me.bt_protocolo.Enabled = False
   Me.Comando28.Enabled = False
   Me.Comando45.Enabled = False
   Me.bt_pastas_organizadas.Enabled = False
   Kill ("C:\Users\gilli\Downloads\Assistência Social Itaperuna_be.accdb")
   Kill ("C:\Users\gilli\Downloads\Documentos Arquivados  BASE.xlsm")
   Kill ("C:\Users\gilli\Downloads\EXAMES FEITO PELO SUS (ATUALIZADO-2022).xlsm")
   DoCmd.DeleteObject acForm, "001"
   DoCmd.DeleteObject acForm, "formAtualizarProcedimentos"
   DoCmd.DeleteObject acForm, "from_area_do_paciente"
   DoCmd.DeleteObject acForm, "from_cad_procedimentos"
   DoCmd.DeleteObject acForm, "from_cad_rotina"
   DoCmd.DeleteObject acForm, "from_cadastro_de_usuario"
   DoCmd.DeleteObject acForm, "from_filtro"
   DoCmd.DeleteObject acForm, "from_lista_De_atualizacao"
   DoCmd.DeleteObject acForm, "from_lista_de_busca"
   DoCmd.DeleteObject acForm, "from_Relatorios"
   DoCmd.DeleteObject acForm, "tbl_cad_rotinas subformulário"
   DoCmd.DeleteObject acTable, "tbl_Checks"
   DoCmd.DeleteObject acTable, "from_mainCopia"

Trato:
End If

Criei outros bds .
Esse codigos não estão funcionando se o projeto estiver com senha na estrutura no VBA, só funciona se estiver sem, ou o Access começou zuar, uma hora para depois executa[...].
É impossível isso, mas ja fiz monte de teste e só funciona quando eu tiro a senha.

UP

E se você bloquear a tecla Shift ?
Vai ser impossível alguém acessar as rotinas !
Mesmo usando qualquer programa para a quebra de senha do VBA.

Pense nisso !!

Já é tudo bloqueado. Mas mesmo bloqueando, a estrutura vba ten que ter senha

Acredito e penso que não. Já que o bloqueio da Shift, impede qualquer tipo de acesso ao modo Design !

Não Silvo.
Quem tem um pouco de conhecemento do Access sabe ou tem sistema como desbloquear a techa, da um google de desbloquear o shift vai aparecer um programinha que tira. Aqui no site tem um monte.

Putssssssssss.....ferrou !!!

O mas fica tranquilo o Alveline tem um sistema que fecha o Acces, só que eu até agora não pude comprar

Up

Up

Não entendi direito quem tem o software.
Mas será que conseguiria adaptar?

access-programmers.co.uk/forums/threads/closing-an-open-form-when-a-user-select-a-new-one.323809/

Porque vc não associa essa sua proteção criptografando os dados?
Assim…
Ele não vai conseguir ler nada.

Eu não quero fechar e abrir o outro, eu quero deletar.


Tem que ter senha se não o sistema fica aberto prar quem tem conhecimento.

Crysostomo,

Se você quuer um sistema totalmente encapsulado e protegido de qualquer invasão, sugiro que você busque outras linguagens de programação para desktop, como Visual Studio (VB.Net ou C#), Delphi, Java e etc, e ai você vai desenvolver ferramentas mais "profissionais".

Quanto à sua dúvida, minha sugestão é você colocar senha no VBA. Segue:





Por mais que o "invasor" consiga acessar a estrutura do sistema, ele não irá acessar o código, onde se encontra a "regra de negocio".

Existem rotinas que também bloqueiam praticamente "tudo" do Access. Reveja !!

É isso

Att,

Alexandre Fim

Bom dia.
Então Alexandre, a esse bloqueio eu faço, mas usando ele é bloqueado a função DoCmd.DeleteObject não funciona.,mas já criei outra ideia para isso.