MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]apagar tabela viculada

    Compartilhe

    Helder Milhome
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 03/07/2011

    [Resolvido]apagar tabela viculada

    Mensagem  Helder Milhome em Qui 08 Maio 2014, 16:11

    Boa tarde Amigos

    estou com um problema em apagar tabelas viculadas
    quando faço a vinculação elas vem bonitinhas mas quando quero vincular outras de outro banco de dados
    elas nao apagam , vicula outras com o mesmo nome acrecidas pelo 1, 2, assim vai....

    vinculo assim

    Private Sub CMDImportarFiliais_Click()


    Me.COMFiliais.SetFocus
    If Me.COMFiliais.Text = "" Then
    MsgBox "Selecione primeiro uma filial!"
    End
    End If

       Me.Rot01.Visible = True
       Me.Repaint
       
    Me.COMFiliais.SetFocus

       If Me.COMFiliais.Text = "PAJUÇARA" Then
       strCaminho = "D:\SysScoEsp\Bancos de dados\BaseFin001.mdb"
       códFilial = 1
     
       ElseIf Me.COMFiliais.Text = "MARANGUAPE" Then
       strCaminho = "D:\SysScoEsp\Bancos de dados\BaseFin002.mdb"
       códFilial = 2
       
    ......
     'Inicia o processo de vinculação
     
     DoCmd.TransferDatabase acLink, "Microsoft Access", strCaminho, acTable, "Fluxo Caixa Red", "Fluxo Caixa Red", False
     DoCmd.TransferDatabase acLink, "Microsoft Access", strCaminho, acTable, "Fluxo Caixa Sub Red", "Fluxo Caixa Sub Red", False

    Beleza ate aqui
    mais quando seleciono outra filial nao apaga as que nao preciso mais
    usando o comando drop table


       Dim dbs As Database
       Set dbs = CurrentDb
       dbs.Execute "DROP TABLE Fluxo Caixa Red;"
       Set dbs = CurrentDb
       dbs.Execute "DROP TABLE Fluxo Caixa Sub Red;"

    o interessante que ela apaga si tiver so um nome, como esta assim nao apaga...

    Desde ja agradeço
    Helder


    Última edição por Helder Milhome em Qui 08 Maio 2014, 18:08, editado 1 vez(es)

    chsestrem
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 466
    Registrado : 01/03/2010

    Re: [Resolvido]apagar tabela viculada

    Mensagem  chsestrem em Qui 08 Maio 2014, 17:06

    Amigo,

    Faça o DROP TABLE antes do processo de vinculação.

    Sds,


    .................................................................................
    Charles Sestrem
    [Você precisa estar registrado e conectado para ver este link.]

    Helder Milhome
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 03/07/2011

    Re: [Resolvido]apagar tabela viculada

    Mensagem  Helder Milhome em Qui 08 Maio 2014, 18:06

    sim... Amigo Charles eu já faço isso assim que abri o formulario
    Valeu.. amigo

    chsestrem
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 466
    Registrado : 01/03/2010

    Re: [Resolvido]apagar tabela viculada

    Mensagem  chsestrem em Qui 08 Maio 2014, 18:34

    Amigo, não tem erro faça que dá certo!

    Private Sub CMDImportarFiliais_Click()


    Me.COMFiliais.SetFocus
    If Me.COMFiliais.Text = "" Then
    MsgBox "Selecione primeiro uma filial!"
    End
    End If

      Me.Rot01.Visible = True
      Me.Repaint
     
    Me.COMFiliais.SetFocus

      If Me.COMFiliais.Text = "PAJUÇARA" Then
      strCaminho = "D:\SysScoEsp\Bancos de dados\BaseFin001.mdb"
      códFilial = 1

      ElseIf Me.COMFiliais.Text = "MARANGUAPE" Then
      strCaminho = "D:\SysScoEsp\Bancos de dados\BaseFin002.mdb"
      códFilial = 2
     
    ......

    '''Acredito ter um End If aqui.....


    '''' 'Inicia o processo de vinculação

    '''''''Faça o Drop Table aqui

    Dim dbs As Database
      Set dbs = CurrentDb
      dbs.Execute "DROP TABLE Fluxo Caixa Red;"
      Set dbs = CurrentDb
      dbs.Execute "DROP TABLE Fluxo Caixa Sub Red;"

    ''''''E Então faça o vinculo!


    DoCmd.TransferDatabase acLink, "Microsoft Access", strCaminho, acTable, "Fluxo Caixa Red", "Fluxo Caixa Red", False
    DoCmd.TransferDatabase acLink, "Microsoft Access", strCaminho, acTable, "Fluxo Caixa Sub Red", "Fluxo Caixa Sub Red", False

    Msgbox "Tabelas Vinculadas do Banco: " & strCaminho

    End Sub


    .................................................................................
    Charles Sestrem
    [Você precisa estar registrado e conectado para ver este link.]

    Helder Milhome
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 03/07/2011

    Re: [Resolvido]apagar tabela viculada

    Mensagem  Helder Milhome em Qui 08 Maio 2014, 19:23

    Ok amigo
    deu certo..
    muito obrigado
    At+
    Helder

      Data/hora atual: Sab 03 Dez 2016, 15:39