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


2 participantes

    Função Ao Pintar

    avatar
    tekmagic
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 03/04/2013

    Função Ao Pintar Empty Função Ao Pintar

    Mensagem  tekmagic 4/4/2019, 12:24

    Bom dia, Tenho um Formulário A (Simples) com um sub Formulário (Continuo) B.
    No Sub Formulário B tenho o Campo "Cad" e o Campo "Nome" onde utilizo a função ao pintar (quando o campo Cad = sim o campo Nome fica com o texto preto se não fica vermelho)

    Funciona perfeitamente. Porem ao mudar de registro no formulário A, fica aparecendo um erro em tempo de execução '2424' A Expressão que você inseriu possui um nome de campo, controle ou
    propriedade que o cadastro de evento não pode localizar. Ai tenho que ficar clicando em fim até sumir a mensagem.

    Como posso resolver? Agradeço a ajuda.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    Função Ao Pintar Empty Re: Função Ao Pintar

    Mensagem  Alexandre Neves 5/4/2019, 16:57

    Boa tarde
    Pode disponibilizar dados significativos


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    tekmagic
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 03/04/2013

    Função Ao Pintar Empty Re: Função Ao Pintar

    Mensagem  tekmagic 5/4/2019, 19:54

    Feito em Access 2010.

    Clique nos dias da semana no lado direito para alterar que ira aparecer o erro

    Grato
    Anexos
    Função Ao Pintar AttachmentDatabase8.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 21 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    Função Ao Pintar Empty Re: Função Ao Pintar

    Mensagem  Alexandre Neves 6/4/2019, 20:13

    Boa noite,
    Utilize
    Código:
    Private Sub Detalhe_Paint()
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim Rst As DAO.Recordset
       
        Set Rst = Me.RecordsetClone
        If Rst.RecordCount = 0 Then Exit Sub
        If Me.Cad = 0 Then
            Me.MC.ForeColor = 255
        Else
            Me.MC.ForeColor = -1
        End If
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    tekmagic
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 03/04/2013

    Função Ao Pintar Empty Grato

    Mensagem  tekmagic 7/4/2019, 12:23

    Ficou perfeito, muito obrigado.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    Função Ao Pintar Empty Re: Função Ao Pintar

    Mensagem  Alexandre Neves 7/4/2019, 13:59

    Boa tarde

    Faltou o Resolvido


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    Função Ao Pintar Empty Re: Função Ao Pintar

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 00:21