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

3 participantes

    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas

    avatar
    tombr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 08/04/2018

    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Empty [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas

    Mensagem  tombr 19/2/2022, 23:40

    Olá,

    Alguém poderia me dar dicas de como "padronizar" ou "ajustar automaticamente" tamanho de telas.

    O programa do Access foi criado inicialmente no notebook com tela de 14", porém eu uso também em um desktop com tela de 20".

    Tela de 14" (1366 x 768).
    Tela de 20" (1600 x 900).

    Objetivo:
    Na tela de 20" o "Relatório do Access" ocupar todo o espaço disponível. Igual a tela de 14". É possível fazer isso?

    Anexos
    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas AttachmentProg Access.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (63 Kb) Baixado 5 vez(es)


    Última edição por tombr em 21/2/2022, 14:52, editado 3 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2087
    Registrado : 23/01/2018

    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Empty Re: [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas

    Mensagem  crysostomo 20/2/2022, 02:06



    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    tombr gosta desta mensagem

    avatar
    tombr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 08/04/2018

    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Empty Re: [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas

    Mensagem  tombr 20/2/2022, 15:50

    Olá, Crysostomo

    Obrigado pela dica/link.

    Vou aplicar no meu projeto. Depois volto aqui no tópico para falar sobre o resultado.
    avatar
    tombr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 08/04/2018

    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Empty Re: [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas

    Mensagem  tombr 20/2/2022, 16:24

    Olá,

    Infelizmente não estou conseguindo aplicar no meu projeto. Eu fiz o seguinte procedimento:

    Primeira Etapa:
    Criei uma tabela chamada: tblResolucaoSalva
    Coloquei o Código do Campo como: ValorRes / E o Tipo de Dados: Texto Curto

    Segunda Etapa:
    Inseri os códigos no meu formulário principal "FormRelatório".

    Ao Fechar:
    Código:
    Private Sub Form_Close()
        Dim varResSalva
        
        varResSalva = DLookup("ValorRes", "tblResolucaoSalva")
        If IsNull(varResSalva) Then Exit Sub
        
        varResSalva = Split(DLookup("ValorRes", "tblResolucaoSalva"), "x")
        Call ChangeRes(varResSalva(0), varResSalva(1))
        Call CurrentDb.Execute("delete * from tblResolucaoSalva;")
        Call DoCmd.Quit
    End Sub

    Ao Carregar:
    Código:
    Private Sub Form_Load()
        Dim strResAtual As String
        Dim sngH As Single
        Dim sngL As Single
        Dim intPos As Integer
        
        Me.Visible = False
        Call AccessTransparente(0)
        strResAtual = getScreenResolution
        
        If strResAtual <> "1366x768" Then
            If DCount("*", "tblResolucaoSalva") = 0 Then Call CurrentDb.Execute("insert into tblResolucaoSalva values ('" & strResAtual & "');")
            Call ChangeRes(1366, 768)
        End If
        
        Call DoCmd.OpenForm("FormRelatório")
    End Sub

    Mas está aparecendo essa mensagem de erro ao tentar abrir o formulário "FormRelatório":
    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Mensag10

    Dúvida:
    Preciso criar ou exportar os "Módulos" do arquivo postado pelo Assis?
    https://www.maximoaccess.com/download?id=20434
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4660
    Registrado : 06/11/2009

    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Empty Re: [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas

    Mensagem  Assis 20/2/2022, 17:36

    Boa tarde

    Teste em telas diferentes


    Última edição por Assis em 20/2/2022, 18:51, editado 1 vez(es)


    .................................................................................
    *** Só sei que nada sei ***

    tombr gosta desta mensagem

    avatar
    tombr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 08/04/2018

    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Empty Re: [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas

    Mensagem  tombr 20/2/2022, 18:05

    Olá, Assis

    Obrigado pela ajuda.

    Pelo arquivo postado por você agora, vi que realmente precisa usar os "Módulos".

    Ao clicar nesse "seu arquivo" para abrir o programa no notebook 14" ou desktop 20" em ambos apareceu essa mesma mensagem de erro:

    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Mensag11

    Por favor, qual procedimento devo fazer agora?
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4660
    Registrado : 06/11/2009

    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Empty Re: [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas

    Mensagem  Assis 20/2/2022, 18:55

    Teste este


    .................................................................................
    *** Só sei que nada sei ***

    tombr gosta desta mensagem

    avatar
    tombr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 08/04/2018

    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Empty Re: [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas

    Mensagem  tombr 20/2/2022, 20:12

    Olá, Assis

    Não deu certo novamente.

    Apareceu essa mesma mensagem de erro em ambas as telas 14" e 20":
    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Mensag12

    Observação:
    Uso o sistema Windows 10 Pro e Microsoft Office Professional Plus 2019 em ambos (Notebook 14" e Desktop 20").
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4660
    Registrado : 06/11/2009

    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Empty Re: [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas

    Mensagem  Assis 20/2/2022, 20:24

    Altere

    Declare Sub

    Para:

    Declare PtrSafe Sub


    .................................................................................
    *** Só sei que nada sei ***

    tombr gosta desta mensagem

    avatar
    tombr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 08/04/2018

    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Empty Re: [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas

    Mensagem  tombr 20/2/2022, 21:58

    Olá, Assis

    Obrigado mais uma vez pela ajuda.

    Agora deu certo. Não aparece nenhum mensagem de erro.

    Mas o objetivo do tópico ainda não foi alcançado.

    Ao abrir o programa no Desktop 20" o "FormRelatório" continua do mesmo tamanho (1366 x 768). Não aumentou conforme desejado (1600 x 900).

    Conforme citei no início do tópico:
    Objetivo: Na tela de 20" o "Relatório do Access" ocupar todo o espaço disponível. Igual a tela de 14". É possível fazer isso? escreveu:

    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Tela2011


    Última edição por tombr em 21/2/2022, 14:55, editado 1 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4660
    Registrado : 06/11/2009

    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Empty Re: [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas

    Mensagem  Assis 21/2/2022, 07:44

    Bom dia

    As colunas não vão aumentar. Ficam na resolução em que foram criadas:

    Ler este tópico

    https://www.maximoaccess.com/t40489-resolvidocomo-faco-ajuste-automatico-de-resolucao#275731

    Mensagem Nº 1


    .................................................................................
    *** Só sei que nada sei ***

    tombr gosta desta mensagem

    avatar
    tombr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 08/04/2018

    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Empty Re: [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas

    Mensagem  tombr 21/2/2022, 15:27

    Olá, Assis

    Obrigado por esclarecer minha dúvida.

    Ao iniciar um novo projeto no "Access" devo projetar no tamanho da tela da menor para maior. Exemplo: 14" para 20". E nunca ao contrário 20" para 14". É uma norma/padrão do Access?

    Por exemplo, em um empresa gigante preciso saber antes o tamanho de todos as telas de notebook/desktop para iniciar um projeto do Access?





    avatar
    tombr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 08/04/2018

    [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Empty Re: [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas

    Mensagem  tombr 21/2/2022, 15:34

    Observação Final:

    No meu projeto "real", não esse que postei aqui como teste eu criei dois "FormRelatório", sendo:

    - Relatório T1 (Consigo visualizar todos os dados das colunas na tela 14" sem corte e sem sobra de espaço).
    - Relatório T2 (Consigo visualizar todos os dados das colunas na tela 20" sem corte e sem sobra de espaço).

    Esteticamente eu não curti ter dois relatório no meu "Menu" para visualizar os mesmo dados, mas para telas diferentes.

    Como não é possível ajustar as colunas automaticamente vou deixar dessa forma mesmo. E colocar o tópico como resolvido.

    Obrigado a todos.

      Data/hora atual: 3/7/2022, 10:23