MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    Aviso quando Chegar a Data

    avatar
    Convidado
    Convidado


    Aviso quando Chegar a Data Empty Aviso quando Chegar a Data

    Mensagem  Convidado 17/5/2012, 01:13

    De uma ajuda noo Fórum....

    Código:

    Private Sub Form_Load()   
    Dim Rst As Recordset
            Set Rst = Me.RecordsetClone
            DoCmd.OpenForm "FormAviso", acNormal, , , , acDialog   
    Rst.MoveFirst
            Do While Not Rst.EOF
            If Rst!DataAditamento <= Date Then
            EscreveLog (Rst!DataAditamento & "  Para o funcionario  " & Rst!Funcionario)
          End If
        Rst.MoveNext
    Loop
    End Sub

    'Escreve log's em listBox no Form
    Private Sub EscreveLog(msg As String)
    On Error GoTo TrataErro   
    ' adiciona menssagem
        Forms!FormAviso!lista.RowSource = Forms!FormAviso!lista.RowSource & msg & ";"
        Forms!FormAviso!lista = Forms!FormAviso!lista.ItemData(Forms!FormAviso!lista.ListCount() - 1)
        Exit Sub
    TrataErro:   
    MsgBox Error, , Err
    End Sub

    http://dl.dropbox.com/u/26441349/Aditamento.rar

    Cumprimentos.
    avatar
    Convidad
    Convidado


    Aviso quando Chegar a Data Empty Re: Aviso quando Chegar a Data

    Mensagem  Convidad 17/5/2012, 01:22


    Voltou de tanque cheio, o Piloto!

    Boa contribuição! Basketball


    avatar
    AzorKiller
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 70
    Registrado : 27/09/2013

    Aviso quando Chegar a Data Empty Re: Aviso quando Chegar a Data

    Mensagem  AzorKiller 21/10/2013, 11:31

    Não percebi muito bem a tua base de dados. Será que podes me explicar?
    avatar
    Convidado
    Convidado


    Aviso quando Chegar a Data Empty Re: Aviso quando Chegar a Data

    Mensagem  Convidado 24/1/2014, 04:07

    Boas colega.. abra um tópico para a dúvida e avise-me que vou la.

    Estas mensagens serão removidas

    Cumprimentos.

    Conteúdo patrocinado


    Aviso quando Chegar a Data Empty Re: Aviso quando Chegar a Data

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:42