Gerenciador de tabelas vinculadas

Bom dia senhores, vou voltar a vê-los mais uma vez e este é o meu pequeno problema tabelas precisamente ligadas, banco de dados separado com o Access 2007 assistente e, quando você pode ver e revincularlas com algum Gerenciador de tabelas vinculadas Os quadros não olha, você não pode ver. porque o que seria o problema, como eu já vi alguns problemas semelhantes com o Access 2003, com este Accwiz.dll arquivo. para atualizar, mas o problema é que não parece qualquer tabela, e você tem que atualizar o mesmo arquivo. alguém poderia me ajudar neste caso. porque ele não está olhando várias tabelas vinculadas??
de agradecimento Atemano, tenha um bom dia.
---------------------------------------------------------------------------------------------------------------------
Linked Table Manager

Masters nice day, I go back to see them once again and this is my little problem precisely linked tables, separate database with Access 2007 wizard, and when you can see and revincularlas with some Linked Table Manager tables do not look, you can not see. because what would be the problem, as I've seen some similar problems with access 2003, with this file ACCWIZ.DLL. to update, but the problem is that there does not look any table, and you have to update the same file. someone could help me in this case. because it is not looking several linked tables???
of Atemano thanks, have a nice day

Bom dia,

Verifique se o service pack do Office está atualizado.

Obrigado, Claudio fijate foi a localização do centro de confiança, por que não mostrar as outras mesas.
Mestre graças
---------------------------------------------------------------------------------------
Thanks, Claudio was the location of the trust center why not show the other tables.
Thanks Master

Sorry, I'm not seeing the problem. Could you post a picture please?

Thanks Master, and was resolved was only the trusted location, just add the new location and it worked.
Now perhaps you know of any function or module that I set the trusted location. ???? if not too much trouble master. Thank you for your attention.

Try:

Código:

Public Function AddTrustedLocation()
On Error GoTo err_proc
'WARNING:  THIS CODE MODIFIES THE REGISTRY
'sets registry key for 'trusted location'

  Dim intLocns As Integer
  Dim i As Integer
  Dim intNotUsed As Integer
  Dim strLnKey As String
  Dim reg As Object
  Dim strPath As String
  Dim strTitle as string
 
  strTitle = "Add Trusted Location"
  Set reg = CreateObject("wscript.shell")
  strPath = CurrentProject.Path

  'Specify the registry trusted locations path for the version of Access used
  strLnKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Format(Application.Version, "##,##0.0") & _
            "\Access\Security\Trusted Locations\Location"

On Error GoTo err_proc0
  'find top of range of trusted locations references in registry
  For i = 999 To 0 Step -1
      reg.RegRead strLnKey & i & "\Path"
      GoTo chckRegPths        'Reg.RegRead successful, location exists > check for path in all locations 0 - i.
checknext:
  Next
  MsgBox "Unexpected Error - No Registry Locations found", vbExclamation
  GoTo exit_proc
 
 
chckRegPths:
'Check if Currentdb path already a trusted location
'reg.RegRead fails before intlocns = i then the registry location is unused and
'will be used for new trusted location if path not already in registy

On Error GoTo err_proc1:
  For intLocns = 1 To i
      reg.RegRead strLnKey & intLocns & "\Path"
      'If Path already in registry -> exit
      If InStr(1, reg.RegRead(strLnKey & intLocns & "\Path"), strPath) = 1 Then GoTo exit_proc
NextLocn:
  Next
 
  If intLocns = 999 Then
      MsgBox "Location count exceeded - unable to write trusted location to registry", vbInformation, strTitle
      GoTo exit_proc
  End If
  'if no unused location found then set new location for path
  If intNotUsed = 0 Then intNotUsed = i + 1
 
'Write Trusted Location regstry key to unused location in registry
On Error GoTo err_proc:
  strLnKey = strLnKey & intNotUsed & "\"
  reg.RegWrite strLnKey & "AllowSubfolders", 1, "REG_DWORD"
  reg.RegWrite strLnKey & "Date", Now(), "REG_SZ"
  reg.RegWrite strLnKey & "Description", Application.CurrentProject.Name, "REG_SZ"
  reg.RegWrite strLnKey & "Path", strPath & "\", "REG_SZ"
 
exit_proc:
  Set reg = Nothing
  Exit Function
 
err_proc0:
  Resume checknext
 
err_proc1:
  If intNotUsed = 0 Then intNotUsed = intLocns
  Resume NextLocn

err_proc:
  MsgBox err.Description, , strTitle
  Resume exit_proc
 
End Function

Thanks Claudio, proves it and tell you how I was.
Thank you again. It may take a while but I bother you if I get stuck out there.