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

    [Resolvido]Botão Gravar no Form para Salvar SubForm

    Compartilhe

    Silvio Scalon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/10/2017

    [Resolvido]Botão Gravar no Form para Salvar SubForm

    Mensagem  Silvio Scalon em Qui 19 Out 2017, 18:07

    Boa tarde

    É a primeira vez que participo desde forum, mais tenho utilizado de vários exemplos dele através de pesquisa no google. Muito bom.

    Tenho um Form e um SubForm Contínuo e gostaria de salvar clicando no batão do Form.
    Pesquisei alguns exemplos mais não consegui resolver a questão.

    Se aglguém puder me ajudar, agradeço.
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    Registrado : 08/02/2011

    Re: [Resolvido]Botão Gravar no Form para Salvar SubForm

    Mensagem  cafpr em Qui 19 Out 2017, 20:43

    No ckick do botão de comando

    Private Sub btn_Salvar_Click()
    If Not IsNull(Me.IdProd) And Me.Dirty Then
    If MsgBox("O registro foi incluído ou alterado. Deseja salvar?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.RunCommand acCmdRefresh
    'DoCmd.Close
    Else
    Me.Undo
    DoCmd.CancelEvent
    End If
    End If

    DoCmd.GoToRecord , "", acNewRec

    End Sub

    Silvio Scalon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/10/2017

    Botão Gravar no Form para Salvar SubForm

    Mensagem  Silvio Scalon em Sex 20 Out 2017, 11:56

    Bom dia
    Obrigado pelo retorno super rápido.

    No SubForm o campo que preciso atualizar os valores está acoplado.

    Acredito que no código informado falta referenciar o SubForm.
    No SubForm ao mudar de registro ele já está salvando. Gostaria de salvar todos os registro do SubForm somente ao clicar no Botão Salvar do Form.


    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    Registrado : 08/02/2011

    Re: [Resolvido]Botão Gravar no Form para Salvar SubForm

    Mensagem  cafpr em Sex 20 Out 2017, 19:31

    teste

    [Você precisa estar registrado e conectado para ver este link.]

    Silvio Scalon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/10/2017

    Re: [Resolvido]Botão Gravar no Form para Salvar SubForm

    Mensagem  Silvio Scalon em Seg 23 Out 2017, 20:01

    CafPr Boa noite

    Abri o link que você postou, mais infelizmente ainda estou com o access 2003, não consigo visualizar.

    Caso tenha um exemplo para a minha versão fico grato.

    Abraços !

    Silvio Scalon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/10/2017

    Re: [Resolvido]Botão Gravar no Form para Salvar SubForm

    Mensagem  Silvio Scalon em Seg 23 Out 2017, 20:10

    CafPr

    usei este código no evento so subform "antes de atualizar", porém ao mudar de linha/registro pede a confirmação de Salvar ou Não.

    Dim Salvar As Integer

    If Me.Dirty Then
    Salvar = MsgBox("Deseja Salvar as Alterações...?", vbYesNo, "Atenção! ")

    If Salvar = vbNo Then
    Me.Undo
    DoCmd.CancelEvent

    End If
    End If
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    Registrado : 08/02/2011

    Re: [Resolvido]Botão Gravar no Form para Salvar SubForm

    Mensagem  cafpr em Qui 26 Out 2017, 23:40

    Poste o form e subform que irei colocar o codigo para você.

    Silvio Scalon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/10/2017

    Re: [Resolvido]Botão Gravar no Form para Salvar SubForm

    Mensagem  Silvio Scalon em Sex 27 Out 2017, 16:08

    Olá CafPr

    Segue o anexo do Bd.

    Obrigado pelo retorno.
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    Registrado : 08/02/2011

    Re: [Resolvido]Botão Gravar no Form para Salvar SubForm

    Mensagem  cafpr em Sex 27 Out 2017, 20:40

    Não veio anexo algum;

    Silvio Scalon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/10/2017

    Re: [Resolvido]Botão Gravar no Form para Salvar SubForm

    Mensagem  Silvio Scalon em Sab 28 Out 2017, 11:21

    Bom dia

    Estava com a extensão.rar

    Agora sim, está anexo.
    Anexos
    Botao no Form Salvando o FormSub.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (469 Kb) Baixado 9 vez(es)
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    Registrado : 08/02/2011

    Re: [Resolvido]Botão Gravar no Form para Salvar SubForm

    Mensagem  cafpr em Seg 30 Out 2017, 22:58

    Boa noite Silvio.

    Penso que a maneira de você optar em salvar ou não seria desta forma, mas fica ao seu critério. Veja:

    Na tabela Medicação acrescentei o campo salvar(sim/não) e oculteio no Frm_MedicacaoCompraSub.

    Coloquei o código no evento após atualizar do campo "compra". Assim terá a opção de salvar quando inserir ou alterar o campo.
    Anexos
    Botao no Form Salvando o FormSub.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (421 Kb) Baixado 10 vez(es)

    Silvio Scalon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/10/2017

    Re: [Resolvido]Botão Gravar no Form para Salvar SubForm

    Mensagem  Silvio Scalon em Ter 31 Out 2017, 11:46

    CafPr bom dia

    Obrigado pelo retorno.

    Muito boa a alternativa.

    Abraços !

    Silvio Scalon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/10/2017

    Re: [Resolvido]Botão Gravar no Form para Salvar SubForm

    Mensagem  Silvio Scalon em Ter 31 Out 2017, 11:50

    Como ficou o código !


    Private Sub TxtCompra_AfterUpdate()
    If Not IsNull(Me.TxtCompra) And Me.Dirty Then
    If MsgBox("O registro foi incluído ou alterado. Deseja salvar?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.RunCommand acCmdRefresh
    'DoCmd.Close
    Else
    Me.Undo
    DoCmd.CancelEvent
    End If
    End If

    End Sub
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    Registrado : 08/02/2011

    Re: [Resolvido]Botão Gravar no Form para Salvar SubForm

    Mensagem  cafpr em Ter 31 Out 2017, 14:13

    OK cheers

      Data/hora atual: Seg 19 Fev 2018, 13:06