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

4 participantes

    [Resolvido]Inserir dados de tabela em subformulário

    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 27/05/2016

    [Resolvido]Inserir dados de tabela em subformulário Empty [Resolvido]Inserir dados de tabela em subformulário

    Mensagem  Helden 20/5/2022, 02:46


    Bom dia pessoal, preciso inserir dados da tblProtocolosQT no subformulario (frmItensDaPrescricao) dos pacientes.
    Preciso que insira todos os medicamentos cuja coluna "Protocolo" na tblProtocolosQT seja igual a "cboProtocolos" do formulario (no evento antes de atualizar). Esses medicamentos do protocolo devem ficar gravados para cada paciente .(deve se relacionar com codigoPaciente.
    obs: um protocolo tipo chamado Folfox é formado por vários medicamentos e suas respectivas doses e dosagens.
    Coloquei a clausula Where nesse código mas não consegui.

    Private Sub cboProtocolo_BeforeUpdate(Cancel As Integer)
    Dim rst1 As Recordset
    Dim rst2 As Recordset
    Dim Sel1 As String
    Dim Sel2 As String
    'Tabela de destino
    Sel1 = "Select * From tblItensDaPrescricao "
    Set rst1 = CurrentDb.OpenRecordset(Sel1)
    'Tabela de origem
    Sel2 = "Select * From tblProtocolosQT Where Protocolo = cboProtocolo "
    Set rst2 = CurrentDb.OpenRecordset(Sel2)
    Do While Not rst2.EOF
    rst1.AddNew
    rst1![Medicamento] = rst2![Medicamento]
    rst1![Quantidade] = rst2![Quantidade]
    rst1![Posologia] = rst2![Posologia]
    rst1![Via] = rst2![Via]

    rst1.Update

    rst2.MoveNext
    Loop
    rst2.Close
    rst1.Close

    End Sub

    https://www.dropbox.com/s/p9y6pzfah3gap5d/Banco%20de%20dados1.accdb?dl=0
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2087
    Registrado : 23/01/2018

    [Resolvido]Inserir dados de tabela em subformulário Empty Re: [Resolvido]Inserir dados de tabela em subformulário

    Mensagem  crysostomo 26/5/2022, 01:57

    Boa noite. Só vincular o sub com o codigo do paciente.
    O codigo do paciente tem que está na sub.
    Um pequena exemplo
    Anexos
    [Resolvido]Inserir dados de tabela em subformulário Attachmentmedicamentos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (55 Kb) Baixado 11 vez(es)


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3775
    Registrado : 04/04/2010

    [Resolvido]Inserir dados de tabela em subformulário Empty Re: [Resolvido]Inserir dados de tabela em subformulário

    Mensagem  Avelino Sampaio 26/5/2022, 08:31

    Olá!

    Uma provável causa esta nesta linha:

    Sel2 = "Select * From tblProtocolosQT Where Protocolo = cboProtocolo "

    Altere para:

    Sel2 = "Select * From tblProtocolosQT Where Protocolo ='" & cboProtocolo & "'"

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 27/05/2016

    [Resolvido]Inserir dados de tabela em subformulário Empty Re: [Resolvido]Inserir dados de tabela em subformulário

    Mensagem  Helden 31/5/2022, 13:59

    Bom dia! primeiramente obrigado por compartilhar seus tempos e conhecimentos.
    Desculpem a demora na resposta , estava tentando ajustar o sistema.
    REalizei vários ajustes e o código evoluiu, mas, esta parando em "update"
    Não consigo descobrir porque o código não evolui, se puderem me ajudar, obrigado!

    https://www.dropbox.com/s/p54ssxd2hj7tgb2/Prescri%C3%A7%C3%A3o%20teste.accdb?dl=0
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 27/05/2016

    [Resolvido]Inserir dados de tabela em subformulário Empty Re: [Resolvido]Inserir dados de tabela em subformulário

    Mensagem  Helden 17/6/2022, 21:28

    Pessoal fiz varias modificaçoes mas o codigo da cbobox (cboInserirProtocolo)trava no update
    Pede para relacionar tabela tblPrescricao mas não parece tao simples
    Gostaria que esse codigo (ao clicar na cboInserirProtocolo) inserisse registros da tabela tblItensProtocolo para tblItensPrescricao Where Protocolo ='" & cboInsereProtocolo & "'"
    Nao sei se o codigo insere todos os itens das linhas Where Protocolo ='" & cboInsereProtocolo & "'"
    TAmbem precisa inserir o Id na tblItensPrecricao que seria o mesmo do sub formulario ativo (tblPrescricao) porque sao tabelas relacionadas, nao sei como faz , faz muito tempo que estou tentando.
    Posto o sistema de interesse.

    Private Sub cboInsereProtocolo_BeforeUpdate(Cancel As Integer)
    Dim rst1 As Recordset
    Dim rst2 As Recordset
    Dim Sel1 As String
    Dim Sel2 As String
    'Tabela de destino
    Sel1 = "Select * From tblItensPrescricao "
    Set rst1 = CurrentDb.OpenRecordset(Sel1)
    'Tabela de origem
    Sel2 = "Select * From tblItensProtocolo Where Protocolo ='" & cboInsereProtocolo & "'"
    Set rst2 = CurrentDb.OpenRecordset(Sel2)
    Do While Not rst2.EOF
    rst1.AddNew
    rst1![PROTOCOLO] = rst2![PROTOCOLO]
    rst1![Medicamento] = rst2![Medicamento]
    rst1![Dose] = rst2![Dose]
    rst1![Via] = rst2![Via]

    rst1.Update

    rst2.MoveNext
    Loop
    rst2.Close
    rst1.Close
    End Sub


    https://www.dropbox.com/s/0z0585ww6ca9u8p/Banco%20de%20dados21.accdb?dl=0
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Inserir dados de tabela em subformulário Empty Re: [Resolvido]Inserir dados de tabela em subformulário

    Mensagem  scandinavo 20/6/2022, 17:55

    substitua o seu codigo por este e mude o local do evento da cmbox para depois de atualizar


    DoCmd.RunCommand acCmdSaveRecord 'Salvo o Registro antes de começar a selecionar os dados
    Dim rst1 As Recordset
    Dim rst2 As Recordset
    Dim Sel1 As String
    Dim Sel2 As String

    'Tabela de destino
    Sel1 = "Select * From tblItensPrescricao "
    Set rst1 = CurrentDb.OpenRecordset(Sel1)
    'Tabela de origem
    Sel2 = "Select * From tblItensProtocolo Where Protocolo ='" & cboInsereProtocolo & "'"
    Set rst2 = CurrentDb.OpenRecordset(Sel2)
    Do While Not rst2.EOF

    rst1.AddNew
    '2 cria o vinculo com a tabela tblItensPrescricao
    rst1![IDPrescricao] = Forms!frmPrescricao.subFrmPrescricao!IDPrescricao 'Linha adcionada
    rst1![Protocolo] = rst2![Protocolo]
    rst1![Medicamento] = rst2![Medicamento]
    rst1![Dose] = rst2![Dose]
    rst1![Via] = rst2![Via]

    rst1.Update

    rst2.MoveNext
    Loop
    rst2.Close
    rst1.Close
    '3 atualiza o subfrm
    Me.subFrmItensPrescricao.Requery 'Linha adcionada
    End Sub
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 27/05/2016

    [Resolvido]Inserir dados de tabela em subformulário Empty Re: [Resolvido]Inserir dados de tabela em subformulário

    Mensagem  Helden 21/6/2022, 03:12

    Scandinavo, sua inteligência supera os caminhos da lógica, eu agradeço muitissimo por compartilhar seu conhecimento aqui, que nos engrandece, engrandece nosso conhecimento e nossa evolução, engrandesse esse forum que contribui imenssamente ao conhecimento e ao desenvollvimento de nossa inteligência e dessa maravilha que são os sitemas.
    Mais uma vez obrigado.
    Heldenrson Foletto, oncologista.

    Postarei com uma modificação do Layout do subformulario das caixas de texto mudo para combinação, para quem tiver interesse.

    https://www.dropbox.com/s/0z0585ww6ca9u8p/Banco%20de%20dados21.accdb?dl=0


    Última edição por Helden em 21/6/2022, 03:28, editado 1 vez(es)
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Inserir dados de tabela em subformulário Empty Re: [Resolvido]Inserir dados de tabela em subformulário

    Mensagem  scandinavo 21/6/2022, 03:22

    Valeu pelo elogio,
    um vai ajudando o outro, assim todos evoluímos.


    Ate mais

      Data/hora atual: 3/7/2022, 09:02