MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Gravar em form com subform

    avatar
    PauloFerreira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/02/2018

    [Resolvido]Gravar em form com subform Empty [Resolvido]Gravar em form com subform

    Mensagem  PauloFerreira 28/6/2018, 15:27

    Oi companheiros tenho aqui mais uma duvida e preciso de tirar com vocês. Num form com subform ao guardar ( botão encontra-se no form ), ao guardar apenas envia para novo registo no subform mantendo o registo atual no form, utilizo o seguinte código.

    Código:
    Private Sub Salvar_Click()
    If MsgBox("Guardar ?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acNewRec
    Me.IDtabCadClientes.SetFocus
    End If
    End Sub

    Obrigado
    livio.sfranca
    livio.sfranca
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 09/01/2018

    [Resolvido]Gravar em form com subform Empty Re: [Resolvido]Gravar em form com subform

    Mensagem  livio.sfranca 28/6/2018, 17:03

    Tente trocar o comando:

    DoCmd.GoToRecord , , acNewRec

    por:

    DoCmd.GoToRecord , "Nome do seu form", acNewRec 'troque Nome do seu form pelo nome do seu form principal mantendo as aspas


    pode tentar esse também:

    DoCmd.RunCommand acCmdRecordsGoToNew


    Se não der certo, pode ser que tenha algum problema no vinculo entre form e subform.

    avatar
    PauloFerreira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/02/2018

    [Resolvido]Gravar em form com subform Empty Re: [Resolvido]Gravar em form com subform

    Mensagem  PauloFerreira 2/7/2018, 12:28

    Oi amigo, obrigado pela ajuda, resolvido da seguinte forma como você falou, ficando assim o código.

    Código:
    Private Sub btnSalvar_Click()
    If MsgBox("Deseja Guardar o Registo Efetuado ?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.RunCommand acCmdRecordsGoToNew
    End If
    End Sub

    Abraço e obrigado.

    Conteúdo patrocinado


    [Resolvido]Gravar em form com subform Empty Re: [Resolvido]Gravar em form com subform

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 00:44