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


4 participantes

    Função ESQUERDA (Left) Personalizada

    jleonardofcruz
    jleonardofcruz
    jleonardofcruz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 02/02/2012
    • Mensagem nº1

    Função ESQUERDA (Left) Personalizada Empty Função ESQUERDA (Left) Personalizada

    Mensagem  jleonardofcruz 9/7/2014, 15:16

    Prezados,

    Tenho a seguinte função:

    Esquerda([Tabela.Campo];5)

    Desejo saber se eu posso criar alguma expressão que retorne 5 ou menos caracteres como no exemplo abaixo que, infelizmente, o Access não aceita.

    Esquerda([Tabela.Campo];<=5)

    Agradeço atenção dispensada
    • Ir para o topo
    wbonelli
    avatar
    wbonelli
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 02/04/2011
    • Mensagem nº2

    Função ESQUERDA (Left) Personalizada Empty Re: Função ESQUERDA (Left) Personalizada

    Mensagem  wbonelli 9/7/2014, 15:28

    Veja se estes exemplos lhe ajudam:

    http://office.microsoft.com/pt-br/access-help/exemplos-de-expressoes-HA010096295.aspx

    Vá até: "Expressões que manipulam texto em uma consulta ou um filtro"

    Creio que no teu caso, o Mid(), pode te ajudar.

    Wagner
    • Ir para o topo
    good guy
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010
    • Mensagem nº3

    Função ESQUERDA (Left) Personalizada Empty Função ESQUERDA (Left) Personalizada

    Mensagem  good guy 9/7/2014, 15:29

    Olá jleonardo,

    Você pode dessa forma trabalhar com os dados da tabela:

    Exemplo1:


    Código:
    Private Sub cmdRes_Click()
    Dim valor As String
    valor = DLookup("Frase", "tblTeste", "Código=1")
    Me.txtFrase = Left(valor, 5)
    End Sub

    Exemplo2:

    Código:
    Private Sub cmdRes_Click()
    On Error Resume Next
    Dim valor As String
    Dim rs As DAO.Recordset
    Dim i As Integer
    Dim y As Integer
    Dim strSQL As String
    Dim k As String

    Set rs = CurrentDb.OpenRecordset("tblTeste", dbOpenTable)

    y = CInt(InputBox("Digite a quantidade de caracteres a exibir", "Exclusão"))     'Ou uma simples caixa de texto

    For i = 1 To rs.RecordCount

    valor = Nz(DLookup("Frase", "tblTeste", "Código= " & i))
    MsgBox valor
    k = Left(valor, y)
    MsgBox k
    Me.txtFrase = k
    DoCmd.RunCommand acCmdRecordsGoToNext
    Next i

    rs.Close
    Set rs = Nothing

    End Sub
    Anexos
    Função ESQUERDA (Left) Personalizada AttachmentForumTestes.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (25 Kb) Baixado 40 vez(es)
    • Ir para o topo
    jleonardofcruz
    jleonardofcruz
    jleonardofcruz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 02/02/2012
    • Mensagem nº4

    Função ESQUERDA (Left) Personalizada Empty Muito obrigado a todos.

    Mensagem  jleonardofcruz 23/7/2014, 16:08

    Muito obrigado a todos que responderam. Peço desculpas pela demora.


    .................................................................................
    Agradeço antecipadamente pela ajuda,

    Leonardo Cruz
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009
    • Mensagem nº5

    Função ESQUERDA (Left) Personalizada Empty Re: Função ESQUERDA (Left) Personalizada

    Mensagem  Alexandre Neves 23/7/2014, 18:38

    Boa tarde,
    Se ficou resolvido, marque o botão apropriado


    .................................................................................
    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
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº6

    Função ESQUERDA (Left) Personalizada Empty Re: Função ESQUERDA (Left) Personalizada

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 22/11/2024, 21:50