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 19/10/2017, 16: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 : 934
    Registrado : 08/02/2011

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

    Mensagem  cafpr em 19/10/2017, 18: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 20/10/2017, 09: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 : 934
    Registrado : 08/02/2011

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

    Mensagem  cafpr em 20/10/2017, 17: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 23/10/2017, 18: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 23/10/2017, 18: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 : 934
    Registrado : 08/02/2011

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

    Mensagem  cafpr em 26/10/2017, 21: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 27/10/2017, 14: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 : 934
    Registrado : 08/02/2011

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

    Mensagem  cafpr em 27/10/2017, 18: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 28/10/2017, 09: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 : 934
    Registrado : 08/02/2011

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

    Mensagem  cafpr em 30/10/2017, 20: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 7 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 31/10/2017, 09: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 31/10/2017, 09: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 : 934
    Registrado : 08/02/2011

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

    Mensagem  cafpr em 31/10/2017, 12:13

    OK cheers

      Data/hora atual: 22/11/2017, 05:51