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]Excluir valores de tabela

    Compartilhe

    rodrigosky
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 77
    Registrado : 17/05/2013

    [Resolvido]Excluir valores de tabela

    Mensagem  rodrigosky em Sex 16 Jan 2015, 11:35

    Bom dia caros amigos, tenho o seguinte código mencionado abaixo para efetuar a exclusão e uma tabela especifica , onde somente será possível efetuar a exclusão se todos os campos da mesmas forem iguais, porem meu código da erro de sintaxe.

    Private Sub Comando40_Click()
    Dim sql As String
    Dim dataa As Long
    Dim fator_acumulado_cdi_t As Double
    Dim fator_diario_cdi_t As Double
    Dim rentabilidade_dia_cdi_t As Double


    dataa = data_cdi_Texto
    fator_acumulado_cdi_t = Texto9
    fator_diario_cdi_t = Texto35
    rentabilidade_dia_cdi_t = Texto32


    If MsgBox("Deseja Excluir o Registro do Dia " & data_cdi_Texto & " ?", vbQuestion + vbYesNo, "Sistema!") = vbYes Then

    DoCmd.SetWarnings (False)
    sql = "DELETE * FROM tbl_Caixa WHERE EXISTS(SELECT * FROM temp WHERE (temp.Valor = tbl_Caixa.Valor) AND (temp.Id_ContaCorrente = tbl_Caixa.Id_ContaCorrente) AND (temp.Id_Conta = tbl_Caixa.Id_Conta) AND (temp.data = tbl_Caixa.Data))"
    DoCmd.RunSQL sql

    MsgBox "Exclusão Efetuada com Sucesso para a Data " & data_cdi_Texto & " !!!", vbInformation, "Sistema!"
    Me.Requery


    End If
    End Sub

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 303
    Registrado : 13/10/2011

    Re: [Resolvido]Excluir valores de tabela

    Mensagem  ifahidalgo em Sex 16 Jan 2015, 14:15

    tenta assim

    CurrentDb.Execute ("DELETE * FROM tabela where campotabela1 = '" & campoform1 & "' and campotabela2 = '" & campoform2 & "' ;")


    rodrigosky
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 77
    Registrado : 17/05/2013

    Re: [Resolvido]Excluir valores de tabela

    Mensagem  rodrigosky em Sex 16 Jan 2015, 17:33

    ao substituir por


    CurrentDb.Execute ("DELETE * FROM tbl_cdi WHERE data_cdi = " & dataa & " AND fator_acumulado_cdi = " & fator_acumulado_cdi_t & " AND fator_diario_cdi = " & fator_diario_cdi_t & " AND rentabilidade_dia_cdi = " & rentabilidade_dia_cdi_t & " ;")


    ocorre a seguinte mensagem de erro

    Erro em tempo de execução ‘3075’

    Erro de sintaxe (vírgula) na expressão de consulta ‘data_cdi = 42013 AND fator_acumulado_cdi = 3722,2382816841 AND fator_diario_cdi=1,00043455 AND rentabilidade_dia_cdi=4,34550000000034E-04.

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 303
    Registrado : 13/10/2011

    Re: [Resolvido]Excluir valores de tabela

    Mensagem  ifahidalgo em Sex 16 Jan 2015, 17:52

    se tiver algum campo numero, texto, data mude para

    CurrentDb.Execute ("DELETE * FROM tabela where campotabela1 = int(val('" & camponumerico & "')) and campotabela2 = '" & campotexto & "' and campotabela3 = Cdate('" & campodata & "');")

    rodrigosky
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 77
    Registrado : 17/05/2013

    Re: [Resolvido]Excluir valores de tabela

    Mensagem  rodrigosky em Seg 19 Jan 2015, 13:05

    Fiz tais alterações agora o erro mudou, apresenta
    Erro no tempo de execução '3075'

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 303
    Registrado : 13/10/2011

    Re: [Resolvido]Excluir valores de tabela

    Mensagem  ifahidalgo em Qua 21 Jan 2015, 11:12

    verifique se algum campo da tabela for numerico, coloque como inteiro longo e 0 casas decimais ou 2. qualquer coisa manda o banco para dar uma olhada.

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 303
    Registrado : 13/10/2011

    Re: [Resolvido]Excluir valores de tabela

    Mensagem  ifahidalgo em Seg 26 Jan 2015, 18:58

    funcionou?

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 303
    Registrado : 13/10/2011

    Re: [Resolvido]Excluir valores de tabela

    Mensagem  ifahidalgo em Qui 29 Jan 2015, 18:23

    se continuar dando erros, passe o bd

    rodrigosky
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 77
    Registrado : 17/05/2013

    Re: [Resolvido]Excluir valores de tabela

    Mensagem  rodrigosky em Ter 03 Mar 2015, 18:03

    deu certo

    muito obrigado a todos

      Data/hora atual: Sex 09 Dez 2016, 09:37