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

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

    Mensagem  tombr Sáb 19 Fev - 20: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
    atualizar automaticamente - [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 18 vez(es)


    Última edição por tombr em Seg 21 Fev - 11:52, editado 3 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  crysostomo Sáb 19 Fev - 23: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

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

    Mensagem  tombr Dom 20 Fev - 12: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

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

    Mensagem  tombr Dom 20 Fev - 13: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":
    atualizar automaticamente - [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 : 4771
    Registrado : 06/11/2009

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

    Mensagem  Assis Dom 20 Fev - 14:36

    Boa tarde

    Teste em telas diferentes


    Última edição por Assis em Dom 20 Fev - 15: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

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

    Mensagem  tombr Dom 20 Fev - 15: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:

    atualizar automaticamente - [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 : 4771
    Registrado : 06/11/2009

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

    Mensagem  Assis Dom 20 Fev - 15: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

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

    Mensagem  tombr Dom 20 Fev - 17:12

    Olá, Assis

    Não deu certo novamente.

    Apareceu essa mesma mensagem de erro em ambas as telas 14" e 20":
    atualizar automaticamente - [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 : 4771
    Registrado : 06/11/2009

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

    Mensagem  Assis Dom 20 Fev - 17: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

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

    Mensagem  tombr Dom 20 Fev - 18: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:

    atualizar automaticamente - [Resolvido]Padronizar ou ajustar automaticamente tamanho de telas Tela2011


    Última edição por tombr em Seg 21 Fev - 11:55, editado 1 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Assis Seg 21 Fev - 4: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

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

    Mensagem  tombr Seg 21 Fev - 12: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

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

    Mensagem  tombr Seg 21 Fev - 12: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.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 28 Mar - 15:27