MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    Gerenciador de tabelas vinculadas

    avatar
    Zeusangel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Australia
    Mensagens : 65
    Registrado : 07/11/2011

    Gerenciador de tabelas vinculadas Empty Gerenciador de tabelas vinculadas

    Mensagem  Zeusangel 7/12/2012, 21:40

    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
    Shocked Shocked Shocked Shocked Shocked Shocked Embarassed Embarassed Embarassed Embarassed Embarassed Question Question Question Question Question
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1306
    Registrado : 21/01/2012

    Gerenciador de tabelas vinculadas Empty Re: Gerenciador de tabelas vinculadas

    Mensagem  Cláudio Más 8/12/2012, 13:15

    Bom dia,

    Verifique se o service pack do Office está atualizado.
    avatar
    Zeusangel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Australia
    Mensagens : 65
    Registrado : 07/11/2011

    Gerenciador de tabelas vinculadas Empty Obrigado

    Mensagem  Zeusangel 8/12/2012, 14:52

    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
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1306
    Registrado : 21/01/2012

    Gerenciador de tabelas vinculadas Empty Re: Gerenciador de tabelas vinculadas

    Mensagem  Cláudio Más 8/12/2012, 16:22

    Sorry, I'm not seeing the problem. Could you post a picture please?
    avatar
    Zeusangel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Australia
    Mensagens : 65
    Registrado : 07/11/2011

    Gerenciador de tabelas vinculadas Empty Thanks Master

    Mensagem  Zeusangel 11/12/2012, 00:20

    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.
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1306
    Registrado : 21/01/2012

    Gerenciador de tabelas vinculadas Empty Re: Gerenciador de tabelas vinculadas

    Mensagem  Cláudio Más 13/12/2012, 03:11

    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
    avatar
    Zeusangel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Australia
    Mensagens : 65
    Registrado : 07/11/2011

    Gerenciador de tabelas vinculadas Empty Thanks

    Mensagem  Zeusangel 15/12/2012, 00:26

    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.
    cheers cheers cheers cheers Shocked Shocked Shocked Shocked Shocked

      Data/hora atual: 19/1/2022, 01:21