MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Definir formatacao do texto

    Compartilhe
    avatar
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1064
    Registrado : 07/12/2011

    [Resolvido]Definir formatacao do texto

    Mensagem  tauron em 23/8/2018, 11:12

    Prezados utilizo esse codigo (de um modelo do Assis) em um projeto e gostaria de saber se eh possivel

    Ao inserir:
    "NFuncionario" (salvar em caixa alta)
    "SCargo" e "SFuncao" (salvar so a primeira em maiuscula)


    Private Sub Matricula_NotInList(NewData As String, Response As Integer)
    Dim SQL As String
    Dim NFuncionario As String
    Dim CCpf As String
    Dim NData As String
    Dim SCargo As String
    Dim SFuncao As String

       If MsgBox("Matricula " & Proper(NewData) & " Não Registado" & vbCrLf & "Deseja Registar o Funcionario " & "Agora ?", vbInformation + vbYesNo, "Aviso") = vbYes Then
           
    verificaNF:
           NFuncionario = InputBox("Qual é o Nome do Funcionario ?", "Funcionario")
               If DCount("Funcionario", "tblServidor", "Funcionario = '" & NFuncionario & "'") > 0 Then
                   MsgBox "Ja existe esse nome de Funcionario, verifique.", vbInformation, ""
                   Exit Sub
               End If
    verificaCC:
           CCpf = InputBox("Qual é o CPF ?", "CPF ")

    verificaND:
           NData = InputBox("Informe a Data de Admissão ?", "DtAdmissao ")

    verificaSC:
           SCargo = InputBox("Informe o Cargo ", "Cargo ")

    verificaSF:
           SFuncao = InputBox("Informe a Funcao ", "Funcao ")
           
           'verifica se campos estao vazios
           If Len(NFuncionario & "") = 0 Then
               MsgBox "Nome do Funcionario nao pode ser vazio, verifique", vbCritical, ""
               GoTo verificaNF
           End If
           If Len(CCpf & "") = 0 Then
               MsgBox "O CPF nao pode ser vazio, verifique", vbCritical, ""
               GoTo verificaCC
           End If
           If Len(NData & "") = 0 Then
               MsgBox "A Data de Admissão nao pode ser vazia, verifique", vbCritical, ""
               GoTo verificaND
           End If
           If Len(SCargo & "") = 0 Then
               MsgBox "O Cargo nao pode ser vazio, verifique", vbCritical, ""
               GoTo verificaSC
           End If
           If Len(SFuncao & "") = 0 Then
               MsgBox "A Funcao nao pode ser vazia, verifique", vbCritical, ""
               GoTo verificaSF
           End If
           
           SQL = "INSERT INTO tblServidor (Matricula, Funcionario, CPF, DTAdmissao, Cargo, Funcao) VALUES ('" & Proper(NewData) & "' , '" & NFuncionario & "' , '" & CCpf & "', '" & NData & "', '" & SCargo & "', '" & SFuncao & "')"
           DoCmd.RunSQL SQL
           DoEvents
           Response = acDataErrAdded
       Else
           MsgBox "Verifique então o código introduzido, campo obrigatório.", vbCritical, ""
           Exit Sub
       End If
    End Sub
    avatar
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 09/01/2018

    Re: [Resolvido]Definir formatacao do texto

    Mensagem  livio.sfranca em 23/8/2018, 12:59

    Bom dia,

    Você pode usar duas funções no VBA:

    Para primeira maiúscula, use: StrConv("seu texto", vbProperCase)

    Nesse caso a definição de NFUncionario:
    NFuncionario = StrConv(InputBox("Qual é o Nome do Funcionario ?", "Funcionario"), vbProperCase)


    Para tudo tudo caixa alta, use: UCase("seu texto")

    Nesse caso a definição de NFUncionario:
    SCargo = UCase(InputBox("Informe o Cargo ", "Cargo "))
    SFuncao = UCase(InputBox("Informe a Funcao ", "Funcao "))


    Espero que ajude!

    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Definir formatacao do texto

    Mensagem  JPaulo em 23/8/2018, 14:07

    Aproveite e veja algumas funções internas esquecidas;

    [Você precisa estar registrado e conectado para ver este link.]



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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1064
    Registrado : 07/12/2011

    Re: [Resolvido]Definir formatacao do texto

    Mensagem  tauron em 24/8/2018, 00:38

    Valeu pessoal, consegui da seguinte forma:

    na linha NFuncionario utilizei a funcao UCase Como sugerido e bancana;

    Ja a funcao StrConv me retorna a primeira letra de cada palavra em maiuscula tipo (Auxiliar De Escritorio)

    entao lembrei que em meus modelos eu geralmente utilizo uma funcao (modulo) e a copiei para o vba do formulario e fiz as devidas adaptacoes.

      Data/hora atual: 17/12/2018, 10:22