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

    [Resolvido]Caixas de Textos

    avatar
    Nardao
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 06/12/2010

    [Resolvido]Caixas de Textos Empty Caixas de Textos

    Mensagem  Nardao 14/1/2011, 17:01

    Boa Tarde... Preciso de mais uma ajuda aqui do forum. Eu não conheço muito sobre VBA, e acho que o que preciso é de um código. Acontece que tenho um formulário onde existe 2 campos de texto. No primeiro campo o usuario irá digitar um valor (campo numérico) em reais. Quando sair dele(ao atualizar) eu queria que se fosse digitado um valor, me abrisse (ou ativasse) o 2º campo de texto (memorando) para que fosse digitado o histórico referente a este valor digitado no 1º campo. Acontece que se o 1º campo de texto não fosse digitado nada (nulo), este 2º campo deveria ficar bloqueado, não sendo possivel digitar nada nele.

    Não sei se expliquei bem, mais seria essa minha necessidade. Desde já, obrigado a todos...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Caixas de Textos Empty Re: [Resolvido]Caixas de Textos

    Mensagem  vieirasoft 14/1/2011, 17:08

    Boa Tarde

    Utilize o seguinte:

    If IsNull (Me.caixatexto) Or Me.Caixaetexto="" Then
    SeucampoMemo.Locked=True
    Else
    SeucampoMemo.Locked=False
    End If
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Caixas de Textos Empty Re: [Resolvido]Caixas de Textos

    Mensagem  vieirasoft 14/1/2011, 17:14

    Esqueci de referir:

    Tem que colocar o 2 códigos acima no seguinte:

    No form current() ou se em PT no Actual()

    e depois no evento ao sair da caixatexto

    Eis um exemplo:

    Private Sub Form_Current()

    expande.Locked = True
    End Sub

    Private Sub novo_Exit(Cancel As Integer)
    If IsNull(Me.novo) Or Me.novo = "" Then
    expande.Locked = True
    Else
    expande.Locked = False
    End If
    End Sub
    avatar
    Nardao
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 06/12/2010

    [Resolvido]Caixas de Textos Empty Re: [Resolvido]Caixas de Textos

    Mensagem  Nardao 14/1/2011, 17:51

    Apesar de ter apanhado um pouquinho para entender o código, e para adaptá-lo no sistema que estou fazendo, DEU TUDO CERTO!!!!!! Funcionou....
    Até agora só tenho elogios a este site... Eu peguei este sistema para fazer e pensei que fosse tranquilo pelo o que o cliente havia comentado. Acontece que cada dia que vou mostrar para ele, aparece alguma coisa nova (que ele me pede) e aí eu peço socorro a vocês, pois como disse, não tenho dominio sobre VBA. Estou apenas iniciando... Muito obrigado....
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Caixas de Textos Empty Re: [Resolvido]Caixas de Textos

    Mensagem  vieirasoft 14/1/2011, 17:56

    Nardão, estamos aqui para ajudar, pois então recorra as vezes que entender. Por vezes, talvez já vitimas do cansaço, trocamos algumas coisas (ainda ontem aconteceu ter entendido uma coisa que afinal, também simples, era outra, rsrsrsrs), mas aqui no maximoacces tudo tentamos para que a ajuda seja a mais eficaz.

    Um abraço e obrigado pelo retorno

    Conteúdo patrocinado


    [Resolvido]Caixas de Textos Empty Re: [Resolvido]Caixas de Textos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 01:38