[Resolvido]Expirar banco de dados por tempo de uso

Dim Código As Integer
Dim Msg, Style, Title
Msg = "Terminou o prazo
para teste! Agradecemos o seu interesse" & Chr(13) & Chr(10)
& "Contacte a xxxxxxx p.f. para registar o xxxxxxxx"
Style = vbInformation
Title = "Teste"
If DCount("Código", "NomeTabela") >= 25 Then
Msg = MsgBox(Msg, Style, Title)
DoCmd.Quit
ElseIf IsNull(Me.Código)Then
Call MsgBox("Tem 25 registos para fazer antes de eu me aborrecer e desligar", vbInformation, "Aviso")
End If

so da erro aqui veira
(Me.Código)

código dis que nao existe

vieira não tem nunhum exeplo por ai?

Amigão

Qual é o nome da chave primária?

(Código)

grande vieria mas eu não sei porque da erro

Só vendo em formato 2000, vamos lá

crie um tabela

Código (campo numero)
data espirar (campo data)

Vamos la Leam.. me coloque a par da sua situação...
Como esta
Quais os códigos
e o que quer....

bom harysonh

era seguiente

queria que aparece a messagem dizendo sistema funcionara por x dias
quando foçe aberto pela 1 vez

e depois( nao parece essa messagem) toda vez que abri o banco de dados

esse:
Dim Código As Integer
Dim Msg, Style, Title
Msg = "Terminou o prazo
para teste! Agradecemos o seu interesse" & Chr(13) & Chr(10)
& "Contacte a xxxxxxx p.f. para registar o xxxxxxxx"
Style = vbInformation
Title = "Teste"
If DCount("Código", "NomeTabela") >= 25 Then
Msg = MsgBox(Msg, Style, Title)
DoCmd.Quit
Else
Call MsgBox("Tem 25 registos para fazer antes de eu me aborrecer e desligar", vbInformation, "Aviso")
End If

fica reprtindo toda vez que entro no bd

Ok .. me dá alguns minutos...

ok aguardo

Leam desculpa, mas estou com problemas no meu pc e possívelmente terei que reinstalar isto. Estás em boas mãos.

Caro Leam...

A seu pedido..

http://maximoaccess.forumeiros.com/t2865-sistema-com-bloqueio-por-numero-de-resgistros-inseridos-limitando-a-utilizacao-mesmo#24165

Saudações

obrigado harysonh

não vai dar para eu ver hoje

to morendno de sono!!!

trabalhei tanto no bd hoje
para amanha terminar!!

Eu uso o limite de adição de seu principal registro, ou seja por exemplo um registro de pedido de venda, eu limito ele adicionar uns 150 registros, ou uma ordem de servilo, permito ele abrir umas 100 ou 150 registros, apos isso, o sistema trava e da a ele uma mensagem dizendo que o programa expirou, claro que esse recurso eu uso apenas para o cliente testar a 1ª vez o programa, depois se ele ficar com o mesmo, ai conclui a venda do programa .

O Claudio Más deu uma dica interessante, veja o linkhttp://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/6277001533/p/2



joserobmoraes@ig.com.br
www.esnips.com/user/josemoraes