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

2 participantes

    [Resolvido]tempo de limitado para uso do banco de dados

    Helder Milhome
    Helder Milhome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 03/07/2011

    [Resolvido]tempo de limitado para uso do banco de dados Empty [Resolvido]tempo de limitado para uso do banco de dados

    Mensagem  Helder Milhome 13/12/2016, 23:29

    Boa noite a todos

    quero colocar no banco de dados um tempo de uso do sistema
    minhas tabela são todas vinculadas
    é nessas tabelas que gostaria de colocar o limite
    tenho
    sysGerencial
    e nele as tabelas são vinculads
    banco de dados
    dbclientes
    dbvendas
    como faço pra colocoar o limite nesse dbclientes
    pra quando ele abrir fazer uma leitura no proprio banco
    como uma macro ou coisa parecida

    quando abrir o SysGerencial ele vai buscar a tabela cliente e outras mais
    feito deste modo no sysgerencial:

    'Inicia o processo de vinculação

    DoCmd.TransferDatabase acLink, "Microsoft Access", strCaminho, acTable, "Clientes", "Clientes", False
    DoCmd.TransferDatabase acLink, "Microsoft Access", strCaminho, acTable, "Vendas", "Vendas", False
    DoCmd.TransferDatabase acLink, "Microsoft Access", strCaminho, acTable, "Parcelamento", "Parcelamento", False
    DoCmd.TransferDatabase acLink, "Microsoft Access", strCaminho, acTable, "Objetos", "Objetos", False
    DoCmd.TransferDatabase acLink, "Microsoft Access", strCaminho, acTable, "Informações", "Informações", False
    DoCmd.TransferDatabase acLink, "Microsoft Access", strCaminho, acTable, "Recibo", "Recibo", False
    DoCmd.TransferDatabase acLink, "Microsoft Access", strCaminho, acTable, "Autentic", "Autentic", False

    eu tenho esse codigo funcionando no sysgerencial
    mais quero fazer algo parecido do db assim que ele abrir

    Private Sub Comando421_Click()
    On Error GoTo Err_Comando421_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    Dim DB As Database, T1 As Recordset
    Set DB = CurrentDb
    Set T1 = DB.OpenRecordset("Data", dbOpenDynaset)
    If T1.BOF = True Then
    T1.AddNew
    T1![Código] = 1
    T1![DataExp] = Date + 30 'Esta linha soma a data atual mais 30 dias
    T1.Update
    Else
    If T1![DataExp] < Date Then
    Beep
    MsgBox "O prazo de utilização deste aplicativo se esgotou!", vbCritical
    Application.Quit

    End If
    End If
    T1.Close

    desde já agradeço
    Helder Milhome



    Jair Martins
    Jair Martins
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 23/03/2016

    [Resolvido]tempo de limitado para uso do banco de dados Empty Re: [Resolvido]tempo de limitado para uso do banco de dados

    Mensagem  Jair Martins 15/12/2016, 13:39

    Bom dia, Helder.

    Para ajudar você de uma forma bem objetiva, seria necessário saber onde exatamente está dando erro.
    Analisando o código que você postou, percebi que esta linha

    T1![DataExp] = Date + 30 'Esta linha soma a data atual mais 30 dias

    pode, já de cara, estar errada. Se ao campo usado para comparação com a data corrente é a data corrente mais 30 dias, o valor será sempre posterior à data corrente.

    Creio que a solução é atribuir valor ao campo num evento diferente do evento que vai bloquear o aplicativo.
    Não se sei fui claro. Em todo caso, você pode postar um exemplo do seu BD com estes códigos para que possamos avaliar?

    Abs.

    Helder Milhome
    Helder Milhome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 03/07/2011

    [Resolvido]tempo de limitado para uso do banco de dados Empty Re: [Resolvido]tempo de limitado para uso do banco de dados

    Mensagem  Helder Milhome 15/12/2016, 14:27

    Bom dia
    Jair

    O que realmente eu quero é colocar dentro do DB pois minha tabela são vinculadas
    era pra quando fosse viculado o proprio DB verificasse a validade de data
    como fosse uma macro autoexec.
    Te agradeço pela orientação

    Helder

    Jair Martins
    Jair Martins
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 23/03/2016

    [Resolvido]tempo de limitado para uso do banco de dados Empty Re: [Resolvido]tempo de limitado para uso do banco de dados

    Mensagem  Jair Martins 16/12/2016, 13:18

    Bom dia, Helder.

    Por que não colocar o código num form que abriria automaticamente quando o BD for iniciado?
    É o que eu sempre faço quando quero atribuir um prazo de utilização e tem funcionado bem.

    Abs.
    Helder Milhome
    Helder Milhome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 03/07/2011

    [Resolvido]tempo de limitado para uso do banco de dados Empty Re: [Resolvido]tempo de limitado para uso do banco de dados

    Mensagem  Helder Milhome 18/12/2016, 13:08

    bom dia
    Amigo Jair
    bom a todos

    Fiz assim pra uma solução mais rapida
    é o realmente funciona
    Te agradeço
    Helder

      Data/hora atual: 3/12/2022, 01:58