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]Atualização de caixa de exto baseado em tabela

    avatar
    geremias
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 14/03/2012

    [Resolvido]Atualização de caixa de exto baseado em tabela Empty [Resolvido]Atualização de caixa de exto baseado em tabela

    Mensagem  geremias 10/8/2021, 17:30

    Boa tarde Caros colegas!

    Estou numa pendenga aqui, que não consigo resolver.

    tenho uma tabela TblLetras com a seguinte estrutura:

           
               letra1     A B C 
    letra2 Z Y Z
                 

    e assim vai.

    no formulário FrmTeste eu tenho duas caixas de texto Txt1 e Txt2, o que estou pretendendo fazer é o seguinte, ao digitar "A" na Txt1, busque na tabela o correspondente a letra digitada e preencha a Txt2 com o valor, no caso a Txt2 assumiria o valor "Z".

    Já tentei com a função select from where, mas não obtive resultado.

    Me.Txt2 = "SELECT TblLetras.Letra2, FROM TblLetras WHERE TblLetras.Letra1)=[Formulários]![FrmTeste]![Txt1]));"

    obs.: o formulário não esta vinculado a TblLetras.

    não consigo implementar isso. ficaria muito grato se pudessem me ajudar.

    Gerson.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3740
    Registrado : 04/04/2010

    [Resolvido]Atualização de caixa de exto baseado em tabela Empty Re: [Resolvido]Atualização de caixa de exto baseado em tabela

    Mensagem  Avelino Sampaio 10/8/2021, 17:54

    Olá, Gerson!

    Bom, creio que a solução pode passar pela uso da função split(). Rode esta rotina exemplo:

    Public Sub fncTeste()
    Dim p
    Dim k
    Dim letra$, x%
    p = Split("A B C")
    k = Split("X Y Z")
    letra = InputBox("Entre com uma letra (A, B ou C)...")
    x = -1
    For x = 0 To UBound(p)
    If letra = p(x) Then Exit For
    Next
    If x = 3 Then
    MsgBox "Não tem letra correspondente ..."
    Else
    MsgBox "A letra correspondente é: " & k(x)
    End If

    End Sub


    Aguardamos



    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    geremias
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 14/03/2012

    [Resolvido]Atualização de caixa de exto baseado em tabela Empty Re: [Resolvido]Atualização de caixa de exto baseado em tabela

    Mensagem  geremias 10/8/2021, 22:59

    Boa noite Avelino!

    Realmente a ideia é essa, mas como havia mencionado, tenho que pegar os valores da tabela TblLetras, preenchendo a Txt2 com o resultado encontrado após atualizar o valor da Txt1. ambos no FrmTeste.

    Eu até consegui fazer o pretendido, atualizando um SubForm vinculado a Tabela TblLetras. mas eu gostaria de fazer o mesmo usando apenas o Formulário principal FrmTeste.

    Agradeço imensamente pela colaboração.

    Gerson.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3740
    Registrado : 04/04/2010

    [Resolvido]Atualização de caixa de exto baseado em tabela Empty Re: [Resolvido]Atualização de caixa de exto baseado em tabela

    Mensagem  Avelino Sampaio 10/8/2021, 23:26

    Gerson

    Utilize a função Dlookup() para capturar o valor do campo na tabela.  Algo assim:

    Dim seq$
    Seq = dlookup("letra2","tblLetras","id = " & me!id)

    Aqui estou supondo que Id é o nome do campo que identifica o registro na tabela, de forma exclusiva.

    Public Sub fncTeste()
    Dim p
    Dim k
    Dim letra$, x%
    Dim seq$
    Seq = dlookup("letra2","tblLetras","id = " & me!id)

    p = Split("A B C")
    k = Split(seq)
    letra = InputBox("Entre com uma letra (A, B ou C)...")
    x = -1
    For x = 0 To UBound(p)
       If letra = p(x) Then Exit For
    Next
    If x = 3 Then
       MsgBox "Não tem letra correspondente ..."
    Else
       MsgBox "A letra correspondente é: " & k(x)
    End If
       
    End Sub


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    geremias
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 14/03/2012

    [Resolvido]Atualização de caixa de exto baseado em tabela Empty Re: [Resolvido]Atualização de caixa de exto baseado em tabela

    Mensagem  geremias 11/8/2021, 14:53

    Bom dia Avelino!

    Obrigado!

    Consegui utilizando o DLookup.

    Agradeço de coração pela ajuda.


    Gerson.

      Data/hora atual: 23/9/2021, 00:24