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
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