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

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

Mais uma dúvida como fazer,pra consultar por microarea os pacientes que possui algum problema de saude
como Diabétes ou Hipertenção,Tipo os da Microarea 02 só os que tem Diabétes ou Hipertenção,os da Microarea 01 os que tem Diabetes ou hipertenção,que aparecessem separados,entende

Quero consultar os pacientes da microarea 02 que tem Diabetes.
Quero os da microarea 02 que tem hipertenção.
Os da Microarea 01 e assim.......

Obrigado.

Boas Kaynan... Na realidade voce sabe como fazer isso e no fórum tem diversos exemplos....

Um formulário com duas combos.. uma baseado nas doenças e outra baseada nas micro-áreas..

E um relatório filtrado...


Cumprimentos.

Piloto me mande um exemplo disso,pra clarear as ideias.

Eis

Piloto pra mim deixar ja gravado na combo as 6 microareas e funcionar do geito que fez.

Ja fiz isso pra voce uma vez... puxe na memoria.. e utilize a combo que havia feito.

Cumprimentos.

Eta nóis.

Pense...

Cumprimentos.

Piloto eu fiz seguindo o exemplo postado mas não to conseguindo por os valores na origem de linha da combo doença,que na verdade no meu aplicativo é "Status",to seguindo o mesmo modelo do relatório "RelPesquisa" do bd.
Se puder...

Envie o que tentou fazer, citando os objetos

Cumprimentos.

https://dl.dropboxusercontent.com/u/90217826/PSFPinhalTEst.rar
veja ai pra mim.

Leia novamente a mensagem e responda ao que solicitei.

Cumprimentos.

Piloto fiquei sem internet e não pude te responder ontem,mas é assim eu fiz,e esta no formulario "FormAreasDoenças" e o relatório é o "RelatMicDoe",não consegui fazer do teu geito.

Abçs.

Kaynan abençoado... em 2007!!!!!!!!!!!!!


Cumprimentos.

Piloto do Deus,só tenho em 2010,e esse bd é o mesmo que ajudou a fazer a filtrar por microareas.
Esta sem o 2010 ai.

Não está abrindo... SInto Muito.. tente converter...


Cumprimentos.

https://dl.dropboxusercontent.com/u/90217826/;lTEst.rar

Veja se deu certo,acho que não mas..........
E o que tenho em 2007 não esta completo falta muita coisas que colocamos no 2010 que é esse.

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

Kaynan amigão... eu fiz o exemplo ai para ti... mais mastigado que isso impossível.. abra o exemplo observe como foi feito e tente adaptar...

Não tenho como fazer mais nada aqui..... se não postar em 2007, pois o exemplo está ai.. Límpido e Claro...

Cumprimentos.

https://dl.dropboxusercontent.com/u/90217826/PSFTeste.rar
PIloto veja agora se consegue abrir.

Descreve o problema que esta encontrando.. citando os objetos.

Cumprimentos.

Na cboMicro, propriedades, aba dados, Origem da Linha:

SELECT tbl_CadFam.MicroArea
FROM tbl_CadFam
GROUP BY tbl_CadFam.MicroArea;



Cumprimentos.

Agora será complicado filtrar o tipo de doença por Status.... poque não há apenas uma informação...

Voce teria que ter uma tabela relacionada tipo tblDoenças, relacionando com as pessoas....

Assim uma pessoa poderia ter uma ou mais doenças....


Compreendeu?

No Relatório:

Option Compare Database

Private Sub Report_Close()
Forms!FormAreasDoenças.Visible = True
End Sub



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
        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 MicroAereas = " & Forms!FormAreasDoenças!txtArea & ""

Me.RecordSource = StrSQL

End Sub

Na CboDoenca:
SELECT tbl_CadFamDet.Status FROM tbl_CadFamDet GROUP BY tbl_CadFamDet.Status HAVING (((tbl_CadFamDet.Status) Is Not Null));

Agora apenas uma questão... ao colocar mais de um status estes deverão ser separados por , (Vírgula)

Cumprimentos.
Cumprimentos.

Pode deixar separado por ; (ponto e vírgula) Vai funcionar.


Cumprimentos.

Piloto coloquei o código na origem da linha da cboDoenca,mas vem essa mensagem,O campo tdl_CadFamDet.Status de valores múltiplos não pode ser usado na cláusula GROUP BY.

No relatório coloquei no carregar do evento é ali que vai.

Piloto notei tambem,que neste bd que te enviei em outra versão na combo cboDoenca aparece os Status e não da erro,mas no access 2010 é que da essa mensagem e não funciona.

https://dl.dropboxusercontent.com/u/90217826/PSFTeste.rar
Veja se fiz algo errado.

Abençoado!!!!!!!!!!!!

Colocou códigos no relatório no evento ao carregar???????????/

Onde voce viu isso?????????

Olhe ai no código acima e veja que está no evento ao Abrir

O que voce terá que fazer:

1- Criar uma tabela com as abreviações de todas as doenças tal qual voce lança no campo Status....
2 - Criar um listBox baseada nesta tabela
3 - No evento duplo clique da listbox, lançar o as abreviações em uma caixa texto separando-as por ;

Assim a cada duplo clique da listbox... lançara na caixa texto as doenças que deseja consultar:

Suponha que na listBox tenha as clique nas doenças:
xxxx
yyyy
nnnn

A cada clique serão lançadas na caixa texto ficando assim
xxxx;yyyy;nnnn


Cumprimentos.

Eis Kaynan:

https://dl.dropboxusercontent.com/u/26441349/Kaynan.zip


Cumprimentos.

PIloto erro 404

Quando der erro 404...Conte até 10... de uma suspirada... levante... tome uma água... assista o domingão do Faustão...Caso persista o erro.. Repita os passos.. nesta alturá deverá estar passando o Fantástico... É bom manter-se informado... ai tente novamente... hehehehehe


O arquivo ainda está sendo carregado.

Abraços.

Heheheheheheh,enquanto esperava tomei um banho e depois tava assistindo o Silvio Santos,ai testei ficou beleza,mas me diga porque,apliquei esse recurso que fez no bd feito em access 2010,mas quando clico pra abrir o relatório vem essa linda mensagem:
"Erro em tempo de execução 3831
O campo'I'de valores múltiplos não pode se usado em uma clausula WHERE ou HAVING.

Campos do tipo texto voce gravaria a informação na mesma linha
Em um campo de valores multiplos é como se em um registro... no campo tivesse sub-registros.... E o mesmo assim como a mensagem falou.. não é permitido em uma cláusula WHERE....

Então amigão... se não aceita... paciência... não dará para filtrar por este campo... o correto seria uma tabela relacionada para as doenças.

Cumprimentos.

Então danosse, não tem geito mesmo, tanto trabalho......vou rachar uma lenha que me da menos dor de cabeça.
Fazer oque "né".

Amigão... O correto seria a tblDoenças relacionada......Mas se quiser algo parecido com o que esta ai... poderia ao invés de um campo de valores múltiplos.

1 - Campo do tipo texto
2 - no evento ao clicar do campo abriria um form com um listbox baseada na tblDoenças.... com a listbox de seleção múliopla... assim selecionaria na lista uma ou mais doenças e ao fechar este form gravaria no campo texto as doenças separadas por ;


É o que se pode assemelhar mais a isto.


Cumprimentos.

Do geito que falou seria bem tambem mas pra mim fazer isso ja percebeu que é dificil,mas se nesse bd que ja esta funcionando for mais facil de resolver uns probleminhas que esta acontecendo.Ai no menu principal, em Cadastro de familias,em Diabéticos,Hipertenção,Gestantes,bem todos esses botões ao clicar esta pedindo pra inserir valor parâmetro,no cadastro de familia ao selecionar uma microarea também pede valor parmetro.

Piloto vou pro berço, amanhão a gente ve oque da pra fazer

Boa noite abençoado.

Amigão... Atente para deixarmos o tópico estritamente ligado ao assunto que se está resolvendo...

Se tens nova dúvida, novo tópico.

PIloto como falou no post 35,1 - Fazer um Campo do tipo texto
2 - no evento ao clicar do campo abriria um form com um listbox baseada na tblDoenças.... com a
listbox de seleção múltipla... assim selecionaria na lista uma ou mais doenças e ao fechar este form gravaria no campo texto as doenças separadas por ;é o que pode se assemelhar mais a isso.

Funcionando no 2010 fica beleza também,eu quiz dizer que depois que converti o bd para 2003 que começou aqueles probleminhas de pedir valor parâmetro.

Obs:Para converter o bd 2010 eu retirei tudo de um bd 2003 e importei os do 2010 pra esse,foi do geito que consegui.

Abçs.

E porque ao converter... o 2003 não utiliza recursos do 2010 - e se salvar o 2003 que fiz para 0 2010 como está sem estes recursos dará erro..

Deixe o teu como estava originalmente.... e faça como recomendei... o form com listbox e tal...

Ai não terá problemas.


Cumprimentos.

'''''

Kaynannnnn do céu!!!!!!!

Não dá dessa forma... campos de valores múltiplos não podem ser inseridos em uma cláusula WHERE....

O que falei foi a forma alternativa para isso..... leia nos post's anteriores....

.......... ao clicar no campo, abriria outro form com uma listbox blablablablabla



Cumprimentos.

Vamos lá Kaynan... Vamos finalizar este topico...

1- Abra a tabela tbl_CadFamDet
2 - Transforme o campo Status para Texto.

Faça isso e retorne.

Cumprimentos.

Próximo passo:

1 - Crie uma tabela com o nome: tbl_Doencas com os campos:

ID_Doença (numeração automática)
CpStatus (texto)


Cumprimentos.

Fiz isso e agora.Fiz no 2010

1 - Abra o Formulário Frm_CadFam no modo design, no subformulário o campo Status renomeie para txtStatus
2 - No campo txtStatus coloque no evento ao clicar:

Private Sub txtStatus_Click()
DoCmd.OpenForm "frmPesqDoenca"
End Sub

Cumprimentos.

E agora abençoado do Deus.

1 - Importe o o form deste Bd para a tua base de dados.
2 - No formAreasDoencas substitua o código do botão por este:

Private Sub btnRelatorio_Click()
Dim IntArea As Integer
IntArea = Me.cboMicro.Value
DoCmd.OpenReport "RelatMicDoe", acViewPreview
Me.txtDoenca = Null
End Sub

Apenas isto.

Clique no campo Status no form... abrirá o form de pesquisa, selecione uma ou mais doenças, ao fechar estas serão levadas ao campo Status separadas por , (Vírgula)

Agora podes abrir o relatório

Cuprimentos

Tive de dar uma saidinha.
Piloto fiz como disse,agora é clicar no campo Status do form,mas é do FormAreasDoencas que vai abrir o frmPesqDoenca,se for assim não abriu nada.

Aiaiaiaiaia.....

Amigo Kaynan..... O Form_CadFam tem um subform >>>>>>>>>>> Frm_CadFamSub

Neste sub form tem a caixa de combinação onde seleciona o Status... Transforme esta em caixa texto e renomeie para txtStatus...

No evento de txtStatus, ao clicar:

Private Sub txtStatus_Click()
DoCmd.OpenForm "frmPesqDoenca"
End Sub

Assim ao clicar o mouse na mesma, abrira o FormPesqDoenca, seleciona uma ou mais doenças na lista clica em Selecionar e pronto!!!!!!!!!!!!!!!!!!!!


Só isso!!!!!!!!!!!!


Cumprimentos.