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

    avatar
    rodrigosky
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir valores de tabela Empty [Resolvido]Excluir valores de tabela

    Mensagem  rodrigosky 16/1/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
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir valores de tabela Empty Re: [Resolvido]Excluir valores de tabela

    Mensagem  ifahidalgo 16/1/2015, 14:15

    tenta assim

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

    avatar
    rodrigosky
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir valores de tabela Empty Re: [Resolvido]Excluir valores de tabela

    Mensagem  rodrigosky 16/1/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.
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir valores de tabela Empty Re: [Resolvido]Excluir valores de tabela

    Mensagem  ifahidalgo 16/1/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 & "');")
    avatar
    rodrigosky
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir valores de tabela Empty Re: [Resolvido]Excluir valores de tabela

    Mensagem  rodrigosky 19/1/2015, 13:05

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir valores de tabela Empty Re: [Resolvido]Excluir valores de tabela

    Mensagem  ifahidalgo 21/1/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.
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir valores de tabela Empty Re: [Resolvido]Excluir valores de tabela

    Mensagem  ifahidalgo 26/1/2015, 18:58

    funcionou?
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir valores de tabela Empty Re: [Resolvido]Excluir valores de tabela

    Mensagem  ifahidalgo 29/1/2015, 18:23

    se continuar dando erros, passe o bd
    avatar
    rodrigosky
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir valores de tabela Empty Re: [Resolvido]Excluir valores de tabela

    Mensagem  rodrigosky 3/3/2015, 18:03

    deu certo

    muito obrigado a todos

    Conteúdo patrocinado


    [Resolvido]Excluir valores de tabela Empty Re: [Resolvido]Excluir valores de tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:32