MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Tempo para demonstração

    Compartilhe

    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 18/12/2015

    [Resolvido]Tempo para demonstração

    Mensagem  Rasec em Qui 07 Abr 2016, 22:56

    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

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 12/04/2012

    Re: [Resolvido]Tempo para demonstração

    Mensagem  Fernando Bueno em Sab 09 Abr 2016, 02:48

    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.



    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 18/12/2015

    Re: [Resolvido]Tempo para demonstração

    Mensagem  Rasec em Sab 09 Abr 2016, 18:33

    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

    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 18/12/2015

    Re: [Resolvido]Tempo para demonstração

    Mensagem  Rasec em Sab 09 Abr 2016, 18:45

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

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 12/04/2012

    Re: [Resolvido]Tempo para demonstração

    Mensagem  Fernando Bueno em Qui 14 Abr 2016, 15:15

    Que bom que deu certo Smile

    O fórum agradece o retorno!


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Seg 05 Dez 2016, 01:21