Form Transparente

Galera primeiramente olá a todos. Sou novo aqui no MaximoAccess!

O que acontece:

Estou tentando criar um pequeno sistema no Access, algumas coisas eu já conheço e outras não tenho noção nenhuma de como funciona.

Utilizo atualmente o Access 2016

Preciso criar um Formulário com 2 botões (1) - Iniciar e (2) - Sair

1 - Bom comecei com novo "Banco de dados do desktop em branco";
2 - Criei um novo formulário = Formulário1;
3 - Nesse formulário fiz os 2 botões;

Agora o que eu preciso é:

Salvar, para que fique na forma de um "arquivo" que ao usuário abrir exiba somente este Formulário sem o (Menu, Itens, Barras do access).
Que exiba apenas o formulário como se fosse um programa.

Eu pesquisei no fórum que tem que criar um Macro autoexec

Então fui em:

Criar > Macro

Adicionei os itens

1 - AbrirFormulário
2 - MaximizarJanela
3 - BloquearPainelDeNavegação

Utilizei o "Converter macros em Visual Basic;

Salvei o arquivo como arquivo de Banco de dados do Microsoft Access

----------------------------------------------------------------------------------------------------------------------------------------------------

Mas ao abrir o arquivo ele abre com o Menu do Access para editar e tal.

- Galera por favor quem realmente quiser ajudar não dê respostas óbvias, pois não serão úteis.
- Já pesquisei nos outros tópicos, mas eles são muito objetivos e pulam partes.
- Vale lembrar que neste quisito sou leigo então quanto mais detalhado e mais no inicio explicar melhor.

Obrigado a todos que me ajudarem!

Ola seja bem vindo ao forum;

O que você necessita é de esconder a janela do Access;

Use sempre a busca do forum em primeiro lugar, antes de abrir qualquer tópico, ae se não conseguir dê um grito aqui;

https://www.maximoaccess.com/t1546-ocultar-janela-do-access

JPaulo escreveu:Ola seja bem vindo ao forum;

O que você necessita é de esconder a janela do Access;

Use sempre a busca do forum em primeiro lugar, antes de abrir qualquer tópico, ae se não conseguir dê um grito aqui;

https://www.maximoaccess.com/t1546-ocultar-janela-do-access

Cara, eu inseri o código do tópico do nosso amigo lá no meu módulo1 ficando assim:

Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If

Está dando erro na linha Private.

Boa tarde senhores;

Tente fazer a seguinte alteração destacada em vermelho:

Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare PrtSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If

Fernando não é PrtSafe, é PtrSafe

Código:

#If VBA7 Then
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
#Else
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
#End If

Verdade grande mestre tc errado e nem percebi rs