[Resolvido]Padronizar ou ajustar automaticamente tamanho de telas

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?

Boa noite
https://www.maximoaccess.com/t40489-resolvidocomo-faco-ajuste-automatico-de-resolucao

Olá, Crysostomo

Obrigado pela dica/link.

Vou aplicar no meu projeto. Depois volto aqui no tópico para falar sobre o resultado.

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":


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

Boa tarde

Teste em telas diferentes

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:



Por favor, qual procedimento devo fazer agora?

Teste este

Olá, Assis

Não deu certo novamente.

Apareceu essa mesma mensagem de erro em ambas as telas 14" e 20":


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

Altere

Declare Sub

Para:

Declare PtrSafe Sub

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:

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

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?

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.