[Resolvido]Alteração de mais de um ficheiro em access após ter alterado apenas um

Boa tarde, fiz o k explica no link a baixo e resultar direitinho.
http://maximoaccess.forumeiros.com/t1620-resolvidoso-formulario-principal-na-inicializacao-do-bd

O problema é que preciso ter a minha base de dados apenas com a interface e outra em que se possa ter acesso a tudo. No entanto, após fazer as alterações explicadas no link a cima, alterou-me todos os outros ficheiros em acess que tinha!
Como posso alterar apenas o k quero sem que me alterem os outros?
Será por usar o Access 2010?

Olá, tente os passos abaixo:

PASSO 1 - Cole o a função abaixo em um módulo novo

Código:

Option Explicit

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

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

Function AccessTransparente(Nivel As Integer)

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

PASSO 2 - Coloque, no evento "Ao carregar" do formulário principal

Código:

Call AccessTransparente(0)

Muito Obrigada Criquio =)

Funcionou perfeitamente! Há pouco quando alterava uma bd, após fechar essa e abrir uma outra alterava a que me abrisse, como se os códigos passassem para a segunda.
Agora isso já não acontece.

Sabe-me explicar o que estava a acontecer?