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

    [Resolvido]Tratar o erro

    avatar
    PauloFerreira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/02/2018

    [Resolvido]Tratar o erro Empty [Resolvido]Tratar o erro

    Mensagem  PauloFerreira 25/3/2018, 21:22

    Oi no meu outro tópico coloquei uma questão e ficou resolvida, faltando apenas um pormenor, porém se o utilizador clicar no botão criar tabela, e se esquecer colocar o nome da nova tabela da um erro, proprio do access. Pretendia que, e sei que se trata do tratamento do erro, mas como posso resolver este erro?
    O meu código esta assim...

    Código:
    Private Sub CriarTabela_Click()
    Dim SQL As String
    SQL = "SELECT * INTO " & Me.txtNomeTabela & " FROM tblOriginal WHERE 1=1"  ' Neste caso duplica a tabela sem copiar os registros
    CurrentDb.Execute (SQL)
    MsgBox "Tabela criada com sucesso...", vbInformation
    Me.txtNomeTabela = Null
    End Sub
    avatar
    PauloFerreira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/02/2018

    [Resolvido]Tratar o erro Empty Re: [Resolvido]Tratar o erro

    Mensagem  PauloFerreira 25/3/2018, 21:34

    Oi dei um avanço no código, mas pretendia ao clicar no OK fosse parrar na Cx. de texto. Ora vejam...
    Código:
    Private Sub CriarTabela_Click()
    On Error GoTo TrataErro
    Dim SQL As String
    SQL = "SELECT * INTO " & Me.txtNomeTabela & " FROM tblOriginal WHERE 1=1"  ' Neste caso duplica a tabela sem copiar os registros
    CurrentDb.Execute (SQL)
    MsgBox "Tabela criada com sucesso...", vbInformation
    Me.txtNomeTabela = Null
    Exit Sub
    TrataErro:
    MsgBox "Digite o nome da tabela...", vbInformation
    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Tratar o erro Empty Re: [Resolvido]Tratar o erro

    Mensagem  Alexandre Neves 27/3/2018, 14:57

    Boa tarde,
    Código:
    Private Sub CriarTabela_Click()
    On Error GoTo TrataErro
    Dim SQL As String
    SQL = "SELECT * INTO " & Me.txtNomeTabela & " FROM tblOriginal WHERE 1=1"  ' Neste caso duplica a tabela sem copiar os registros
    CurrentDb.Execute (SQL)
    MsgBox "Tabela criada com sucesso...", vbInformation
    Me.txtNomeTabela = Null
    Exit Sub
    TrataErro:
    MsgBox "Digite o nome da tabela...", vbInformation
    txtNomeTabela.setfocus
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    PauloFerreira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/02/2018

    [Resolvido]Tratar o erro Empty Re: [Resolvido]Tratar o erro

    Mensagem  PauloFerreira 28/3/2018, 21:33

    Oi amigo fico agradecido. E reparo em que é algo fácil. Agradecido.

    Conteúdo patrocinado


    [Resolvido]Tratar o erro Empty Re: [Resolvido]Tratar o erro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 23:19