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]Ajuda com Código

    Compartilhe
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 18/07/2012

    [Resolvido]Ajuda com Código

    Mensagem  toyebom em Seg 21 Jul 2014, 16:38

    Formulário com caixa de listagem
    Ao abrir o formulário, verifica na caixa de listagem se existe data de hoje ou anterior e dá o aviso, só que desta forma não funciona:
     
    Código:
    Private Sub Form_Open(Cancel As Integer)
    If Me.Lista86!Column05 < Date + 1 & Me.Verificação466 = False Then
    MsgBox "Existe agenda marcada para amanhã.", , "Atenção"
    Else
    MsgBox "Não existe agendamento para amanhã.", , "Atenção"
    End If
    End Sub
     
    Gostava ainda que as datas do aviso ficassem de cor vermelha e as outras preta


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2293
    Registrado : 21/04/2011

    Re: [Resolvido]Ajuda com Código

    Mensagem  Marcelo David em Seg 21 Jul 2014, 17:28

    Você tem que fazer um loop na caixa de listagem. Veja o exemplo:


    Dim i as integer

    For i =  0 to Me!LisBox.ListCount
       If format(Me!ListBox.Column(1,i), "mm/dd/yyyy") <= Format(Date, "mm/dd/yyyy") Then
          ...Faça isso
       Else
          ...Faça aquilo
       End If
    Next

    Em que:
    ListBox deve ser o nome da sua caixa de listagem
    1 é a coluna onde está a data na listbox


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 18/07/2012

    Ajuda com Código

    Mensagem  toyebom em Seg 21 Jul 2014, 18:32

    Coloquei assim

    Código:
    Private Sub Form_Open(Cancel As Integer)
    Dim i As Integer

    For i = 0 To Me!Lista86.ListCount
      If Format(Me!Lista86.Column(5, i), "mm/dd/yyyy") <= Format(Date, "mm/dd/yyyy") Then
          MsgBox "Existe registos para despacho.", , "Atenção"
      Else
      End If
    Next
    End Sub

    o resultado é que me avisa sempre que haja algum registo nem que seja para daqui a um mês e queria que o aviso aparecessese a data fosse hoje ou data anterior a hoje.Se só tiver datas futuras não avise.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2293
    Registrado : 21/04/2011

    Re: [Resolvido]Ajuda com Código

    Mensagem  Marcelo David em Seg 21 Jul 2014, 18:57

    Tente assim:

    Código:
    Private Sub Form_Open(Cancel As Integer)
    Dim i As Integer

    For i = 0 To Me!Lista86.ListCount
      If Format(Date, "mm/dd/yyyy") <= Format(Me!Lista86.Column(5, i), "mm/dd/yyyy")  Then
            MsgBox "Existe registos para despacho.", , "Atenção"
      End If
    Next

    End Sub


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 18/07/2012

    Ajuda com Código

    Mensagem  toyebom em Ter 22 Jul 2014, 00:12

    Consegui assim:

    Código:
    Private Sub Form_Open(Cancel As Integer)
    Dim i As Integer

    For i = 0 To Me!Lista86.ListCount
      If Format(Date, "mm/dd/yyyy") <= Format(Me!Lista86.Column(5, i), "mm/dd/yyyy") & Me.Verificação88 = False Then
            MsgBox "Existe registos para despacho.", , "Atenção"
      End If
    Next
    End Sub

    Agora so falta a segunda parte que é colocar esses registos anteriores à data de hoje de outra cor, por exemplo a vermelho, ou a Bold


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 18/07/2012

    Ajuda com Código

    Mensagem  toyebom em Ter 22 Jul 2014, 00:40

    Estive a pesquisar e parece que a cor de uma listbox é unica e não dá para colocar apenas uma linha de outra cor. Crying or Very sad Crying or Very sad 

    Agradeço a ajuda, obrigado.

    Dou como concluido.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2293
    Registrado : 21/04/2011

    Re: [Resolvido]Ajuda com Código

    Mensagem  Marcelo David em Ter 22 Jul 2014, 00:54

    Grato pelo retorno!


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

      Data/hora atual: Sab 24 Jun 2017, 01:01