Repetir o valor de alguns campos no próximo registro

Salve pessoal,

Eu gostaria de uma ajuda no sentido de:

Em um formulário contas a pagar tenho os campos [data_venc], [descricao], [valor], [tipo] e [fornecedor], em um pagamento recorrente, todos, exceto a data de vencimento vão se repetir por muitos registros (uma compra a prestação por exemplo)

Pergunta:

Como faço para colocar um botão no formulário que adiciona todos os dados do registro atual no próximo exceto o campo [data_venc]?


Agradeço de antemão

Bom dia....se os campos se repetem então podemos dizer que serão fixos...certo ?

Em um botão que abre um novo registro.. no evento ao clicar coloque.

me.descricao.value=" coloque aqui o texto que deseja "

e assim por diante

Obrigado pela resposta Silvio,

Talvez não tenha explicado bem, vamos lá:

Neste formulário entro com todas as contas a pagar de minha casa, então quando compro algo a prestação tenho registros recorrentes, mas não são fixos, hoje compro um objeto, amanhã outro, etc

Sendo assim, gostaria de colocar um botão para repetir o registro atual em um novo registro com todos os campos exceto o [data_venc]

Ok...você quer apenas copiar dados inseridos em um FRM e copia-los para o próximo ?

É isso ?

isso mesmo, quero copiar os campos:

descricao
valor
tipo
status

deixar em branco

data_venc

Segue o link daqui mesmo para teus estudos. Basta apenas adaptar a rotina que está na mensagem de numero 2 para o que necessita em teu sistema.

https://www.maximoaccess.com/t16938-resolvidorepetir-um-valor-em-todos-os-registros-em-um-formulario-continuo-e-loop-por-data

Bons estudos.

Eu encontrei o seguinte código e adaptei, mas não está clonando

Código:

Private Sub Comando147_Click()
On Error GoTo Erro
Dim strQtde As Integer, I As Byte
If MsgBox("Confirma clonagem do registro?", vbYesNo + vbQuestion, "Atenção!") = True Then
strQtde = InputBox("Clonar quantas vezes?", "Clonagem de Título.")
Set rsMov = CurrentDb.OpenRecordset("Recebimentos")
For I = 1 To strQtde
rsMov.AddNew
rsMov("tipo") = Me.tipo
rsMov("descricao") = Me.descricao
rsMov("valor") = Me.valor
rsMov("status") = Me.status
rsMov.Update
Next I
MsgBox "Registro clonado com sucesso.", vbInformation, strTitulo & strVersao
Set rsMov = Nothing
Else
MsgBox "Operação cancelada.", vbInformation, "Atenção!!"
Exit Sub
End If

Sai:
Set rsMov = Nothing
Exit Sub
Erro:
MsgBox "Erro ao clonar título.", vbInformation, "Atenção!!"
Resume Sai
End Sub

Onde ocorre o erro ? tentou o modo de depuração ?

Bom, duas coisas:

Primeira:

Para futuras consultas, resolvi o problema com pesquisa aqui no forum mesmo, adicionei um botão, e ao adicionar um novo registro e clicar no mesmo, ele busca as informações do último registro:

Código:


Private Sub Comando147_Click()
Me.tipo = Nz(DLast("tipo", "contas_a_pagar"))
Me.descricao = Nz(DLast("descricao", "contas_a_pagar"))
Me.valor = Nz(DLast("valor", "contas_a_pagar"))
Me.status = Nz(DLast("status", "contas_a_pagar"))
End Sub


Segundo:

O código anterior é muito interessante para contas recorrentes, por exemplo, uma conta com 12 prestações, evitaria muito trabalho, no modo depuração não apresentou problema, mas simplesmente exibe a mensagem "Erro ao clonar título", esqueci de alguma coisa ou o código está com algum erro

Bom dia Amigos


rsMov("valor") = Me.valor

Essa palavra valor como é uma palavra reservada do VBA pode causar problema.

Tente alterar para txtvalor

mesmo mudando pata txtvalor continua apresentando o erro:

1. A mensagem confirma clonagem do registro? aparece
2. Operação Cancelada

Boa tarde

Apague a linha abaixo , para ver aonde ocorre o erro.

On Error GoTo Erro

O erro ocorre ao chamar o inputbox

Código:


If MsgBox("Confirma clonagem do registro?", vbYesNo + vbQuestion, "Atenção!") = True Then
            strQtde = InputBox("Clonar quantas vezes?", "clonar")


quando clico sim, ele deveria abrir a inputbox para informar a quantidade de registros e é onde ocorre o erro

Andre

Poste a BD para obter ajuda, mas detalhe bem os nomes dos formulários a rever.