MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Tempo para demonstração

    Compartilhe
    avatar
    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Tempo para demonstração

    Mensagem  Rasec em Sex 08 Abr 2016, 02: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
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    Registrado : 13/04/2012

    Re: [Resolvido]Tempo para demonstração

    Mensagem  Fernando Bueno em Sab 09 Abr 2016, 06: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.]
    avatar
    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Tempo para demonstração

    Mensagem  Rasec em Sab 09 Abr 2016, 22: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
    avatar
    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Tempo para demonstração

    Mensagem  Rasec em Sab 09 Abr 2016, 22:45

    Realmente tinha que mudar no formulário também agora funcionou.
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    Registrado : 13/04/2012

    Re: [Resolvido]Tempo para demonstração

    Mensagem  Fernando Bueno em Qui 14 Abr 2016, 19: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: Sab 22 Jul 2017, 09:37