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

    [Resolvido]Deletando dados internos

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    [Resolvido]Deletando dados internos Empty [Resolvido]Deletando dados internos

    Mensagem  crysostomo 21/12/2022, 19:12

    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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    [Resolvido]Deletando dados internos Empty Re: [Resolvido]Deletando dados internos

    Mensagem  crysostomo 21/12/2022, 19:59

    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.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    [Resolvido]Deletando dados internos Empty Re: [Resolvido]Deletando dados internos

    Mensagem  crysostomo 22/12/2022, 17:05

    UP


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Deletando dados internos Empty Re: [Resolvido]Deletando dados internos

    Mensagem  Silvio 22/12/2022, 17:24

    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 !!


    .................................................................................
    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."
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    [Resolvido]Deletando dados internos Empty Re: [Resolvido]Deletando dados internos

    Mensagem  crysostomo 22/12/2022, 17:30

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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Deletando dados internos Empty Re: [Resolvido]Deletando dados internos

    Mensagem  Silvio 22/12/2022, 17:44

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


    .................................................................................
    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."
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    [Resolvido]Deletando dados internos Empty Re: [Resolvido]Deletando dados internos

    Mensagem  crysostomo 22/12/2022, 18:07

    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.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Deletando dados internos Empty Re: [Resolvido]Deletando dados internos

    Mensagem  Silvio 23/12/2022, 12:15

    Putssssssssss.....ferrou !!!



    .................................................................................
    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."
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    [Resolvido]Deletando dados internos Empty Re: [Resolvido]Deletando dados internos

    Mensagem  crysostomo 23/12/2022, 12:28

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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    [Resolvido]Deletando dados internos Empty Re: [Resolvido]Deletando dados internos

    Mensagem  crysostomo 23/12/2022, 12:29

    Up


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    [Resolvido]Deletando dados internos Empty Re: [Resolvido]Deletando dados internos

    Mensagem  crysostomo 24/12/2022, 13:32

    Up


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1010
    Registrado : 23/08/2010

    [Resolvido]Deletando dados internos Empty Re: [Resolvido]Deletando dados internos

    Mensagem  Mylton 24/12/2022, 19:52

    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/
    Anexos
    [Resolvido]Deletando dados internos AttachmentChainingForms.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 15 vez(es)
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1010
    Registrado : 23/08/2010

    [Resolvido]Deletando dados internos Empty Re: [Resolvido]Deletando dados internos

    Mensagem  Mylton 24/12/2022, 20:18

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    [Resolvido]Deletando dados internos Empty Re: [Resolvido]Deletando dados internos

    Mensagem  crysostomo 24/12/2022, 21:32

    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.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3213
    Registrado : 13/12/2016

    [Resolvido]Deletando dados internos Empty Re: [Resolvido]Deletando dados internos

    Mensagem  Alexandre Fim 26/12/2022, 13:37

    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:

    [Resolvido]Deletando dados internos Senha_10

    [Resolvido]Deletando dados internos Senha_11

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Deletando dados internos Setinf11
    Sistemas e Tecnologia Ltda
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    [Resolvido]Deletando dados internos Empty Re: [Resolvido]Deletando dados internos

    Mensagem  crysostomo 26/12/2022, 14:06

    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.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    [Resolvido]Deletando dados internos Empty Re: [Resolvido]Deletando dados internos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/4/2024, 00:32