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]Campo no form com as iniciais do nome

    avatar
    Fire
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 15/06/2014

    [Resolvido]Campo no form com as iniciais do nome Empty [Resolvido]Campo no form com as iniciais do nome

    Mensagem  Fire Ter 20 Jan - 14:41

    Pessoal boa tarde!
    Alguém podeira me ajudar com um codigo que eu possa gerar somente as iniciais no nome.
    Exemplo: João da Silva Melo
    campo = JSM

    Obg.
    avatar
    WerlessonSampaio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 09/07/2013

    [Resolvido]Campo no form com as iniciais do nome Empty Iniciais do Nome

    Mensagem  WerlessonSampaio Ter 20 Jan - 15:44

    Acredito que este código irá resolver o problema, porém, fiz apenas alguns testes rápidos.
    Adapte-o à sua necessidade.

    Código:

    Option Compare Database
    Option Explicit

    Private Sub Comando2_Click()
        Dim s As String
        Dim i As Integer
        Dim strIniciais As String
        Dim posicoes As Integer
            
        For i = 1 To Len(Me!Texto0)
            If Mid(Me!Texto0, i, 1) <> Chr(32) Then
                s = s & Mid(Me!Texto0, i, 1)
            Else
                strIniciais = strIniciais & Left(UCase(s), 1)
                s = ""
                posicoes = testarPreposicao(i)
                If posicoes > 0 Then
                    i = i + posicoes
                End If
            End If
        Next
            
        strIniciais = strIniciais & Left(UCase(s), 1)
        s = ""
        MsgBox strIniciais
        
    End Sub


    Public Function testarPreposicao(i) As Integer
        Dim s As String
        
        'testa preposição com duas letras
        'ex: da Silva
        s = Mid(Me!Texto0, i + 1, 3)
        If Right(s, 1) = Chr(32) Then
            testarPreposicao = 3
            Exit Function
        End If
        
        'testa preposição com três letras
        'ex: dos Anjos
        s = Mid(Me!Texto0, i + 1, 4)
        If Right(s, 1) = Chr(32) Then
            testarPreposicao = 4
            Exit Function
        End If
        
    End Function

    Att.
    Sampaio
    avatar
    Fire
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 15/06/2014

    [Resolvido]Campo no form com as iniciais do nome Empty Re: [Resolvido]Campo no form com as iniciais do nome

    Mensagem  Fire Ter 20 Jan - 16:08

    Werlesson você podeira me informar se no Texto0 seria o nome do meu campo?
    Obg.
    avatar
    Fire
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 15/06/2014

    [Resolvido]Campo no form com as iniciais do nome Empty Re: [Resolvido]Campo no form com as iniciais do nome

    Mensagem  Fire Ter 20 Jan - 16:47

    Valeu funcionou ! Very Happy cheers
    Obg.

    Conteúdo patrocinado


    [Resolvido]Campo no form com as iniciais do nome Empty Re: [Resolvido]Campo no form com as iniciais do nome

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 21 Nov - 16:59