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

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.

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

Tente acrescentar um campo assim na sua consulta:

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

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

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)

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

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.

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

Veja o exemplo a funcionar;

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

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)

De novo JPaulo. Desculpe lá, hehehe.

Tranquilo Criquio.

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

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

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