MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Inserir dados em outro formulário de alguns registros

    andrelecio
    andrelecio
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Inserir dados em outro formulário de alguns registros Empty [Resolvido]Inserir dados em outro formulário de alguns registros

    Mensagem  andrelecio em 29/11/2018, 14:12

    Salve amigos,

    Tenho uma nova dúvida e peço ajuda dos mestres aqui

    Tenho um formulário banco no qual faço inserção dos movimentos, alguns campos deste form são comuns ao form proventos, por exemplo quando a pessoa recebe um depósito, gostaria de inserir um novo registro também no formulário proventos a partir do formulário banco e para isso fiz o seguinte a partir de um botão no form banco

    Código:
    Private Sub insereprov_Click()
     DoCmd.OpenForm "proventos", acNormal
        Forms![proventos].descricao = Me.descricao
        Forms![proventos].valor = Me.entrada
        Forms![proventos].data = Me.data
    End Sub

    funciona ok, o problema é que ele deleta o primeiro registro para inserir os dados, como adicionar um comando para que o botão faça isso em um novo registro?

    Uma outra dúvida é:

    Tem como desabilitar este botão no caso do campo [entrada] ser igual a zero?

    Agradeço de antemão
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Inserir dados em outro formulário de alguns registros Empty Re: [Resolvido]Inserir dados em outro formulário de alguns registros

    Mensagem  vieirasoft em 29/11/2018, 16:22

    Talvez assim

    DoCmd.GoToRecord , , acNewRec

    ou

    DoCmd.RunCommand acCmdRecordsGoToNew

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Inserir dados em outro formulário de alguns registros Empty Re: [Resolvido]Inserir dados em outro formulário de alguns registros

    Mensagem  Silvio em 29/11/2018, 16:47

    A primeira o Sérgio te respondeu....

    A segunda vamos lá...

    Tem como desabilitar este botão no caso do campo [entrada] ser igual a zero?

    if isNull ( me.ENTRADA) or me.ENTRADA = "" then
    me.seubotão.enabled =false
    else
    exit sub
    end if


    Colocar no mesmo evento: ao carregar e ao abrir...e no botão nova entrada.
    andrelecio
    andrelecio
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Inserir dados em outro formulário de alguns registros Empty Re: [Resolvido]Inserir dados em outro formulário de alguns registros

    Mensagem  andrelecio em 29/11/2018, 19:45

    Mestre Sérgio já tinha Resolvido com um post seu mesmo e com a mesma solução, e Obrigado Silvio, funcionou perfeito, sucesso!
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Inserir dados em outro formulário de alguns registros Empty Re: [Resolvido]Inserir dados em outro formulário de alguns registros

    Mensagem  Silvio em 30/11/2018, 10:17

    Bom dia...

    Que bom que resolveu, o fórum agradece o retorno.

    Abraços


    .................................................................................
    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."

      Data/hora atual: 14/8/2020, 00:20