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

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

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.

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

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.

bom dia
Amigo Jair
bom a todos

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