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


3 participantes

    [Resolvido]Verificar se tabela já existe

    rg3915
    rg3915
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 17/06/2013

    [Resolvido]Verificar se tabela já existe Empty Verificar se tabela já existe

    Mensagem  rg3915 15/8/2013, 18:13

    Espero que não tenha nenhum post sobre isso porque o Google não achou ainda pra mim, mas...
    Como eu faço para saber se uma tabela já existe?
    Algo tipo:

    If strTabela.existe Then MsgBox "A tabela " & strTabela & " já existe."
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar se tabela já existe Empty Re: [Resolvido]Verificar se tabela já existe

    Mensagem  Cláudio Más 15/8/2013, 23:29

    Tente acessar a tabela via código, abrindo um recordset.
    Se não ocorrer erro, é porque a tabela existe.
    rg3915
    rg3915
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 17/06/2013

    [Resolvido]Verificar se tabela já existe Empty Re: [Resolvido]Verificar se tabela já existe

    Mensagem  rg3915 18/8/2013, 22:58

    Código:
    If Not IsNull(DLookup("Name","MSysObjects","Name='minhaTabela'")) Then MsgBox "A tabela já existe"
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar se tabela já existe Empty Re: [Resolvido]Verificar se tabela já existe

    Mensagem  Cláudio Más 19/8/2013, 03:22

    Essa solução precisa ser adaptada, pois se existir outro objeto (um formulário, por exemplo) com o nome pesquisado, mas não a tabela, vai avisar erradamente que a tabela já existe.
    A não ser que use prefixos nos nomes dos objetos (como tbl_xxx, frm_abc), mas ainda assim seria melhor aprimorar o código.

    Além disso, apesar de um DLookup ser "inofensivo", não recomendo ficar acessando tabelas do sistema, via código ou não. Vai que... Shocked
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]Verificar se tabela já existe Empty Re: [Resolvido]Verificar se tabela já existe

    Mensagem  Avelino Sampaio 19/8/2013, 08:10

    Olá!

    Te ofereci uma solução nos comentários deste meu artigo, que corrige o que o amigo Claudio chamou a sua atenção.

    http://www.usandoaccess.com.br/dicas/dica30.asp

    A proposta do amigo Claudio também é muito boa, sobre utilizar o erro no recordset:

    Public Function fncTabelaExiste(strNomeTabela As String) As Boolean
    Dim rs As DAO.Recordset
    On Error Resume Next
    Set rs = CurrentDb.OpenRecordset(strNomeTabela)
    If Err Then
       fncTabelaExiste = False
    Else
       fncTabelaExiste = True
    End If
    Set rs = Nothing
    End Function


    If fncTabelaExiste("noemDatabela") then
    'tabela existe
    else
    'tabela não existe
    end if

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    adm.nneto gosta desta mensagem


    Conteúdo patrocinado


    [Resolvido]Verificar se tabela já existe Empty Re: [Resolvido]Verificar se tabela já existe

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 08:09