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]Duplicar registro subformulário atraves "Sim/Não"

    avatar
    fabianobilo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 144
    Registrado : 10/09/2012

    [Resolvido]Duplicar registro subformulário atraves "Sim/Não" Empty [Resolvido]Duplicar registro subformulário atraves "Sim/Não"

    Mensagem  fabianobilo em 4/1/2017, 21:24

    Boa tarde pessoal

    Tenho dois campos a serem duplicados a partir "Sim/Não" ou seja.

    Quando marcado "Sim" duplicar os campos (NomeExame,Validade) no subformulário.

    Att

    Fabiano

    avatar
    fabianobilo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 144
    Registrado : 10/09/2012

    [Resolvido]Duplicar registro subformulário atraves "Sim/Não" Empty Duplicar registro subformulário atraves "Sim/Não"

    Mensagem  fabianobilo em 4/1/2017, 22:22

    Galera!

    Montei o codigo e deu certo.

    Fica a dica ai
    ______________________________________________________

    Dim dbs As DAO.Database, Rst As DAO.Recordset
    Dim F As Form
    Set dbs = CurrentDb
    Set Rst = Me.RecordsetClone

    On Error GoTo Err_btnDuplicate_Click

    Me.Tag = Me![IDExames]


    With Rst
    .AddNew
    !IDExames = Me!IDExames
    !NomeExame = Me!NomeExame
    !Validade = Me!Validade
    .Update
    .Move 0, .LastModified
    End With
    Me.Bookmark = Rst.Bookmark

    DoCmd.SetWarnings False
    DoCmd.OpenQuery
    DoCmd.SetWarnings True

    Me![frmFuncionarioExameSub].Requery

    Exit_btnduplicate_Click:
    Exit Sub

    Err_btnDuplicate_Click:
    MsgBox Error$
    Resume Exit_btnduplicate_Click:

      Data/hora atual: 31/5/2020, 00:55