MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Repetir o valor de alguns campos no próximo registro

    Compartilhe
    andrelecio
    andrelecio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 02/03/2012

    Repetir o valor de alguns campos no próximo registro

    Mensagem  andrelecio em 5/12/2018, 10:20

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4244
    Registrado : 20/04/2011

    Re: Repetir o valor de alguns campos no próximo registro

    Mensagem  Silvio em 5/12/2018, 10:27

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    andrelecio
    andrelecio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 02/03/2012

    Re: Repetir o valor de alguns campos no próximo registro

    Mensagem  andrelecio em 5/12/2018, 10:32

    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]
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4244
    Registrado : 20/04/2011

    Re: Repetir o valor de alguns campos no próximo registro

    Mensagem  Silvio em 5/12/2018, 10:50

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

    É isso ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    andrelecio
    andrelecio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 02/03/2012

    Re: Repetir o valor de alguns campos no próximo registro

    Mensagem  andrelecio em 5/12/2018, 10:53

    isso mesmo, quero copiar os campos:

    descricao
    valor
    tipo
    status

    deixar em branco

    data_venc
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4244
    Registrado : 20/04/2011

    Re: Repetir o valor de alguns campos no próximo registro

    Mensagem  Silvio em 5/12/2018, 10:59

    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.

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

    Bons estudos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    andrelecio
    andrelecio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 02/03/2012

    Re: Repetir o valor de alguns campos no próximo registro

    Mensagem  andrelecio em 5/12/2018, 11:04

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4244
    Registrado : 20/04/2011

    Re: Repetir o valor de alguns campos no próximo registro

    Mensagem  Silvio em 5/12/2018, 11:32

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    andrelecio
    andrelecio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 02/03/2012

    Re: Repetir o valor de alguns campos no próximo registro

    Mensagem  andrelecio em 5/12/2018, 11:37

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3755
    Registrado : 06/11/2009

    Re: Repetir o valor de alguns campos no próximo registro

    Mensagem  Assis em 5/12/2018, 11:39

    Bom dia Amigos


    rsMov("valor") = Me.valor

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

    Tente alterar para txtvalor






    .................................................................................
    *** Só sei que nada sei ***
    andrelecio
    andrelecio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 02/03/2012

    Re: Repetir o valor de alguns campos no próximo registro

    Mensagem  andrelecio em 5/12/2018, 12:13

    mesmo mudando pata txtvalor continua apresentando o erro:

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3755
    Registrado : 06/11/2009

    Re: Repetir o valor de alguns campos no próximo registro

    Mensagem  Assis em 5/12/2018, 12:31

    Boa tarde

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

    On Error GoTo Erro


    .................................................................................
    *** Só sei que nada sei ***
    andrelecio
    andrelecio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 02/03/2012

    Re: Repetir o valor de alguns campos no próximo registro

    Mensagem  andrelecio em 5/12/2018, 12:35

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3755
    Registrado : 06/11/2009

    Re: Repetir o valor de alguns campos no próximo registro

    Mensagem  Assis em 5/12/2018, 13:01

    Andre

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



    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 23/3/2019, 11:27