Tamanho do Formulário / Impedir alteração

Boa Noite.

Utilizo um botão para sair do Forms. Neste botão há algumas condições que vão permitir ou não a saida. Para forçar a saida do Forms somente pelo botão, na guia "Formato" das propriedades defini:
>Caixa de Controle = Não
>Botão Min Max = nenhum
>Botão fechar = Não

Então pergunto: Isto é correto? É o mais eficaz?

Pois estou tendo o seguinte problema: Neste mesmo Forms tenho um botão para visualizar um relatório. Quando fecho o relatório, o Forms muda de tamanho e posição. Ele deixa de ocupar a tela toda, fica pequeno.

Grato pela atenção.

Luiz

Se usa o formulário maximizado, experimente colocar a propriedade estilo de borda como
como nenhum, isso irá retirar o cabeçalho do formulário e ele não poderá ser removido, ou seja, ficará imóvel.

Tente também abrir o relatório maximizado,pois é provável que o fato dele estar em tamanho normal, ao fecha-lo, faz com que o formulário que está abaixo dele, também volte ao normal.

Abraços

Olá Balem.
Coloquei nenhum para o estilo de borda no Forms.
Também utilizei DoCmd.Maximize no evento ao abrir do Forms e do Relatório.
Infelizmente não funcionou !
Fiz algo errado?

Obrigado por sua atenção.

Luiz bom dia!

Crie um módulo novo e cole:

Public Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long ' Declaramos a API
Const SM_CXSCREEN = 0 ' Constante da largura
Const SM_CYSCREEN = 1 ' Constante da altura

Public Function Largura() As Long
Largura = GetSystemMetrics(SM_CXSCREEN) * 15 ' Pegamos a largura em pixels e multipliamos por 15
End Function

Public Function Altura() As Long
Altura = GetSystemMetrics(SM_CYSCREEN) * 15 ' Pegamos a altura em pixels e multipliamos por 15
End Function


E na propriedade no evento ao carregar do form defina:

Private Sub Form_Load()
DoCmd.MoveSize 0, 0, Largura, Altura ' Usamos as medidas capturadas no módulo mdlTesTela
End Sub

Lembrando que este código não é meu!

Além do código que o amigo Lupércio postou, tem esse também:

Código:


'This code was originally written by Terry Kreft.
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'
'Code courtesy of
'Terry Kreft
'
Type Rect
    x1 As Long
    y1 As Long
    x2 As Long
    y2 As Long
End Type
Declare Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal _
    nCmdShow As Long) As Long
Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal _
    X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight _
    As Long, ByVal bRepaint As Long) As Long
Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
'Use following instead of GetWindowRect
Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect _
    As Rect) As Long

Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWNORMAL = 1

Sub MaximizeRestoredForm(F As Form)
    Dim MDIRect As Rect
    ' If the form is maximized, restore it.
    If IsZoomed(F.hwnd) <> 0 Then
        ShowWindow F.hwnd, SW_SHOWNORMAL
    End If
    ' Get the screen coordinates and window size of the
    ' MDIClient area.
    'This is the line which is different
    GetClientRect GetParent(F.hwnd), MDIRect
    ' Move the form to the upper left corner of the MDIClient
    ' window (0,0) and size it to the same size as the
    ' MDIClient window.
    MoveWindow F.hwnd, 0, 0, MDIRect.x2 - MDIRect.x1, MDIRect.y2 - MDIRect.y1, True
End Sub


No Load do Formulário:

Call MaximizeRestoredForm(Me)

Abraços

Boa tarde Amigos.

Com o código postado pelo Lupércio, não houve alteração. O Problema persiste.

Já com o código postado pelo Balem, está dando um erro de compilação: "O tipo definido pelo usuário não foi definido", e foco vai para "Dim MDIRect As Rect" (que fica destacado em azul) e depois para "Sub MaximizeRestoredForm(F As Form)"(quefica destacado em amarelo).

Olá

Por que criar um botão fechar se o formulário já te fornece? Se quiser verificar condições antes de fechar, utilize a função "Ao descarregar" que tem o argumento CANCEL.

Código:

Private Sub Form_Unload(Cancel As Integer)
If IsNull(Me!campoX) Then
    MsgBox "campo obrigatório"
    Cancel = True
End If
End Sub

Sucesso!

Desculpe Luis

Não coloquei as API's no código, agora já arrumei la no meu primeiro post.

Abraços

Oi
Avelino.
Agradeço sua atenção.

Todos os Froms de meu BD estão personalizados com Botões para sair. Gostaria muito, se fosse possível, de mantê-los. Mas se não for possível....

Altereir "Caixa de controle=Sim / Botões Min Max=ambos /Botão fechar=Sim", e no evento "Ao descarregar" o código abaixo:

Private Sub Comando6_Click()
Dim stDocName As String
If [Qtde] = 0 Then
DoCmd.Close
Else
If MsgBox("Há " & Me.Qtde & " canhotos selecionados!" & Chr(13) & "Deseja Limpar Seleção?", vbYesNo, "Aviso") = vbYes Then
stDocName = "CanhotoReceberLimparSeleção"
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.RunCommand acCmdRefreshPage
Else
MsgBox "Limpe a seleção manualmente!!!", vbInformation, "Aviso"
End If
End If
End Sub

O problema em questão resolve, mas cria outro: O Formulário é fechado sem atender as conduções exigidas.

Oi
Balem.

Alterei e deu erro de compilação: "Instrução inválida fora de um bloco Type" e o foco vai para "x1 As Long"

Luiz

O código está dessa maneira no teu aplicativo?

Type Rect
x1 As Long
y1 As Long
x2 As Long
y2 As Long
End Type

Se sim,não poderia dar erro.

Aguardo

obs.: terei que sair, volto mais tarde.

Corrigí:
Estava assim:
'Type Rect
.............
Não da mais erro. Mas não funcionou.

Luiz

Hoje mesmo coloquei esse código para o nosso colega Assis e funcionou perfeitamente.

Colou a chamada da função no evento Ao Carregar do formulário?

Call MaximizeRestoredForm(Me)

Aguardo...

Companheiros olá!
Luiz baixa este exemplo e copia este modulo para seu bd!

http://speedy.sh/h4N96/LuizExemplo.zip

E defina:

Private Sub Form_Load()
DoCmd.MoveSize 0, 0, Largura, Altura ' Usamos as medidas capturadas no módulo mdlTesTela
End Sub

Não é possivel testei este e o do Balem ambos deram certo!

Oi
Lupércio.

Talvez eu esteja fazendo algo errado ou então não estou expondo o problema adequadamente.

Estou postando parte do BD.

Obrigado

Teste ai eis o teu banco!

http://speedy.sh/k6ysD/LuizExemplo.zip

Aee Lupércio

Foi o "The Flash" agora, heim?

Eu ia postar quando vi você postando.

O interessante é que foi com o mesmo assunto, maximizar o formulário.

Abração mano véio !!

Para você tambem Balem, tenho muito que aprender com você!

Luiz

Eu não tinha visto o detalhe do relatório
assim fica melhor veja:

http://speedy.sh/EUW3A/LuizExemplo.zip

Oi
Lupércio.

O Formato e tamanho que preciso para todos os forms de meu DB são exatamente assim, como o exemplo que mandou.
No entanto o botão "A Receber" deixou de funcionar; E quando abro o forms "Canhoto3" da erro, e altera o tamanho do formulário.

O que você alterou no DB que mandei?
Devo fazer isto nos outros?

Botão funcinando!

Veja:

http://speedy.sh/tmBFv/BOTAO-FUNCIONANDO.zip

Depois que postei é que vi o novo BD. Desculpem-me.

Não consigo acessar relatórtio: Botão "Visualizar Relatório".

É preciso selecionar a 2.a. placa ANT6389 e depois clicar no registro (botão Incluir).

Estou até envergonhado!!!

Que isso amigo, todos nós estamos aprendendo e pode contar conosco.

Faço um novo teste:

http://speedy.sh/4K6A7/TESTA-ESTE-LUIZ.zip

Ok
Amigão.
Agora funcionou perfeitamente!!!
Parabéns

Mas agora, me conta seus segredos . como fez:
> para ocultar a "Barra de Menus";
> para fazer o forms "Menu" ocupar a tela toda?

No 2010
Clica em arquivo, opções, banco de dados atual,
Abrirá uma pagina ai você:
Desmarque todas as caixas de seleção;
Deixa marcada: Janelas sobrepostas, converter todo s os dados de imagens bitmaps etc.
No seu formulário “Menu” eu adicionei ao carregar do formulário:

Private Sub Form_Load()
DoCmd.MoveSize 0, 0, Largura, Altura
End Sub
Adicionei o módulo.

Ainda no formulário “Menu” eu alterei
Na propriedade “pop-up = sim
Na propriedade “Janela restrita” = sim

No 2003 não recordo, pois uso o 2010 que é igual ao 2007.
Mas o pessoal ai te da a dica.
Um abraço amigo espero ter ajudado!

2003

Se não me engano no 2003

Você clica em barra de ferramentas e depois incializar!

No 2003 não tem a opções "Banco de dados atual".

Ao definir como "Sim" as propriedades “pop-up" e “Janela restrita" do forms “Menu”, será necessários fazê-lo também em todos os Formulários e Relatórios do BD.

O mesmo ocorre com o código "DoCmd.MoveSize 0, 0, Largura, Altura", que deverá ser colocado no evento "Ao Carregar" de todos os formulários do BD.

Por favor Lupércio, me corrija se eu estiver errado.

Aguardo seu parecer para finalizarmos o tópico.

Obrigado

As propriedades "pop-up" e "Janela restrita" "em todos os formulários do bd".

Já o o código"
"DoCmd.MoveSize 0, 0, Largura, Altura"
voce coloca na propriedade no evendo de qualquer formulário
do banco que você quer que ele fique maximizado.

Lembrando: coloque na propriedade ao carregar do form.

Access 2003.

Se não me engano no 2003

Você clica em barra de ferramentas e depois incializar!

Com tua licença Lupercio

Estou enviando o aplicativo do Luiz com minha mudança.

Luiz
Você terá que realocar alguns controles do formulário.

Abraços

Amigo Balem acho que as alterações que você fez eu ja tinha feito no último que enviei para o Luiz.

Certo Lupércio

Se Luiz pretende maximizar o formulário para o tamanho da tela, escondendo por completo o Access, cai naquela opção do outro poste, concorda?

Abraços

Concordo sim, você tem razão to abrindo um tópico novo, se puder me de uma ajuda.
Abraço!

Caros
Amigos.

Agora fiquei perdido!!!
O que faço?

Ia alterar, com base no exemplo do Lupércio, todos os relatórios e forms do BD. Devo fazê-lo?

Na minha visão, de mero usuário, observei uma única diferença entre os 2 exemplos, é que o do Lupérico esconde a "Barra de Menu".

Que caminho sigo Amigos?

Luiz é difícil opnar! Tenho uma grande admiração pelo Balem, ele é mais experiente que eu mas você é quem escolhe!
O importante é que foi resolvido,

É a resposta que eu precisava.
Ambos estão corretos.

Agradeço ao Avelino pela participação.

Meus agradecimentos especiais ao Lupércio e Balem que, mais uma vez, acompanharam-me nesta jornada, sem, em nenhum momento, esmorecer. Como sempre, prestativos, dedicados, eficientes e, acima de tudo, compreendendo as limitações dos menos experientes.

Nos vemos "por aí".
Forte Abraço.
Muito Obrigado.

Luiz

Sei que está resolvido, mas você não clicou no botão "Resolvido".

Então aproveito para colocar isso:

Experimente esse código para esconder a barra de menu e a janela banco de dados.

DoCmd.ShowToolbar "Database", acToolbarNo
DoCmd.ShowToolbar "Form View", acToolbarNo

Coloque o código no evento ao carregar do primeiro formulário a ser aberto na aplicação.

Abraços

Desculpe-me Balem.
Esqueci de por resolvido.
To pondo agora.

Apliquei no BD de exemplo (FormsTamanho) postado:

Private Sub Form_Load()
Call MaximizeRestoredForm(Me)
DoCmd.ShowToolbar "Database", acToolbarNo
DoCmd.ShowToolbar "Form View", acToolbarNo
End Sub

Ma snão funcionou, ou seja, a "Barra de Menu" não sumiu!

Abraços
Muito Obrigado

Luiz

Se o nome da barra é "Barra de menu", é só substituir o nome
DoCmd.ShowToolbar "Barra de menu", acToolbarNo

Abraços

Nossa.
Desculpe minha ignorância!
Alterei mas não funcionou.
A "Barra de Menus" continua aparecendo.

Tentei assim:
Private Sub Form_Load()
Call MaximizeRestoredForm(Me)
DoCmd.ShowToolbar "Database", acToolbarNo
DoCmd.ShowToolbar "Barra de Menus", acToolbarNo
End Sub

E assim:
Private Sub Form_Load()
Call MaximizeRestoredForm(Me)
DoCmd.ShowToolbar "Barra de Menus", acToolbarNo
DoCmd.ShowToolbar "Barra de Menus", acToolbarNo
End Sub

Testa esse ao carregar do form!

Private Sub Form_Load()
DoCmd.ShowToolbar "Ribbon", acToolbarNo

End Sub

Luiz

Eu só estou com o A2007 aqui no meu computador.
Estou pegando esse código de aplicativo feitos em A97 e que funcionaram com o A2000

Talvez não influa, mas lembra que disse para colocar essas linha antes de qualquer outra coisa:

Call MaximizeRestoredForm(Me)
DoCmd.ShowToolbar "Database", acToolbarNo
DoCmd.ShowToolbar "Barra de Menus", acToolbarNo

Estou entendendo pelas linhas acima, que o formulário primeiro vai maximizar para depois retirar o menu e creio que deveria ser ao contrario.
Se ainda me lembro, você também pode desabilitar os menus no menu opções.
Abraços

Balem

Fiz um teste aqui, não sei se é a versão do access que uso,
mas esse que você passou não funfou.
Esse outro que passei ai funfa no meu access.

Sou curioso e persistente testo tudo

Uso o 2010.

No meu não funcionou. (Access 2003)

Veja:
Exluí todos os forms, códigos, módulos, etc...
Mantí só o Forms "Menu" com o código:

Private Sub Form_Load()
DoCmd.ShowToolbar "Database", acToolbarNo
DoCmd.ShowToolbar "Barra de Menus", acToolbarNo
End Sub

estou postando o BD.

Abraços

Será isto

Olá
Assis.

No meu (2003) não funciona. Da erro!!!

Vc usou 2003?

Abraços

E este
Eu usei o 2007

Meus amigos

Por favor, não confundam a Ribbon dos A2007 e A2010 com a barra de menus das versões anteriores.

O que eu tinha passado foi para as versões anteriores.

Para os A2007 e A2010 é outro procedimento.


Abraços

Você tem razão amigo Balem!