[Resolvido]Tempo para demonstração

Option Compare Database
Option Explicit
Public db As Database
Public rs As Recordset

Public Sub fcheck_dias()
Dim MensagemX As String, titulo As String

Set db = CurrentDb()
Set rs = db.OpenRecordset("Select * From dias")

If rs.RecordCount = 0 Then
rs.AddNew
rs![dia] = 1
rs![DataAtual] = Date
Boa noite amigos. Peguei esse exemplo a qui no fórum. Gostaria de saber como eu altero para mais dias se eu quiser alterar para 15 dias de demonstração por exemplo. Tentei mudar o quatro mas não funcionou. Grato.







rs.Update
Else

If rs![dia] >= 4 Then
MensagemX = "A duração deste DEMO é de 4 dias, o sistema vai encerrar..."
titulo = "Demo"
MsgBox MensagemX, 48, titulo
DoCmd.Quit

ElseIf rs![DataAtual] <> Date Then
rs.Edit
rs![dia] = rs![dia] + 1
rs![DataAtual] = Date
rs.Update

End If
End If
End Sub

Bom dia,

Esse código esta em um módulo correto?

Provavelmente seu formulário faz uma checagem no momento de abertura, deve alterar nele

também a quantidade de dias.

Ele funciona direitinho, mas não consigo mudar a quantidade de dias. Acho que colei mal na postagem anterior.

Option Compare Database
Option Explicit
Public db As Database
Public rs As Recordset

Public Sub fcheck_dias()
Dim MensagemX As String, titulo As String

Set db = CurrentDb()
Set rs = db.OpenRecordset("Select * From dias")

If rs.RecordCount = 0 Then
rs.AddNew
rs![dia] = 1
rs![DataAtual] = Date
rs.Update
Else

If rs![dia] >= 4 Then
MensagemX = "A duração deste DEMO é de 4 dias, o sistema vai encerrar..."
titulo = "Demo"
MsgBox MensagemX, 48, titulo
DoCmd.Quit

ElseIf rs![DataAtual] <> Date Then
rs.Edit
rs![dia] = rs![dia] + 1
rs![DataAtual] = Date
rs.Update

End If
End If
End Sub

Realmente tinha que mudar no formulário também agora funcionou.

Que bom que deu certo

O fórum agradece o retorno!