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

    Compartilhe

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    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.

    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2287
    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)

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    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.

    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2287
    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)

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    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.

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    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.

    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2287
    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: Dom 04 Dez 2016, 12:12