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

    Compartilhe

    rodrigosky
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 79
    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 : 317
    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 : 79
    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 : 317
    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 : 79
    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 : 317
    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 : 317
    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 : 317
    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 : 79
    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: Ter 26 Set 2017, 10:16