[Resolvido]Salvar e excluir em duas tabelas diferentes

Bom dia,

Fiz a programação para salvar, conforme instrução do Fábio Peres, conforme abaixo:

Olá, não precisa ter os nomes iguais... As configuraçoes e você qe informa nessa linha por exemplo:
rs("Endereco") = Me.Endereco 'Aqui estou dizendo que é pra salvar no Campo da tabela "Endereco" os dados que estão no Campo do Formulario de nome Me.Endereco.

Então basta voce configurar de acordo...
Posso por exemplo Mandar salvar no Campo da tabela de nome EnderecoDoIndividuo os dados que estão no campo do formulario Me.Endereco
rs("EnderecoDoIndividuo ") = Me.Endereco

rs("EnderecoDoIndividuo ") <== Campo da Tabela

Me.Endereco <== Campo do Formulário, onde está o valor...


NÃO CONSIGO PROGRAMAR PARA EXCLUIR AO MESMO TEMPO DAS DUAS TABELAS, A PARTIR DO COMANDO EM UM DOS FORMULÁRIOS. [/h2]


Private Sub Btn_Excluir_Click()

MyReg = Me.IDCaixa
DoCmd.SetWarnings False 'Desabilita avisos.

If MsgBox("EXCLUIR Lançamento ID  " & MyReg & " ?  ", 36, "Excluindo") = 6 Then
 
   DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
   DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
   MsgBox "O Lançamento " & MyReg & " foi excluído com sucesso.  ", vbInformation, "SAV informa"

Else

   MsgBox "A tentativa de exclusão foi cancelada.  ", vbInformation, "Cancelando"
DoCmd.SetWarnings True ' Habilita os avisos.

Exit_ExcluirRegistro_Click:
   Exit Sub
Err_ExcluirRegistro_Click:
   Resume Exit_ExcluirRegistro_Click
   End If


End Sub


Obrigada.


Dina

Olá....

Algo semelhante a isso.


Private Sub Btn_Excluir_Click()
MyReg = Me.IDCaixa
If MsgBox("Deseja excluir o IdCaixa :" & Myreg & "?", vbquestion+vbyesno, me.caption) = vbno then
Me.Undo
DoCmd.CancelEvent
MsgBox "IdCaixa Não excluída !" & vbCrLf & "Ação cancelada pelo usuário !", vbInformation, Me.Caption
Else
CurrentDb.Execute ("delete * from SuaTabelaAqui Where IdCaixa = myreg ")
CurrentDb.Execute ("delete * from SuaOutraTabelaAqui Where IdCaixa = myreg ")
MsgBox "O Lançamento " & MyReg & " foi excluído com sucesso. ", vbInformation, "SAV informa"
End If
End Sub

Bom dia Silvio,

Fiz como mencionou, salvando nas duas ok.

Private Sub btn_salvar_Click()

If MsgBox("Deseja Salvar os Dados?", vbYesNo + vbInformation, "Atenção!!!") = vbYes Then
Dim DB As Database
Dim rs As dao.Recordset

Set DB = CurrentDb()
'ABRE O RECORDSET DA TABELA 2 PARA ADD OS DADOS.
Set rs = DB.OpenRecordset("Tb_Conta_Corrente")

rs.AddNew 'ADD NOVO REGISTRO
'NO CAMPO NOME DA TABELA2 COLOCA OS DADOS QUE TEM NO CAMPO ME.NOME DO FORMULARIO... E ASSIM SEGUE
rs("Empresa") = Me.txtempresa
rs("Histórico") = Me.txthistórico
rs("Data_Pagamento") = Me.txtData_pagto
rs("ClassifcDebito") = Me.txtClassifcDebito
rs("Crédito") = Me.txtcredito

rs.Update

'ENCERRA AS CONEXÕES E LIMPA DA MEMORIA
rs.Close
Set rs = Nothing
DB.Close
Set DB = Nothing
End If


quando vou excluir da a mensagem

Erro em tempo de execução 3061
Parâmetros insuficientes. Eram esperados 1.


Private Sub Btn_Excluir_Click()
MyReg = Me.IDCaixa
If MsgBox("Deseja excluir o Lançamento n.º IDCaixa :" & MyReg & "?", vbQuestion + vbYesNo, Me.Caption) = vbNo Then
Me.Undo
DoCmd.CancelEvent
MsgBox "IDCaixa Não excluída !" & vbCrLf & "Ação cancelada pelo usuário!", vbInformation, Me.Caption
Else
CurrentDb.Execute ("delete * from Tb_Movimento_Caixa Where IDCaixa = myreg")
CurrentDb.Execute ("delete * from Tb_Conta_Corrente Where IDMovimento = myreg")
MsgBox "O Lançamento " & MyReg & " foi excluído com sucesso. ", vbInformation, "SAV informa"
End If
End Sub

Bom dia Diná....

Por favor, zipa o teu projeto...e suba ele aqui para eu dar uma olhada...está meio esquisito o que me passou.

No aguardo.

Obs....tem que ser no formato *.ZIP

Silvio,

Segue o projeto.

De um formulário estou salvando em duas Tabelas a Tb_Movimento_Caixa e algumas informações para a tabela Tb_Conta_Corrente.

Preciso também que ao excluir da Tb_Movimento_Caixam automaticamente faça na Tb_Conta_Corrente.

Fiz a programação com o que vc me passou mas dá o erro que te falei anteriormente.

Agradeço pelo apoio e fico no aguardo.


Att.

Dina

Ok...vou dar uma passada de olhos nele.

Atualização....

1- me mandou o back-end.
2- banco de dados com senha de acesso.
3- preciso tanto do FE como do BE.
4- de preferência...sem senhas !!!

No aguardo.

desculpas esqueci da senha.

Deixei tudo em um arquivo só.

Segue novamente.

Obrigada.

Lamento...mas sem a senha fica impossível.




*** atualização 15:57 ****

tente dessa forma no botão excluir..

Private Sub Btn_Excluir_Click()
MyReg = Me.IDCaixa
If MsgBox("Deseja excluir o Lançamento n.º IDCaixa :" & MyReg & "?", vbQuestion + vbYesNo, Me.Caption) = vbNo Then
Me.Undo
DoCmd.CancelEvent
MsgBox "IDCaixa Não excluída !" & vbCrLf & "Ação cancelada pelo usuário!", vbInformation, Me.Caption
Else
CurrentDb.Execute "DELETE * FROM Tb_Movimento_Caixa WHERE IDCaixa =" & Me.IDCaixa & ""
CurrentDb.Execute "DELETE * FROM Tb_Conta_WHERE Where IDMovimento =" & Me.IDCaixa & ""
MsgBox "O Lançamento " & MyReg & " foi excluído com sucesso. ", vbInformation, "SAV informa"
End If
End Sub

duvidas...IDMovimento é igual ao IDCaixa ? Se não for...vai dar erro.

desculpas, tirei a senha não sei o que acontecer.

a senha é a1234.

obrigada

ok...vou dar uma olhada nele.

*** atualização ***

Primeira coisa a ser feita. Será criar um campo na tb_Conta_Corrente do campo: IDCaixa, tipo número !

Segundo...teste primeiro esse código ao salvar no teu sistema.

Private Sub btn_Salvar_Click()
If MsgBox("Deseja Salvar os Dados?", vbYesNo + vbInformation, "Atenção!!!") = vbNo Then
Me.Undo
DoCmd.CancelEvent
MsgBox "Dados não foram salvos !", vbInformation, Me.Caption
Else
DoCmd.Save


Dim Db As database
Dim rs As DAO.Recordset

Set Db = CurrentDb()
'ABRE O RECORDSET DA TABELA 2 PARA ADD OS DADOS.
Set rs = Db.OpenRecordset("Tb_Conta_Corrente")

rs.AddNew 'ADD NOVO REGISTRO
'NO CAMPO NOME DA TABELA2 COLOCA OS DADOS QUE TEM NO CAMPO ME.NOME DO FORMULARIO... E ASSIM SEGUE
rs("Empresa") = Me.txtempresa
rs("Histórico") = Me.txtHistórico
rs("Data_Pagamento") = Me.txtData_pagto
rs("ClassifcDebito") = Me.txtClassifcDebito
rs("Crédito") = Me.txtcredito
rs("IdCaixa") = Me.IDCaixa '---> incluido na tb_conta_corrente para quando for excluir

rs.Update

'ENCERRA AS CONEXÕES E LIMPA DA MEMORIA
rs.Close
Set rs = Nothing
Db.Close
Set Db = Nothing
End If

MsgBox " Dados Salvos com sucesso !", vbInformation, Me.Caption

End Sub

Além da minha mensagem anterior, copie e cole esse código no evento excluir ( desde que o campo IDCaixa esteja na outra tabela )

Código:

Private Sub Btn_Excluir_Click()
On Error GoTo fim
      
   Dim numRecord As Integer 'Declaração da variável
   numRecord = InputBox("Informe o Nº do Caixa..:", Me.Caption)
  
   'Confirmação de operação de delete
   If MsgBox("Deseja excluir o Caixa... Nº:  " & numRecord & "?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
            
       Dim SQL As String
       DoCmd.SetWarnings False 'Aviso de execução
       SQL = "DELETE * FROM Tb_Movimento_Caixa  WHERE IdCaixa = " & numRecord 'ALTERE O NOME DA TABELA E NOME DO CAMPO
       SQL = "DELETE * FROM Tb_Conta_Corrente WHERE IdCaixa = " & numRecord
                                                 'tabela             nome do campo
       DoCmd.RunSQL SQL 'Executa consulta
                                    
       MsgBox "Exclusão realizada com sucesso!", vbInformation, Me.Caption 'Confirmação do processo
       DoCmd.GoToRecord , , acNewRec
    
   Else
   MsgBox " Ação cancelada pelo usuário", vbInformation, Me.Caption
  
       Exit Sub
                              
   End If
   DoCmd.RunCommand acCmdRefresh
    
  
fim:
If Err.Number = 13 Then
MsgBox "Ação cancelada pelo usuário !", vbInformation, Me.Caption
If Err.Number = 2046 Then
MsgBox "Sem Caixa selecionado para a exclusão", vbInformation, Me.Caption
End If
End If

End Sub

Boa tarde Silvio,

Show!!!!!!

Consegui programar para excluir nas duas tabelas usando o código abaixo:

MyReg = Me.IDCaixa
DoCmd.SetWarnings False 'Desabilita avisos.

If MsgBox("EXCLUIR LANÇAMENTO N.º  " & MyReg & " ?  ", 36, "Excluindo") = 6 Then
 
   DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
   DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
   MsgBox "O Lançamento nº   " & MyReg & " foi excluído com sucesso.  ", vbInformation, "SAV informa"

Else

   MsgBox "A tentativa de exclusão foi cancelada.  ", vbInformation, "Cancelando"
DoCmd.SetWarnings True ' Habilita os avisos.

Exit_ExcluirRegistro_Click:
   Exit Sub
Err_ExcluirRegistro_Click:
   Resume Exit_ExcluirRegistro_Click
   End If


On Error GoTo fim
     
Dim numRecord As Integer 'Declaração da variável
numRecord = InputBox("Informe o Nº do Caixa..:", Me.Caption)
 
'CONFIRMAÇÃO DE OPERAÇÃO DE DELETE
If MsgBox("Deseja excluir o Caixa... Nº:  " & numRecord & "?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
           
Dim SQL As String
DoCmd.SetWarnings False 'Aviso de execução

'ALTERE O NOME DA TABELA E NOME DO CAMPO

SQL = "DELETE * FROM Tb_Movimento_Caixa  WHERE IDCaixa = " & numRecord
SQL = "DELETE * FROM Tb_Conta_Corrente WHERE IDCaixa = " & numRecord
DoCmd.RunSQL SQL 'Executa consulta

'CONFIRMAÇÃO DO PROCESSO
'MsgBox "Exclusão realizada com sucesso!", vbInformation, Me.Caption DoCmd.GoToRecord , , acNewRec
   
  Else
  MsgBox " Ação cancelada pelo usuário", vbInformation, Me.Caption
 
      Exit Sub
                             
  End If
  DoCmd.RunCommand acCmdRefresh
   
 
fim:
If err.Number = 13 Then
MsgBox "Ação cancelada pelo usuário !", vbInformation, Me.Caption
If err.Number = 2046 Then
MsgBox "Sem Caixa selecionado para a exclusão", vbInformation, Me.Caption

End If

End If

End Sub


Porém, preciso de mais uma ajuda no mesmo formulário.

Preciso Alterar nas duas tabelas no qual salvei o lançamento.

se usar o código abaixo, ele somente altera a primeira tabela fonte e me diz que irá duplicar o lançamento.

Private Sub Btn_Alterar_Click()

Data_Pagamento.enabled = True
Data_Pagamento.SetFocus

NOVO.enabled = False
Btn_Alterar.enabled = False
Primeiro.enabled = False
anterior.enabled = False
proximo.enabled = False
Ultimo.enabled = False
Btn_Excluir.enabled = False
Btn_Salvar.enabled = True

End Sub

Que bom que resolveu...

Mas seguindo a didática aqui do fórum....nova duvida, novo post.

Fazendo dessa forma, outros utilizadores que tenham a mesma duvida que você podem ser auxiliados.

Grato pela compreensão.

obrigada.