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]Copiar o valor de um campo de um subformulário para outro e salvar na tabela

    avatar
    well-e
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 07/03/2014

    [Resolvido]Copiar o valor de um campo de um subformulário para outro e salvar na tabela Empty [Resolvido]Copiar o valor de um campo de um subformulário para outro e salvar na tabela

    Mensagem  well-e 7/3/2014, 18:13

    Boa tarde!
    Tenho pouca experiência com Access e estou com um probleminha aqui que talvez seja fácil para a maioria..

    O que quero é o seguinte, quando for criado um novo tratamento (subformulário frmsubtratamentos) e o usuário clicar no Codtratamento, o form
    frmprocedimentos seja aberto (isso já acontece) e os campos Codtratamento dos subformularios já seja preenchido no primeira linha e após preenchido,
    ao clicar, os dados sejam salvos no BD, isso não está acontecendo.
    Segue o mdb anexo.
    Anexos
    [Resolvido]Copiar o valor de um campo de um subformulário para outro e salvar na tabela AttachmentConsultorio_teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (100 Kb) Baixado 34 vez(es)
    avatar
    AzorKiller
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 70
    Registrado : 27/09/2013

    [Resolvido]Copiar o valor de um campo de um subformulário para outro e salvar na tabela Empty Re: [Resolvido]Copiar o valor de um campo de um subformulário para outro e salvar na tabela

    Mensagem  AzorKiller 7/3/2014, 20:15

    Boas well-e,

    Tenta ver alguma coisa aqui se te ajuda http://maximoaccess.forumeiros.com/t17786-resolvidoexcluir-e-transferir-para-outra-tabela
    penso que é +- o mesmo problema.
    avatar
    well-e
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 07/03/2014

    [Resolvido]Copiar o valor de um campo de um subformulário para outro e salvar na tabela Empty Re: [Resolvido]Copiar o valor de um campo de um subformulário para outro e salvar na tabela

    Mensagem  well-e 7/3/2014, 21:51

    Obrigado pela dica amigo, ajudou bastante. Usei o seguinte código:

    Dim db1 As Database, rs1 As DAO.Recordset

    Set db1 = CurrentDb

    Set rs1 = db1.OpenRecordset("Procedimentos", dbOpenTable)

    With rs1

    .AddNew
    ![Codtratamento] = Me.Codtratamento

    .Update

    End With

    DoCmd.OpenForm "frmprocedimentos", , , "Codtratamento =" & Me.Codtratamento


    porém cada vez que clico cria uma linha nova e quero que isso ocorra apenas na primeira vez, o que posso fazer agora?
    avatar
    AzorKiller
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 70
    Registrado : 27/09/2013

    [Resolvido]Copiar o valor de um campo de um subformulário para outro e salvar na tabela Empty Re: [Resolvido]Copiar o valor de um campo de um subformulário para outro e salvar na tabela

    Mensagem  AzorKiller 7/3/2014, 22:18

    Gostava te ajudar mais mas também estou aprendendo a trabalhar no Access Embarassed 
    avatar
    well-e
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 07/03/2014

    [Resolvido]Copiar o valor de um campo de um subformulário para outro e salvar na tabela Empty Re: [Resolvido]Copiar o valor de um campo de um subformulário para outro e salvar na tabela

    Mensagem  well-e 10/3/2014, 16:55

    Consegui resolver o problema de adição de linhas em excesso.

    Dim db1 As Database, rs1 As DAO.Recordset, rs As Recordset

    Set db1 = CurrentDb

    Set rs = db1.OpenRecordset("select * FROM Procedimentos WHERE Codtratamento = " & Me.Codtratamento, dbOpenDynaset)

    If rs.EOF Then

    Set rs1 = db1.OpenRecordset("Procedimentos", dbOpenTable)

    With rs1

    .AddNew
    ![Codtratamento] = Me.Codtratamento

    .Update

    End With

    DoCmd.OpenForm "frmprocedimentos", , , "Codtratamento =" & Me.Codtratamento

    Else

    DoCmd.OpenForm "frmprocedimentos", , , "Codtratamento =" & Me.Codtratamento
    End If

    avatar
    AzorKiller
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 70
    Registrado : 27/09/2013

    [Resolvido]Copiar o valor de um campo de um subformulário para outro e salvar na tabela Empty Re: [Resolvido]Copiar o valor de um campo de um subformulário para outro e salvar na tabela

    Mensagem  AzorKiller 10/3/2014, 20:22

    Ainda bem que ficou resolvido amigo  Very Happy 

    Leia isso, para encerrar o tópico.
    http://maximoaccess.forumeiros.com/t860-resolucao-de-topicos
    avatar
    well-e
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 07/03/2014

    [Resolvido]Copiar o valor de um campo de um subformulário para outro e salvar na tabela Empty Re: [Resolvido]Copiar o valor de um campo de um subformulário para outro e salvar na tabela

    Mensagem  well-e 10/3/2014, 20:29

    Tópico resolvido. Obrigado!

      Data/hora atual: 27/1/2023, 04:22