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


    [Resolvido]Erro ao usar INSERT INTO

    iberlucio
    iberlucio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 15/12/2015

    [Resolvido]Erro ao usar INSERT INTO Empty [Resolvido]Erro ao usar INSERT INTO

    Mensagem  iberlucio 21/12/2015, 18:11

    Ola povo,
    Estou fazendo um insert na tabela LOGSYS,
    porém, a operação é executada mas não gera dados na tabela, e não retorna codigo de erro,
    Alguém me da uma força, não estou conseguindo ver o erro.

    Já testei de 2(duas) formas.

    FORMA 1

    Private Sub BtnSalvar_Click()
    On Error GoTo BtnSalvar_Click_Err
    txtusuario = Var_Usu
    txtUama = Var_Uama
    txtOperacao = "ALTERAÇÃO"
    txtSoceduc = COD_SOCEDU
    TxtNome = NOME_SOCEDU

    CurrentDb.Execute "Insert Into LOGSYS" _
    & "Usuario_log = ('" & txtusuario & "')," _
    & "uama_log =('" & txtUama & "')," _
    & "operacao_log =('" & txtOperacao & "')," _
    & "soceduc_log =('" & txtSoceduc & "')," _
    & "nome_log =('" & TxtNome & "')"

    BtnSalvar_Click_Exit:
      Exit Sub

    BtnSalvar_Click_Err:
       MsgBox ("Erro ao incluir dados LOGSYS Erro:" & Erro$)
       Resume BtnSalvar_Click_Exit

    End Sub


    FORMA 2

    DoCmd.SetWarnings False
    DoCmd.RunSQL "Insert Into LOGSYS (txtusuario, txtuama, txtoperacao, txtsoceduc, txtnome) VALUES('" & TXTUSUARIO & "',' " & TXTUAMA & " ', ' " & TXTOPERACAO & " ',' " & TXTSOCEDUC & " ',' " & TxtNome & " ')"
    MsgBox "Registro incluído com sucesso!", vbExclamation, "Registro de entrada"
    DoCmd.SetWarnings True

    As duas não gera o registro.


    Obrigado pela ajuda.
    iberlucio
    iberlucio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 15/12/2015

    [Resolvido]Erro ao usar INSERT INTO Empty Re: [Resolvido]Erro ao usar INSERT INTO

    Mensagem  iberlucio 6/1/2016, 11:02

    Resolvido.

      Data/hora atual: 22/11/2024, 12:04