MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Tratar o erro

    Compartilhe

    PauloFerreira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Tratar o erro

    Mensagem  PauloFerreira em Dom 25 Mar - 20: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

    PauloFerreira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Tratar o erro

    Mensagem  PauloFerreira em Dom 25 Mar - 20: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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Tratar o erro

    Mensagem  Alexandre Neves em Ter 27 Mar - 13: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

    PauloFerreira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Tratar o erro

    Mensagem  PauloFerreira em Qua 28 Mar - 20:33

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

      Data/hora atual: Ter 23 Out - 14:48