[Resolvido]Navegar apenas nos formularios

Boas

Criei uma macro que abre o formulario!
Como fazo para essa macro arrancar logo no arrnque o access? E não me deixar ver o acess?

So quero que seja possivel navegar nos form´s!
como fazo?

http://maximoaccess.forumeiros.com/t182-resolvidoesconder-janela-access

http://maximoaccess.forumeiros.com/t175-resolvidosformularios-do-sistema-se-assemelhar-parecer-um-executavel



utilize o procurar no fórum, vai encontrar muita coisa boa.

Boas

O meu broswer está a dar erro ao abrir os link dos exemplos!
Dá para me passar o codigo que é necessario?
Ou então senão for muita massada passar o ficheiro atraves de outro link.

Este é o meu projecto, como fazo para activar a nevegação só por formularios?

http://www.4shared.com/file/7MXkTwOG/Registos_navegar_formularios.html

O formulario "arranque" é o que deve ser iniciado automaticamnete, apartir deste navego para os restantes.

Cumps e obrigado

Realmente existem problemas com os links, erros 404.

Deu-me erro de link também. aguarde que vou ver

Está a da erros em todos. Faça assim:

1- Um Módulo


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
__________________________________________________________________________________

'Private Sub Form_Load()
Call AccessTransparente(0)
'End Sub


:

Boas vieirasoft

Esse codigo colo no modulo.

Mas como activo esse modulo? É atraves do comando :

'Private Sub Form_Load()
Call AccessTransparente(0)
'End Sub

Não é?! Mas oonde ponho esse codigo no formulario? o meu formulario não aparece no visual basic.

cumps

Resolvido