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

    Aviso quando Chegar a Data

    Compartilhe
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12233
    Registrado : 01/03/2011

    Aviso quando Chegar a Data

    Mensagem  HARYSOHN em Qui 17 Maio 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

    [Você precisa estar registrado e conectado para ver este link.]

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Convidad
    Convidado

    Re: Aviso quando Chegar a Data

    Mensagem  Convidad em Qui 17 Maio 2012, 01:22


    Voltou de tanque cheio, o Piloto!

    Boa contribuição! Basketball



    AzorKiller
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Aviso quando Chegar a Data

    Mensagem  AzorKiller em Seg 21 Out 2013, 11:31

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12233
    Registrado : 01/03/2011

    Re: Aviso quando Chegar a Data

    Mensagem  HARYSOHN em Sex 24 Jan 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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Dom 22 Out 2017, 16:16