[Resolvido]Como deixar o meu sistema full scream ?

Olá , pessoal ;

Percebi que alguns exemplos do forum , eles abrem full scream não aparece icon do access não abre como access .

Como posso fazer isso

kennyraphael,

Estude os próprios exemplos.
Você já tem a isca em mãos agora é só pescar.
No formulário full observe o evento ao carregar ou ao abrir, lá estará o caminho das pedras. Veja o módulo ou função ao qual o evento se refere e pronto.


Abraços,

Crie um módulo:

Código:

Option Compare Database
Option Explicit

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

Agora no evento ao abrir do seu form:

Código:

DoCmd.MoveSize 0, 0, Largura, Altura 'Usamos as medidas capturadas no módulo mdlTesTela


Pronto,

amigo uilson :

Não é bem isso que quiz mostrar , por exemplo

Quando ao abrir o sistema apenas o formulário aparece não aparece fundo nele , é como se fosse um instalador de software que aparece para você escolher o idioma , ele tambem não contem fundo isso que quero fazer .

Amigão,

Dificultou ainda mais o entendimento.

Se possível relate melhor a sua necessidade.


Abraços,

Ja vi  sistemas aqui no formulário que ao abrir  mostra o LOGIN/SENHA para entrar no sistema , como se fosse um software que mostra a quela opção de linguagem que atraz dele mostra o dextop ....
Exemplo


Eu quero que mostre apenas login ,   e ao efetuar o login abrir o sistema sem as barras de opção do access sem nada do access quero deichar o aplicativo apenas para inserir os dados

Procure aqui mesmo por "esconde janela".

Os códigos que aqui existem, escondem a janela do Access e apenas mostra o formulario.

achei esse que estou precisando porém ,
não estou conseguindo abrrir o arquivo pois o meu é 2010
http://maximoaccess.forumeiros.com/t14247-ocultar-totalmente-a-janela-do-access?highlight=esconde+janela

A versão 2010 abre o 2007, deve ter a tecla shift pressionada.

kennyraphael,

Agora sim ....

Crie um módulo de a ele o nome de "AccessTransparente" e insira o código abaixo:

Código:

Option Compare Database
Option Explicit

'Autor de la función base: Indeterminado
'Declaraciones
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

'Constantes
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2

Function AccessTransparente(Nivel As Integer)
'Adaptación:    Byron Contreras, febrero 08, byronlcl@gmail.com
'Objetivo:      Ajustar el nivel de transparencia de la ventana principal
'               de access. El nivel de transparencia debe estar entre 0 a 250
'.............................................................................
Dim lngHwnd As Long
    If Nivel < 0 Or Nivel > 250 Then Exit Function
    lngHwnd = Application.hWndAccessApp
    SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes lngHwnd, 0, Nivel, LWA_ALPHA
End Function


Crie uma macro conforme a imagem e de o nome a esta macro de "AutoExec"
Está macro deve chamar a função "AccessTransparente" conforme o anexo e o primeiro formulário que você pretende abrir.

Se preferir você também poderá chamar a função no evento ao abrir ou ao carregar do primeiro formulário que abre. Neste caso não será necessário a macro "AutoExec".


Abraços,

Amigo , me perdi na parte da criação da macro , não estou achando o Autoexe

Como criar uma macro anexo ....

O Nome deve ser AutoExec e não autoexe

Sucesso!

isso eu sei fazer, porem nao achei o auto e tambem não sei como configurar igual aa imagen que você mande antes , que parecia ser uma tabela

kennyraphael,

Se você sabe criar a macro ótimo. A imagem que enviei é de uma macro aberta é só ler atentamente as instruções descritas que irá ter sucesso. Ou ainda poderá optar pela segunda opção descrita anteriormente.


Abraços,

Também dando uma ajudinha.

Veja esse tópico que vai te ajudar.
Abçs.


http://maximoaccess.forumeiros.com/t16490-resolvidoteste-de-abrir-form-sem-access

Kaynan , seria este cod

Código:

Private Sub Form_Load()
Me.Caption = " teste - "
ReSizeForm Me

DoCmd.Maximize
DoCmd.ShowToolbar "Ribbon", acToolbarNo

End Sub


utilizo aalgum modulo ? não consigo vizualizar nada do documento ,
Aproposito , por exemplo se eu colocar esse codigo no LOGIN/SENHA irá aparecer o fundo ? por traz do LOGIN ?

Pra melhor, envie o bd pra gente analisar.
Abçs.

Ok , estou tentando enviar porém o access está parando de responder :S

____________

BANCO DE DADOS PARA TESTE

kennyraphael,

Pega aí ...

Veja o evento ao carregar do seu formulário "Flogin" e o módulo "mdlTransparente".



Abraços,

problema resolvido obrg

agora falta ápenas o do backup ehehehe
http://maximoaccess.forumeiros.com/t16273-backup-em-formulario