MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Executar Função.

    Compartilhe

    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 08/07/2013

    [Resolvido]Executar Função.

    Mensagem  clynton em Seg 18 Nov 2013, 21:07

    Amigos,

    Tenho uma tabela com Endereço, Bairro, Cidade e Estado, porém todos os dados estão em maiúsculo, gostaria que no form aparecesse em maiúsculo e minúsculo, deixando 'de', 'da', 'dos', 'das', 'e', 'o', etc..., em minúsculo.
    Ex.: NOVE DE ABRIL = Nove de Abril

    Achei um módulo aqui no fórum, mas não sei como usá-lo, gostaria que ele funcionasse no meu form na Propriedade 'no atual' de forma que não se altere na tabela e sim na exibição do form, podem me ajudar?

    segue o módulo:

    Sub ColocaPrimeiraLetraMaiuscula()
    'Muda todas as palavras da tabela para inicial maiúscula
    'By JPaulo ® Maximo Access
    'adaptado por Alexandre Neves, em 2011-05-03, do fórum MaximoAccess para manter "de" "da" "do" "dos" "e" "a"
    Dim db As Database, rst As Recordset, camp As Field
    Set db = CurrentDb
    Set rst = db.OpenRecordset("select * from " & "[" & Tabela & "]")
    If Not (rst.EOF) Then
    For Each camp In rst.Fields
    If camp.Name <> "Field Name" _
    And camp.Type = 10 _
    And Not IsNumeric(camp) _
    And camp.Attributes = 34 Then
    Do Until rst.EOF
    If camp.Value <> "" Then
    'Debug.Print StrConv(camp.Value, vbProperCase);
    With rst
    .Edit
    camp.Value = StrConv(camp.Value, vbProperCase)
    .Update
    End With
    End If
    rst.MoveNext
    Loop
    CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' A ',' a ');"
    CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' Da ',' da ');"
    CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' De ',' de ');"
    CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' Do ',' do ');"
    CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' Dos ',' dos ');"
    CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' E ',' e ');"
    End If
    Next
    end if
    End Sub

    Grato.

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Executar Função.

    Mensagem  criquio em Seg 18 Nov 2013, 21:12

    Para não alterar na tabela só se os campos forem desvinculados. Se for vinculado, ao alterar os campos do form, automaticamente será alterado na tabela. Ou então precisará voltar tudo para maiúsculo ao sair do registro.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    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.


    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 08/07/2013

    Re: [Resolvido]Executar Função.

    Mensagem  clynton em Seg 18 Nov 2013, 21:18

    Não tem problema alterar a tabela, como faço para usar o módulo?
    Grato.

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Executar Função.

    Mensagem  criquio em Seg 18 Nov 2013, 21:52

    Já que não tem problema alterar na tabela, talvez seja o caso de atualizar toda a tabela de uma vez. Tente algo assim em uma cópia do banco:

    Código:
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("NomeDaTabela")

    Do While Not rs.EOF

        rs.Edit

        rs!NomeDoCampo = strConv(rs!NomeDoCampo, vbProperCase)
        rs!NomeDoCampo = Replace(Replace(Replace(Replace(Replace(Replace(rs!NomeDoCampo, " Da ", " da "), " Das ", " das "), " De ", " de "), " Di ", " di "), " Do ", " do "), " Dos ", " dos ")

        rs.Update
        rs.MoveNext

    Loop

    rs.Close
    Set rs = Nothing


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    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.


    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 08/07/2013

    Re: [Resolvido]Executar Função.

    Mensagem  clynton em Ter 19 Nov 2013, 00:13

    Coloco esse código onde?
    Grato.

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Executar Função.

    Mensagem  criquio em Ter 19 Nov 2013, 13:30

    Aonde melhor lhe convier. No clique de um botão por exemplo.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    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.


    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 08/07/2013

    Re: [Resolvido]Executar Função.

    Mensagem  clynton em Ter 19 Nov 2013, 18:20

    Boa tarde criquio, desde já agradeço pela força que tu está dando.
    Criei um form para atualizar as informações e criei um botão com o nome Atualizar, neste botão coloquei o código que tu me passou, mas apresentou esse erro que segue no arquivo em anexo.
    Grato.
    Anexos
    Erro.ppt
    Você não tem permissão para fazer download dos arquivos anexados.
    (115 Kb) Baixado 9 vez(es)

    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 08/07/2013

    Re: [Resolvido]Executar Função.

    Mensagem  clynton em Seg 10 Mar 2014, 19:27

    Resolvido.

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Executar Função.

    Mensagem  toyebom em Seg 10 Mar 2014, 20:09

    muito bom criquio também estava á procura dum codigo desses


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

      Data/hora atual: Qua 07 Dez 2016, 18:16