Amigos experts, boa tarde !
Cheguei num momento do desenvolvimento de um BD que não consigo mais avançar. Sei que é um problema recorrente aqui no fórum, mas preciso da ajuda dos companheiros muito mais experientes!
Em um formulário (4_1 Nova inscrição), há um campo em que após selecionar a forma de pagamento em uma caixa de combinação "Forma de Pagamento" (Combinação270), o usuário "cai" na guia correspondente, dentro de um Controle Guia (Guia_FormadePgto). Até então, tudo ok.
O problema está em quando preciso inserir determinados campos da tabela "5 Pagamentos" na guia específica. Por exemplo, os campos "Data de Emissão", "Data de Vencimento", "Quantidade de Parcelas", "Valor da Parcela" e "Valor Total" na Guia "Boleto Bancário ... aí aparece o código "Recordset não pode ser atualizado".
O mesmo acontece com as outras guias do Controle Guia "Guia_FormadePgto".
Seguem os códigos existentes no formulário:
Private Sub CboCPF_AfterUpdate()
Me.txtNomeCompleto = Me.CboCPF.Column(1)
End Sub
Private Sub Comando247_Click()
CurrentDb.Execute "INSERT INTO [5 Pagamentos] ([Forma de Pagamento]) Values ('" & Nz(Me.Combinação270.Value, 0) & "')"
End Sub
Private Sub Combinação31_AfterUpdate()
Me.Palestrante = Me.Combinação31.Column(2)
Me.Data_do_Evento = Me.Combinação31.Column(3)
Me.Valor = Me.Combinação31.Column(6)
End Sub
Private Sub Estado_AfterUpdate()
Me.Cidade.Requery
Me.Cidade.SetFocus
End Sub
Private Sub Combinação270_AfterUpdate()
If Nz(Me.ActiveControl.Value) = "" Then Exit Sub
Select Case Me.ActiveControl.Value
Case "Boleto Bancário"
Me("Boleto Bancário").SetFocus
Case "Cartão de Crédito"
Me("Cartão de Crédito").SetFocus
Case "Cartão de Débito"
Me("Cartão de Débito").SetFocus
Case "Transferência Bancária - DOC"
Me("DOC").SetFocus
Case "Transferência Bancária - TED"
Me("TED").SetFocus
Case "Pagamento Presencial"
Me("Pagamento Presencial").SetFocus
Case "Link (PagSeguro)"
Me("Link (PagSeguro)").SetFocus
End Select
End Sub
Obs.: Fiz uma relação entre as tabelas 4 Inscrições e 5 Pagamentos, para viabilizar a aparição dos campos da tabela 5 Pagamentos no formulário, a fim de os mesmos serem incluidos no formulário.
Agradeço aos amigos pela atenção !
Um dia chego perto do nível de vocês e ajudarei mais no Fórum !!!
Gde abç !!
filipebrg
Cheguei num momento do desenvolvimento de um BD que não consigo mais avançar. Sei que é um problema recorrente aqui no fórum, mas preciso da ajuda dos companheiros muito mais experientes!
Em um formulário (4_1 Nova inscrição), há um campo em que após selecionar a forma de pagamento em uma caixa de combinação "Forma de Pagamento" (Combinação270), o usuário "cai" na guia correspondente, dentro de um Controle Guia (Guia_FormadePgto). Até então, tudo ok.
O problema está em quando preciso inserir determinados campos da tabela "5 Pagamentos" na guia específica. Por exemplo, os campos "Data de Emissão", "Data de Vencimento", "Quantidade de Parcelas", "Valor da Parcela" e "Valor Total" na Guia "Boleto Bancário ... aí aparece o código "Recordset não pode ser atualizado".
O mesmo acontece com as outras guias do Controle Guia "Guia_FormadePgto".
Seguem os códigos existentes no formulário:
Private Sub CboCPF_AfterUpdate()
Me.txtNomeCompleto = Me.CboCPF.Column(1)
End Sub
Private Sub Comando247_Click()
CurrentDb.Execute "INSERT INTO [5 Pagamentos] ([Forma de Pagamento]) Values ('" & Nz(Me.Combinação270.Value, 0) & "')"
End Sub
Private Sub Combinação31_AfterUpdate()
Me.Palestrante = Me.Combinação31.Column(2)
Me.Data_do_Evento = Me.Combinação31.Column(3)
Me.Valor = Me.Combinação31.Column(6)
End Sub
Private Sub Estado_AfterUpdate()
Me.Cidade.Requery
Me.Cidade.SetFocus
End Sub
Private Sub Combinação270_AfterUpdate()
If Nz(Me.ActiveControl.Value) = "" Then Exit Sub
Select Case Me.ActiveControl.Value
Case "Boleto Bancário"
Me("Boleto Bancário").SetFocus
Case "Cartão de Crédito"
Me("Cartão de Crédito").SetFocus
Case "Cartão de Débito"
Me("Cartão de Débito").SetFocus
Case "Transferência Bancária - DOC"
Me("DOC").SetFocus
Case "Transferência Bancária - TED"
Me("TED").SetFocus
Case "Pagamento Presencial"
Me("Pagamento Presencial").SetFocus
Case "Link (PagSeguro)"
Me("Link (PagSeguro)").SetFocus
End Select
End Sub
Obs.: Fiz uma relação entre as tabelas 4 Inscrições e 5 Pagamentos, para viabilizar a aparição dos campos da tabela 5 Pagamentos no formulário, a fim de os mesmos serem incluidos no formulário.
Agradeço aos amigos pela atenção !
Um dia chego perto do nível de vocês e ajudarei mais no Fórum !!!
Gde abç !!
filipebrg