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

    [Resolvido]Separar endereço - pegar somente rua.

    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Separar endereço - pegar somente rua. Empty Separar endereço - pegar somente rua.

    Mensagem  Gilberto Rocha 16/6/2011, 12:47

    Olá amigos, necessito de uma consulta que pegue somente uma parte do campo, exemplo:

    No campo Endereço, tenho esses dados:
    AV. ÁGUAS DE SÃO PEDRO, 100 APT 5533

    Gostaria que ficasse assim:
    AV. ÁGUAS DE SÃO PEDRO

    Agradeço a atenção.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Separar endereço - pegar somente rua. Empty Re: [Resolvido]Separar endereço - pegar somente rua.

    Mensagem  JPaulo 16/6/2011, 12:52

    Penso que já não é aprimeira vez que você pede isso, rsrsrsrs

    Public Function SeparaNomes(strFrase As String, QualSimboloVaiPartir As String, QualParteVaiSeparar As Integer) As String
    'By@JPaulo2009 Dezembro
    'Função separa uma frase pelas virgulas ou outro símbolo
    'Exemplo: SeparaNomes("Esta é uma função\feita para separar palavras.", "\", 1)
    'O 1 vai mostrar a primeira parte da frase, "Esta é uma função"


    Dim strArray() As String
    Dim strParteInteira As Integer

    On Error GoTo Err_SeparaNomes

    strArray = Split(strFrase, QualSimboloVaiPartir)

    strParteInteira = UBound(strArray) + 1

    If strParteInteira = 0 Then
    SeparaNomes = strFrase
    Exit Function
    End If

    If QualParteVaiSeparar = 0 Then
    SeparaNomes = strFrase
    Exit Function
    ElseIf QualParteVaiSeparar < strParteInteira Then
    QualParteVaiSeparar = strParteInteira
    End If

    SeparaNomes = Trim(strArray(QualParteVaiSeparar - 1))

    Exit_SeparaNomes:
    Exit Function

    Err_SeparaNomes:
    MsgBox Err & " - " & Error$, vbExclamation, "Função SeparaNomes"
    Resume Exit_SeparaNomes
    Resume
    End Function




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Separar endereço - pegar somente rua. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Separar endereço - pegar somente rua. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Separar endereço - pegar somente rua. Folder_announce_new Instruções SQL como utilizar...
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Separar endereço - pegar somente rua. Empty Re: [Resolvido]Separar endereço - pegar somente rua.

    Mensagem  criquio 16/6/2011, 13:23

    Tente acrescentar um campo assim na sua consulta:

    NomeCampo: Esquerda([Endereço];EmSeq(1;[endereço];",")-1)


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Separar endereço - pegar somente rua. Empty Re: [Resolvido]Separar endereço - pegar somente rua.

    Mensagem  criquio 16/6/2011, 13:24

    Não vi que JPaulo tinha respondido. Acho que porque deixei aberto aqui na página de resposta por algum tempo Very Happy


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Separar endereço - pegar somente rua. Empty Re: [Resolvido]Separar endereço - pegar somente rua.

    Mensagem  Gilberto Rocha 16/6/2011, 13:28

    Mestre JPaulo, essa é a primeira vez sim, na outra era para separar nomes.
    Não sei o que estou fazendo de errado, pois está pegando somente a segunda parte do texto e não a primeira como quero
    Dim strEnd As String
    strEnd = Me.txtStreetAddress

    Me.cxSomenteRua = SeparaNomes(strEnd, ", ", 1)
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Separar endereço - pegar somente rua. Empty Re: [Resolvido]Separar endereço - pegar somente rua.

    Mensagem  Gilberto Rocha 16/6/2011, 13:31

    Do jeito do Criquio funcionou, com certeza fiz algo errado na função do JPaulo
    Resolvido, obrigado amigos.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Separar endereço - pegar somente rua. Empty Re: [Resolvido]Separar endereço - pegar somente rua.

    Mensagem  criquio 16/6/2011, 13:38

    Valeu. Só tem uma questão a ser considera: todos os endereços precisam estar nessa formatação. Se não tiver uma vírgula separando endereço de número, dará erro.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Separar endereço - pegar somente rua. Empty Re: [Resolvido]Separar endereço - pegar somente rua.

    Mensagem  Gilberto Rocha 16/6/2011, 13:48

    Po é vdd, então preciso tratar isso, pois não são todos que tem virgula, da uma ajudinha ai Criquio.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Separar endereço - pegar somente rua. Empty Re: [Resolvido]Separar endereço - pegar somente rua.

    Mensagem  JPaulo 16/6/2011, 14:16


    Veja o exemplo a funcionar;

    http://maximoaccess.forumeiros.com/t85-separa-frases-pelos-simbolos




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Separar endereço - pegar somente rua. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Separar endereço - pegar somente rua. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Separar endereço - pegar somente rua. Folder_announce_new Instruções SQL como utilizar...
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Separar endereço - pegar somente rua. Empty Re: [Resolvido]Separar endereço - pegar somente rua.

    Mensagem  criquio 16/6/2011, 14:18

    E caso não tenha vírgula, tem o quê? Um espaço? Ou alguns não tem número? Eu sempre coloco o endereço em campos separados:

    CEP
    Rua
    Número
    Bairro
    Estado
    País (quando for o caso)


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Separar endereço - pegar somente rua. Empty Re: [Resolvido]Separar endereço - pegar somente rua.

    Mensagem  criquio 16/6/2011, 14:19

    De novo JPaulo. Desculpe lá, hehehe.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Separar endereço - pegar somente rua. Empty Re: [Resolvido]Separar endereço - pegar somente rua.

    Mensagem  JPaulo 16/6/2011, 14:51

    Tranquilo Criquio.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Separar endereço - pegar somente rua. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Separar endereço - pegar somente rua. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Separar endereço - pegar somente rua. Folder_announce_new Instruções SQL como utilizar...
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Separar endereço - pegar somente rua. Empty Re: [Resolvido]Separar endereço - pegar somente rua.

    Mensagem  Gilberto Rocha 16/6/2011, 16:00

    Nossa deu certo, o banco estava com um erro por isso só pegava a segunda parte.
    Criquio, eu tambem separo os campos, mas peguei um cliente com esse problema, todo o banco de dados está a rua e o número no mesmo campo.

    Obrigado Amigos
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Separar endereço - pegar somente rua. Empty Re: [Resolvido]Separar endereço - pegar somente rua.

    Mensagem  vieirasoft 16/6/2011, 16:09

    Não esqueça de dar o tópico por resolvido. Desta vez eu faço.
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Separar endereço - pegar somente rua. Empty Re: [Resolvido]Separar endereço - pegar somente rua.

    Mensagem  Gilberto Rocha 16/6/2011, 16:16

    Ok, mas eu já tinha clicado em resolvido antes, apenas esqueci de dizer resolvido!!! Valeus Vieirão

    Conteúdo patrocinado


    [Resolvido]Separar endereço - pegar somente rua. Empty Re: [Resolvido]Separar endereço - pegar somente rua.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:52