Bom dia, sou novo no forum e esta é a segunda vez que peço ajuda aos bons amigos deste foro. Nao entendo de codigo mas, com a ajuda de voces, vou copiando e colando os codigo e estão dando certo. preciso transferir o registro de uma tabela para a outra.Até ai tudo bem,mas preciso que o registro da primeira tabela seja deletado.Como faço?
Private Sub Lista7_Click()
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!favorecido.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!favorecido = Lista7.Column(0)
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!favorecido.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!lancamento.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!lancamento = Lista7.Column(1)
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!lancamento.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!vl_credito.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!vl_credito = Lista7.Column(2)
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!vl_credito.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!parcela.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!parcela = Lista7.Column(3)
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!parcela.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!num_parcelas.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!num_parcelas = Lista7.Column(4)
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!num_parcelas.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!data_vencto.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!data_vencto = Lista7.Column(5)
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!data_vencto.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!num_parcelas.SetFocus
If MsgBox("Excluir registro atual?", vbYesNo, "Excluir") = vbYes Then
MsgBox "Registro apagado", vbInformation, "Excluído"
Else
Cancel = True
End If
DoCmd.Close acForm, ("frm_Pesq_cobrar"), acSavePrompt
End Sub
End Sub
Private Sub Lista7_Click()
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!favorecido.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!favorecido = Lista7.Column(0)
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!favorecido.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!lancamento.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!lancamento = Lista7.Column(1)
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!lancamento.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!vl_credito.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!vl_credito = Lista7.Column(2)
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!vl_credito.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!parcela.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!parcela = Lista7.Column(3)
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!parcela.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!num_parcelas.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!num_parcelas = Lista7.Column(4)
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!num_parcelas.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!data_vencto.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!data_vencto = Lista7.Column(5)
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!data_vencto.SetFocus
Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!num_parcelas.SetFocus
If MsgBox("Excluir registro atual?", vbYesNo, "Excluir") = vbYes Then
MsgBox "Registro apagado", vbInformation, "Excluído"
Else
Cancel = True
End If
DoCmd.Close acForm, ("frm_Pesq_cobrar"), acSavePrompt
End Sub
End Sub