[Resolvido]Definir Código de 1 ao 15

Olá pessoal, desculpem a santa ignorância, estou com o código abaixo definido como 1, mais queria que ficasse de 1 a 15

Private Sub Form_Open(Cancel As Integer)
Dim db As Database, t1 As Recordset

Set db = CurrentDb

Set t1 = db.OpenRecordset("DataExpirar", 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!!! Entre em Contato", vbCritical

Application.Quit acPrompt

End If

End If

t1.Close
End Sub

Eu usaria algo um pouco diferente. Primeiro, tem que ver se o campo está nulo. Se estiver, coloca a data do primeiro acesso. Se não estiver, aí avalia se está dentro do prazo:

Código:

Dim t1 As Recordset

Set t1 = CurrentDb.OpenRecordset("DataExpirar", dbOpenDynaset)

If t1.RecordCount < 1 Then
    t1.AddNew
    t1![Código] = 1
    t1![DataExp] = Date + 15 'Esta linha soma a data atual mais 15 dias
    t1.Update
Else
    If Date < t1!DataExp Then
        MsgBox "O prazo de utilização deste aplicativo se esgotou!!! Entre em Contato", vbCritical
        Application.Quit acPrompt
    End If

End If

t1.Close
Set t1 = Nothing

obrigado Criquio, desse jeito ficou melhor do que eu esperava...

resolvido...obrigado Criquio e a todo o forum

olá criquio, desculpa, tinha testado e tudo tranquilo, mais agora ele está fechando o form direto, ele salva com a data mais os 15dias e tudo certo, só q ele não abre mais o form "frmPrincipal" após isso, mesmo tendo 15 ou mais dias para ele poder executar, ele fecha, dá a frase q o prazo de utilização acabou e fecha...

O primeiro código tb está bom, ele na data expecificada fecha o banco de dados, ele só não adiciona no caso não haja a data, tem q fazer manual e perde muito tempo assim...

Verifique a comparação entre a data inicial e a atual. Raciocine com o foco nessas duas datas que encontrarás aonde mudar.

Agora sim Criquio, tudo tranquilo, fiz só alterar "<" para ">"....mais bati uma cabeça danada, já q sou leigo ainda em vba...

Ótimo. Isso é bom para você já ir percebendo que programação é assim mesmo. Nada melhor do que aprender o que não fazer para poder aprender o que fazer, até porque o não fazer de uma situação pode ser o fazer de outra