[Resolvido]Sistema Saúde da Familia (ACS)

Relaxa amigão... Apesar de não ter o 2010 eu penso ser como falei acima... O Value é inerente a campos de valores múltiplos no Access 2010, já o vi em outro tópico...

O que ocorreu é que ao converter para versão inferior, como não foi encontrado o campo de valores múltiplos ele ficou sem locação na consulta, ai o pedido de parâmetro compreendeu? Não compreenda mal o Mestre JP....

Hipertensos:

SELECT tbl_CadFamDet.CodCadFam, tbl_CadFamDet.FamCad, tbl_CadFamDet.Paciente, tbl_CadFamDet.Sexo, tbl_CadFamDet.DataNasc, Ano_Idade([DataNasc]) AS Idade, tbl_CadFam.Endereco, tbl_CadFam.Numero, tbl_CadFamDet.Status, tbl_CadFamDet.HA_Medicacao, Format([Data_Cadastro],"m") AS CpMes
FROM tbl_CadFam INNER JOIN tbl_CadFamDet ON tbl_CadFam.Cod_Seq = tbl_CadFamDet.CodCadFam
WHERE (((tbl_CadFamDet.Status)="HA"))
ORDER BY Ano_Idade([DataNasc]);

Ok,Piloto eu ja tinha acertado o do Hipertenso,só um detalhe que observei,abra o Frm_CadFam,na aba Hipertensos não deveria estar preenchido com essas familias,pois elas não tem essa doença,só isso que vi anormal no mais ta beleza,veja ai o simples heheheh.

De detalhes disto..

Moverei este tópico a uma sala apropriada, posto que já extrapolou em número de mensagens e no mesmo foram resolvidos vários problemas.

Colocarei em Projetos em desenvolvimentos. Qualquer dúvida sobre o Sistema de Saude da Familia poderá ser postado sempre neste mesmo tópico.

Cumprimentos.

Piloto vou dar por resolvido essa lida,não quero mais complicar a vida de voces.
Piloto, mil vezes obrigado pela tua paciencia e atenção,desejo tudo de bom na tua vida.
"A paciencia é uma virtude, e poucos tem".

Abraços abençoado de Deus.

Kaynan, como te falei passei este tópico para sala Projetos em Desenvolvimentos. Aqui so daremos como encerrado quando o sistema estiver pronto...

Portanto qualquer dúvida sobre o mesmo pode postar aqui que continuaremos seguidamente até der como finalizado o projeto.

Retirarei o resolvido..

Qualquer dúvida não se acanhe em postar... Veja ao o que necessita e poste.

Cumprimentos.

https://dl.dropboxusercontent.com/u/90217826/ACDTESTE%202003.rar
PIloto,ao abrir o form Frm_CadFam e escolher o Status(Doença)eu fiz ao clicar duas vezes para abrir o frmPesqDoenca, até ai tudo bem,só que se o paciente tiver duas doença ou mais,não fica registrado nos relatório,ou na aba da doença escolhida,só registra se eu selecionar uma doença só,entende.

Abçs.

Dê mais detalhes citando passo a passo e os objetos envolvidos.

Cumprimentos.

Bem Piloto é como eu falei,abrindo o form CadFam e clicando 2 vezes no campo status, eu abro o form para selecionar as doença que o paciente tem,só que se eu selecionar mais que uma doença elas não ficam registradas no relatório,e nem na aba referente a tal doença.A não ser na aba Hipertenso que aparece pacientes mesmo sem ter essa doença entende.

Elas aparecerá no relatório abreviadas.... DIA, HA etc...

Kaynan... para mim isso teria que ser totalmente diferente.. se quiser ter o controle por doença em um form por doença..

Tem que ter uma tblDoenças e relacioná-las com o Paciente...

Cumprimentos.

Traduza as siglas das doenças... e fale suas respectivas abas...

Tem que colocar a sigla no critério da consulta no respectivo sub-formulário... por isso não filta.

Cumprimentos.

Kaynan... Realmente os filtros do subformularios dessa forma não filtrara..

Por exemplo se o paciente xxxxx tiver: DIA;GES

O Filtro "Ges" do subform não filtrará... assim so da certo com campos de valores multiplos...

Por favor...

Envie-me o modelo original do 2010... para tentarmos refaze o formulário....

Cumprimentos.

Kaynan.. resolvi.. colocarei aqui a SQL do subform gestantes... faça a mesma coisa para os demais...

O macete é como colocar o critério... veja para gestantes como fica o critério:


Como "*" & "Ges" & "*"

SELECT tbl_CadFamDet.CodCadFam, tbl_CadFamDet.Paciente, tbl_CadFamDet.GES_DataCad, tbl_CadFamDet.GES_DataUltRegra, tbl_CadFamDet.GES_ProvDoParto, tbl_CadFamDet.GES_InicioPreNatal1ºTrim, tbl_CadFamDet.GES_Data1ªVacina, tbl_CadFamDet.GES_Data2ªVacina, tbl_CadFamDet.GES_Data3ªVacina, tbl_CadFamDet.GES_DataReforco, tbl_CadFamDet.GES_6OuMaisGestacao, tbl_CadFamDet.GES_Natimorto_Aborto, tbl_CadFamDet.GES_Meno20Anos, tbl_CadFamDet.GES_36AnosEmais, tbl_CadFamDet.GES_Edema, tbl_CadFamDet.GES_Sangramento, tbl_CadFamDet.GES_Diabetes, tbl_CadFamDet.GES_PressaoAlta, tbl_CadFamDet.GES_ResultadoGestacao, tbl_CadFamDet.GES_Data1ºConsultaPuerperio, tbl_CadFamDet.GES_Data2ºConsultaPuerperio, tbl_CadFamDet.GES_Observacao, tbl_CadFamDet.Status, tbl_CadFamDet.Cod_SedDet
FROM tbl_CadFamDet
WHERE (((tbl_CadFamDet.CodCadFam)=[Formulários]![Frm_CadFam]![Cod_Seq]) AND ((tbl_CadFamDet.Status) Like "*" & "Ges" & "*"));

Cumprimentos.

https://dl.dropboxusercontent.com/u/90217826/PostoSaude2010.rar

Amigão em 2010.

oK Piloto vou vazer assim

Piloto pro hipertenso como é que fica o código.

Qual a sigla de hipertenso?

Abra a aba.. va no subform hipertensos.. na consulta... no critério do campo status

Como "*" & "Ges" & "*"

Substitua a sigla ges pela sigla de hipertensos.

Piloto desculpa mas o do \hioertenso não to coseguido,o Diabetico até deu certo

Verei isso ainda hoje... pois ficarei alguns dias fora da net apartir de amanha

Ate mais.

Se voce lesse os post's ficaria mais rápido...
Eu perguntei acima a sigla para hipertenso...

cumprimentos.

SELECT tbl_CadFamDet.CodCadFam, tbl_CadFamDet.Paciente, tbl_CadFamDet.HA_DataCad, tbl_CadFamDet.HA_Fum, tbl_CadFamDet.HA_Medicacao, tbl_CadFamDet.Status, tbl_CadFamDet.Cod_SedDet, tbl_CadFamDet.Status
FROM tbl_CadFamDet
WHERE (((tbl_CadFamDet.CodCadFam)=[Formulários]![Frm_CadFam]![Cod_Seq]) AND ((tbl_CadFamDet.Status) Like "*" & "HA" & "*"));

Cumprimentos.

Piloto funcionou,mas veja se consegue entender:eu tenho um paciente que tem 1 doença Diabete(DIA)beleza funciona direitinho, nos relatórios registram todos os que tem essa doença,mas SE o paciente tem 2 duas doenças diabete((DIA) e hipertenção(HA),ai no relatório aparece todos os que tem Dia e HA.Agora veja se eu for pesquisar outra vez quem tem DIA(diabete)aqueles que eu marquei com duas doenças não aparecem no relatório,nem os com Diabetes e nem os com Hipertenção. Oque acontece é que o relatório entende as duas doenças como uma só,entendeu.
Quando puder veja se tem algo a fazer.

Abçs.

Manda o BD amigão.. te enviei MP sobre um assunto particular, de uma olhada e me de uma resposta sobre a MP.

Cumprinebtos.

https://dl.dropboxusercontent.com/u/90217826/PSFPinhalCentral2003.zip
OLa amigo notei esse detalhe no bd no mais ta legal.

Cumprimentos.

Obs:Consegui fazer ele funcionar no access 2010,importando todas as tabelas e o resto todo pra um bd novo em 2010.

Boas Kaynan.. vamos finalizar este baita.. porque agora além de voce eu tambem o necessito.

Qual o problema?

Cumprimentos.

Piloto:eu tenho um paciente que tem 1 doença Diabete(DIA)beleza funciona direitinho nos relatórios registram todos os que tem essa doença, o paciente tem 2 duas doenças diabete((DIA) e hipertenção(HA) no relatório aparece todos os que tem Dia e HA.Agora veja, se eu for pesquisar outra vez quem tem DIA(diabete)aqueles que eu marquei Com DIA e HA não aparecem no relatório,nem os com Diabetes e nem os com Hipertenção. Oque acontece é que o relatório entende as duas doenças como uma só,entendeu.

Em qual relatório.. Seja mais específico...

Outra... Voce tem diversas consultas no BD.. Eu pretendo enxugar isto..
Faça um relatório mostrando o nome da consulta e em que formulário ou relatório ela está sendo utilizada.

Cumprimentos.

Ainda não entendi.. se possível faça isso para uma pessoa, me reenvie o bd citando a pessoa.. e o problema que está ocorrendo.

Cumprimentos.

Assim, abra o Frm_CadFam, a paciente Laryssa Varela tem DIA;HA,depois va no Menu e clica no botão Diabetico e veja que a Laryssa Varela não ta la no relatorio,e deveria estar porque ela tem diabete tambem porque la no cadastro foi colocado,entende e nem no de Hipertensão ela não aparece.
SE clicar em "Relatório Microareas" abre o Form para escolher as doenças,e gerar o relatorio por microarea,mas veja se escolher a microarea 01 e selecionar DIA no relatorio não aparece a Laryssa que tem DIA e HA,só aparece se selecionar DIA;HA.

HA:Hipertensão
DIA:Diabete

https://dl.dropboxusercontent.com/u/90217826/PSFPinhalCentral2003.zip
Veja PIloto.

SE clicar em "Relatório Microareas" abre o Form para escolher as
doenças,e gerar o relatorio por microarea,mas veja se escolher a
microarea 01 e selecionar DIA no relatorio não aparece a Laryssa que tem
DIA e HA,só aparece se selecionar DIA;HA.

Onde está esse bendito Relatório Microareas?

Cumprimentos.

Piloto o relatório da microareas se busca no formulario "FormAreasDoenças"e o relatório e o RelatMicDoe.

No relatório no evento ao abrir, substitua o código por este:

Private Sub Report_Open(Cancel As Integer)
Dim StrSQL As String
Dim StrStatus As String
        Forms!FormAreasDoenças.Visible = False
        StrStatus = Forms!FormAreasDoenças!txtDoenca
        StrStatus = Mid(StrStatus, 2)
        If Len(StrStatus) = 3 Then
            StrSQL = "SELECT tbl_CadFamDet.CodCadFam, tbl_CadFamDet.Cod_SedDet, tbl_CadFamDet.FamCad, tbl_CadFamDet.Paciente, tbl_CadFamDet.DataNasc, tbl_CadFamDet.Sexo, tbl_CadFam.Microarea, tbl_CadFamDet.Status, tbl_CadFam.Endereco" _
                    & " FROM tbl_CadFam INNER JOIN tbl_CadFamDet ON tbl_CadFam.Cod_Seq = tbl_CadFamDet.CodCadFam WHERE Status Like ""*"" & '" & StrStatus & "' & ""*"" And MicroArea = '" & Forms!FormAreasDoenças!txtArea & "';"
        Else
            StrSQL = "SELECT tbl_CadFamDet.CodCadFam, tbl_CadFamDet.Cod_SedDet, tbl_CadFamDet.FamCad, tbl_CadFamDet.Paciente, tbl_CadFamDet.DataNasc, tbl_CadFamDet.Sexo, tbl_CadFam.Microarea, tbl_CadFamDet.Status, tbl_CadFam.Endereco" _
                    & " FROM tbl_CadFam INNER JOIN tbl_CadFamDet ON tbl_CadFam.Cod_Seq = tbl_CadFamDet.CodCadFam WHERE Status In ('" & StrStatus & "')And MicroArea = '" & Forms!FormAreasDoenças!txtArea & "';"
        End If
Me.RecordSource = StrSQL
End Sub

Cumprimentos.

Ola abençoado,ficou melhor,mas veja a paciente Laryssa tem DIA e HA,se eu procuro por DIA ela aparece entre os DIAbeticos,mas se eu procuro HA ela ja não aparece,e devia aparecer pois ela tem as duas doenças entende.

Abçs.;

Verificaremos a ocorrência do sinal ; na string, caso retorne 0 siguinifica que foi selecionado apenas uma doença assim direcionando para a SQL apropriada... observe essa instrução na parte em azul.

Private Sub Report_Open(Cancel As Integer)
Dim StrSQL As String
Dim StrStatus As String
        Forms!FormAreasDoenças.Visible = False
        StrStatus = Forms!FormAreasDoenças!txtDoenca
        StrStatus = Mid(StrStatus, 2)
        
        If InStr(1, StrStatus, ";") = 0 Then
            StrSQL = "SELECT tbl_CadFamDet.CodCadFam, tbl_CadFamDet.Cod_SedDet, tbl_CadFamDet.FamCad, tbl_CadFamDet.Paciente, tbl_CadFamDet.DataNasc, tbl_CadFamDet.Sexo, tbl_CadFam.Microarea, tbl_CadFamDet.Status, tbl_CadFam.Endereco" _
                    & " FROM tbl_CadFam INNER JOIN tbl_CadFamDet ON tbl_CadFam.Cod_Seq = tbl_CadFamDet.CodCadFam WHERE Status Like ""*"" & '" & StrStatus & "' & ""*"" And MicroArea = '" & Forms!FormAreasDoenças!txtArea & "';"
        Else
            StrSQL = "SELECT tbl_CadFamDet.CodCadFam, tbl_CadFamDet.Cod_SedDet, tbl_CadFamDet.FamCad, tbl_CadFamDet.Paciente, tbl_CadFamDet.DataNasc, tbl_CadFamDet.Sexo, tbl_CadFam.Microarea, tbl_CadFamDet.Status, tbl_CadFam.Endereco" _
                    & " FROM tbl_CadFam INNER JOIN tbl_CadFamDet ON tbl_CadFam.Cod_Seq = tbl_CadFamDet.CodCadFam WHERE Status In ('" & StrStatus & "')And MicroArea = '" & Forms!FormAreasDoenças!txtArea & "';"
        End If
Me.RecordSource = StrSQL
End Sub

Cumprimentos.

Bem Piloto neste relatório deu certo,agora quero que abra o Menu do programa e acesse o botão Diabético e Hipertenço nestes a Laryssa não esta aparecendo.

Tentou ver ou resolver o problema?

Porque não funciona?


Cumprimentos.

Amigão... voce deve ver a solução e tentar ao menos aplicá-las onde há problema semelhante..

Cumprimentos.

Para diabéticos.. o relatório do botão no Menu, Botão Diabéticos

Na fonte do Registro do relatório:

SELECT tbl_CadFamDet.CodCadFam, tbl_CadFamDet.FamCad, tbl_CadFamDet.Paciente, tbl_CadFamDet.Sexo, tbl_CadFamDet.DataNasc, Ano_Idade([DataNasc]) AS Idade, tbl_CadFam.Endereco, tbl_CadFam.Numero, tbl_CadFamDet.Status, tbl_CadFamDet.DIA_Medicacao, tbl_CadFam.Data_Cadastro
FROM tbl_CadFam INNER JOIN tbl_CadFamDet ON tbl_CadFam.Cod_Seq = tbl_CadFamDet.CodCadFam
WHERE (((tbl_CadFamDet.Status) Like "*" & 'DIA' & "*"))
ORDER BY Ano_Idade([DataNasc]);

Cumprimentos.

Vou fazer isso.

Piloto parece que agora esta tudo ok,farei mais uns testes e retorno.
Abçs.

Ok.. Kaynan amigão.. estou pensando em utilizar o exemplo do Walter.. me pareceu mais o que necessito..

O que teria que ter a mais nele para utilização pelo Agente comunitário?

Estou fazendo o projeto gostaria que desse uma olhada e se pudesse me ajudar a completar o texto..
Principalmente nos ítems que fornecerei no sistema..

Olhe os ítens que coloquei e se possível adicione mais ítens que acha que o Agente utilizará..
Ai eu farei os ítens no sistema.

Cumprimentos

PIloto veja no meu bd no relatório,"Rel_Estatistica" ali esta tudo ou quase tudo que um agente de saude presisa.Aqui em meu município o agente tendo acesso a essas informações da familia esta completo.

Obs:tera que clicar varias vezes no "Rel_Estatistica"pra abrir essa ficha,ai voce ve o porque.

Abçs.

Piloto sera que neste meu bd teria como implantar também o Genograma,GenoPro.

http://maximoaccess.forumeiros.com/t13369-resolvidocomo-fazer-tabelas-para-um-cartao-de-vacinas

Piloto veja esse link o colega Walter também pensou em adaptar uma carteira de vacinação,acho que seria legal tambem.

Se conseguir adaptar ai no teu bd gostaria de ver como fica.

Abçs.

Claro que dá.. veja o exemplo do walter e tente adaptar... e retorne.

Se possível me envie e-mail sobre o que o ACS faz.. para que eu possa ver se há algo mais a desenvolver.

Cumprimentos.

É so criar a tabela e relacioná-la com o indivíduo...

Depois verei se faço isto pra ti.

Cumprimentos.

Que bom amigo,te mandei uma MP.

Tai Kaynan.. o módulo de vacinas.. peguei a tabela do Walter...

Abra o formCdFamilia e veja o Botão vacinas...

Cumprimentos.

https://www.dropbox.com/s/wfrm2h4n2vv8f7o/PSFPinhalCentral2003.rar

Muito bom Piloto,só a data do nascimento vem sempre a mesma,mas da pra consertar.
Piloto se não for pedir demais e mesmo sendo hehehehe,quando tiver tempo adaptar o genograma no meu bd,não consegui, o Walter tambem tentou mas sem secesso.

Obrigado abençoado.

Resolva o da vacina depois passamos ao proximo.

Cumprimentos.