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]Alterar fonte (Letra) do BD inteiro

    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    [Resolvido]Alterar fonte (Letra) do BD inteiro Empty [Resolvido]Alterar fonte (Letra) do BD inteiro

    Mensagem  bigfill 21/11/2017, 13:03

    Bom dia!

    Por algum erro toda fonte do meu BD foi alterada, e estava querendo alterar a fonte de todos os "Formulários" para "Calibri" via código.

    Seria possível ?
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    [Resolvido]Alterar fonte (Letra) do BD inteiro Empty Re: [Resolvido]Alterar fonte (Letra) do BD inteiro

    Mensagem  bigfill 23/11/2017, 19:15

    UP

    Boa tarde a todos

    Encontrei um código que pode ser o inicio da solução, porem ainda não obtive sucesso. E toda vez que altero minhas fontes para "Calibri" apos alguns acesso o Bug coloca todos meu sistema com fonte "Georgia (Detalhe)".

    Necessitava que tivesse um modulo que efetuasse um loop no sistema convertendo os formatos dos campos.

    Conto com a ajuda de todos. Vlw

    Código:
    FormatCount As Integer)
    Dim rpt As Report
     Dim strMessage As String
     Dim intHorSize As Integer, intVerSize As Integer

     Set rpt = Me
     strMessage = "DisplayMessage"
     With rpt
     'Set scale to pixels, and set FontName and
     'FontSize properties.
     .ScaleMode = 3
     .FontName = "Courier"
     .FontSize = 24
     End With
     ' Horizontal width.
     intHorSize = rpt.TextWidth(strMessage)
     ' Vertical height.
     intVerSize = rpt.TextHeight(strMessage)
     ' Calculate location of text to be displayed.
     rpt.CurrentX = (rpt.ScaleWidth / 2) - (intHorSize / 2)
     rpt.CurrentY = (rpt.ScaleHeight / 2) - (intVerSize / 2)
     ' Print text on Report object.
     rpt.Print strMessage
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8499
    Registrado : 05/11/2009

    [Resolvido]Alterar fonte (Letra) do BD inteiro Empty Re: [Resolvido]Alterar fonte (Letra) do BD inteiro

    Mensagem  Alexandre Neves 28/11/2017, 19:16

    Boa noite,
    Execute um loop através de todos os relatórios
    Dim ctl As Control, Rpt
    For Each Rpt In Application.CurrentProject.AllReports
    DoCmd.OpenReport Rpt.Name, acDesign
    For Each ctl In Reports(Rpt.Name)
    aqui o código
    Next
    DoCmd.Close acReport, Rpt.Name
    Next


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    [Resolvido]Alterar fonte (Letra) do BD inteiro Empty Re: [Resolvido]Alterar fonte (Letra) do BD inteiro

    Mensagem  bigfill 8/1/2018, 15:01

    Alexandre Neves, Eu criei um BD novo e copiei todas as Tabelas, Consultas, Formularios, Relatorios, Macros, Módulos. E resolveu o problema, mais se algum dia retornar irei criar essa rotina com sua dica.

    Valeu

    Conteúdo patrocinado


    [Resolvido]Alterar fonte (Letra) do BD inteiro Empty Re: [Resolvido]Alterar fonte (Letra) do BD inteiro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/11/2024, 05:59