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]Copiar formulario e sub formulario

    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 750
    Registrado : 11/11/2009

    [Resolvido]Copiar formulario e sub formulario Empty [Resolvido]Copiar formulario e sub formulario

    Mensagem  scandinavo em 11/4/2020, 13:42

    Tenho um código (a parte que faz a copia do sub frm é do Avelino Sampaio) que faz a copias dos dados do form e do sub form esta funcionando perfeitamente.
    Mas acontece o seguinte caso eu tenha que fazer duas copias em seguida os dados do  formulário são copiados mas os dados do sub  formulário não.

    Volta a funcionar se eu fechar o formulário e reabrir.



    Segue o banco de dados para analise.
    Anexos
    [Resolvido]Copiar formulario e sub formulario AttachmentDuplicar form e sub form.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (65 Kb) Baixado 19 vez(es)
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 750
    Registrado : 11/11/2009

    [Resolvido]Copiar formulario e sub formulario Empty Re: [Resolvido]Copiar formulario e sub formulario

    Mensagem  scandinavo em 11/4/2020, 17:34

    Resolvi
    Estava faltando uma linha no código (rsP.MoveFirst 'para começar do inicio)

    'faz a copia dos dados do subformulario
    Dim rsP As DAO.Recordset
    Dim tbl As DAO.Recordset
    'Abre a tabela que receber? os dados
    Set tbl = CurrentDb.OpenRecordset("tblRecProduto")
    'carrega os dados do subformul?rio
    Set rsP = subfrmRecProduto.Form.RecordsetClone
    'Percorre os registros do subformul?rio um a um
    rsP.MoveFirst 'Informo para come?ar do inicio'******************Esta aqui
    Do While Not rsP.EOF
    'Copia os dados do subformul?rio para a tabela
    tbl.AddNew
    tbl!Receituario1 = Me!txtNumeroCopia
    tbl!Produto = rsP!Produto
    tbl!Dose = rsP!Dose
    tbl!Unid = rsP!Unid
    tbl.Update
    'vai para o pr?ximo registro do subformul?rio
    rsP.MoveNext

    Loop
    rs.Close
    tbl.Close
    rsP.Close
    Set tbl = Nothing
    Set rsP = Nothing
    Set db = Nothing
    MsgBox "Dados copiados...", vbInformation, "Duplica??o de Receituario"
    '*******************************************

      Data/hora atual: 5/7/2020, 08:44