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

Tai Kaynan todos os objetos exceto as tabelas..


Abraços.

Ta certo, selecionei a microarea 01 escolhi a familia de nº012 cliquei, abriu o frmpesquisa selecionei DIAe HA,mas prencheu todos os da familia, sendo que só uma pessoa dessa familia tem doença.E o relatório como abrir,(to mais perdido do que cego em tiroteio)

Kaynan.... veja ai.... O form de pesquisa é aberto pelo Form_CadFamilia.....
Ao clicar no campo Status no sub form......

Voce colocou o codigo par abrir o form de pesquisa no form errado!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Veja ai.. no que eu te mandei!!!!!!!!

Por gentileza... importe estes objetos para o teu bd.... substituindo os ali existente.. e dará certo.

Voce tem que colocar o código no campo marcado com um retângulo em vermelho... ao clicar abrirá o form de pesquisa... as doenças selecionadas serào lançadas neste campo... Aqui é so isso. O relatorio e o FormAreasdoencas pode importa do bd que te enviei.



Cumprimentos.

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

Piloto se tiver como ver ai,importei os 4 objetos que mandou,eu clico no campo Status abre o FrmPesquisaDoenca seleciono uma doença clico em selecionar.....e da erro 440 não é possivel executar essa operação,ai clico em depurar aparece esse código em amarelo.

Forms!Frm_CadFam.Frm_CadFamSub.Form.txtStatus = StrWhere

sera porque é em 2010.

1 - Converteu o objeto de Caixa de Combinação para Caixa texto?
2 - Renomeou o objeto para: txtStatus?
Forms!Frm_CadFam.Frm_CadFamSub.Form.txtStatus = StrWhere

3 - Transformou o campo na tabela para do tipo texto?


Cumprimentos.

Fiz tudo isso que falou.


Piloto se voce tem pronto esse abençoado bd me mande,que não sei o que tem de errado,faço exatamente
como mandou,nesse que te mandei da esse erro,ddepois fiz em outro computador seleciono a doença,clico em selecionar mas preenche todos os campos que tem paciente cadastrado ali.E se seleciono um paciente que tem uma doença não aparece a doença.

Obs:olha to quase desistindo dessa adaptação e deixar como esta.Ainda bem que salvei o original.

Abçs.

Me envie esse que da erro 404 para que eu teste..

Cumprimentos.

https://dl.dropboxusercontent.com/u/90217826/PostoSaude.rar
Este da esse erro

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

E esse fica assim.

Conseguiu descobrir algo errado Piloto.

Um bom dia.

Pegue o arquivo que postou na mensagem 55 e coverta-o para 2007 e me reenvie... em 2010 não há como eu verificar se fez correto.

Cumprimentos

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

Eu exclui todos os objetos de um bd 2003 e importei os do 2010,da alguns erros durante a importação,mas funciona alguma coisa.

Obs:Quando fiz issso de importar para um bd 2003,fui testar,até que funcionou do geito certo que propos,ai fui na tabela que é pra por o Status como texto,ja estava em Memorando,sendo que eu ja tinha posto como texto........ai coloquei como texto ja não funcionou mais.

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

Pìloto neste outro que envio,importei para aquele que me enviou que tem só o form de pesquisa,que deve estar em 2007,mas faz o mesmo defeito.

Abçs (eta coisinha difice pra funciona aqui no 2010)

Kaynan.. este tópico já está ficando bagunçado...

Faça o que eu solicitar apenas... ficamos dando voltas e mais voltas... e voce convertendo e explicando e depois reconvertendo..

Isto está ficando demasiado confuso. O exemplo que fiz está a funcionar perfeitamente... e o que fiz não muda caso seja 2010, portanto deve estar errando em algo ai.

Faça o seguinte apenas... sem mais explicações para não me confundir...

Simplesmente poste o arquivo que citou na mensagem 55...

Cumprimentos.

==

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

Tai piloto aqui só funciona em 2003

Kaynan.... Este modelo que estou te enviado está funcionando corretamente...

Sinceramente... não sei mais como ajudá-lo..

Teste ai.

https://dl.dropboxusercontent.com/u/26441349/Kaynan1.rar

Piloto tem que me enviar no formato 2007,neste em 2003 que me enviou funciona mas com varios problemas, o formulariio Frm_CadFAm pedindo valor parametro antes de abrir,e varios relatórios não funcionam.
Importe os obgetos para o formato 2007 e veja.Se funcionar ai é porque tem al errado no meu pc.

Abçs.

Faça assim Kaynan... Crie uma copia do teu em 2010 em uma pasta... Abra o mesmo, apague os objetos... e importe deste que te enviei..

Importe apenas os objetos..

Cumprimentos.

Estes parametros possivelvemnte são em campos de Multiplos valores que o Access modifica para memorando ou texto quando converte em 2003..

Portanto importe apenas os objetos, cuidado para que no bd em 2010 o campo estatus seja modificado para texto.


Cumprimentos.

Ok Kaynan.. é realmente o que havia te falado...

Ao alterar o campo Status de Multiplos valores para texto, algumas consultas que você utiliza nas guias não encontra este campo...

Vamos corrigir isto.

Abra o form em modo Design, clique na aba:
Hipertensos...
Hipertensos é com S

Clique na seção detalhes do subform, propriedade, aba dados, na fonte de registro:

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, tbl_CadFamDet.Status
FROM tbl_CadFamDet
WHERE (((tbl_CadFamDet.CodCadFam)=[Formulários]![Frm_CadFam]![Cod_Seq]));

Na aba Diabéticos:

SELECT tbl_CadFamDet.CodCadFam, tbl_CadFamDet.Paciente, tbl_CadFamDet.DIA_DataCad, tbl_CadFamDet.DIA_Fum, tbl_CadFamDet.DIA_Medicacao, tbl_CadFamDet.Status, tbl_CadFamDet.Cod_SedDet
FROM tbl_CadFamDet
WHERE (((tbl_CadFamDet.CodCadFam)=[Formulários]![Frm_CadFam]![Cod_Seq]) AND ((tbl_CadFamDet.Status)="DIA"));

Na aba Gestantes:

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.Value AS Expr1, tbl_CadFamDet.Cod_SedDet
FROM tbl_CadFamDet
WHERE (((tbl_CadFamDet.CodCadFam)=[Formulários]![Frm_CadFam]![Cod_Seq]) AND ((tbl_CadFamDet.Status)="GES"));

Cumprimentos

PIloto de Deus.fiz como disse:

Abra o form em modo Design, clique na aba:
Hipertensos...
Hipertensos é com S

Clique na seção detalhes do subform, propriedade, aba dados, na fonte de registro:
Abri o formulario CadFam,mas na seção detalhes na aba dados fica tudo em branco,aparece escrito detalhe em cima mas td em branco ........que coisinha..

Kaynan, cada sub-formulário tem uma fonte de registro...
Quando abrir o form no modo design vá na aba hipertensos....

Clique na parte em azul... logo abaixo do rodapé....

>>> O primeiro clique selecionará o sub-form
>>> O segundo clieque verás que selecionará o subform mostrando a fonte de registro na Aba dados das propriedades


Faça assim para todos os subformulários >>>> basta clicar na área em azul duas vezes....

Agora uma coisa...

Ao alterar o campo Status para texto... esse mesmo problema ocorrerá em outros formulários que utilizem este campo...ai terá que abrir e ver qual apresenta o erro pedindo para informar o critério.


Cumprimentos.

Kaynan... importe todos os objetos deste bd para o seu em 2007.. já estão corrigidos.

neste bd estão todos os objetos que compõe o FormCadFamilia.


Cumprimentos

Ok,ja melhorou agora pede o valor parametro tbl_CadFamDet.Status.Valor.

obs:antes tinha que clicar 3 veses para o abrir o form,agora quando clico pra abrir aparece essa mensagem depois no segundo clique abre.

ok vou fazer isso,ja tinha mandado aquele post

Piloto agora é assim,importei esses objetos pro bd 2010 e acontece que ao selecionar as doença no pesqDoença da o mesmo aviso Erro em tempo de execução 440.
.............................................................

Importei pro 2003,funcionou legal,só os relatório,Diabéticos,Hipertensos e Gestantes não abrem, e quando abrem estão vazios.

Obs:Amigão ja tiver enjoado desta lida deixamos assim,ja to com vergonha de ta te importunando,verdade.

Veja se modificou o campo da tabela..

O que diz o erro 404 e depura pra que linha?


Cumprimentos.

DEpura essa linha

Forms!Frm_CadFam.Frm_CadFamSub.Form.txtStatus = StrWhere

O campo Status da tabela esta como texto

Piloto uma pergunta,voce tem esse bd em 2007 funcionando tudo.
...............................................................
E se não der certo em 2010,tem como acertar os relatórios do 2003.

Atc.

Kaynan a linha que informou especifica o local onde serão aplicados os registros selecionados na lista, estes estão na variável StrWhere

Forms!Frm_CadFam.Frm_CadFamSub.Form.txtStatus = StrWhere

Em vermelho >>> Nome do Formulário
Em Azul >>>> Nome do Sub-Formulário
Em Laranja >>>> Variável que contém as doênças separadas por , (vírgula)

O que deve estar ocorrendo é que o 2010 não está aceitando esta forma, portanto deve haver alguma forma diferente de fazê-lo, o que não sei pois não tenho o 2010.

Vou abrir um tópico sobre isto para ver se algun dos colegas o sabe.

Cumprimentos.

Ok piloto.

Kaynao, tente substituir a expressão por esta a seguir.. observe que em agumas posições substitui o ponto por ponto de exclamaçào:




Forms!Mainform!Subform1.Form!ControlName

Cumprimentos.

Substitui esssa
Forms!Frm_CadFam.Frm_CadFamSub.Form.txtStatus = StrWhere
Por
Forms!Mainform!Subform1.Form!ControlName

e da erro de compilação,erro de sintaxe

Kaynan......... este é o exemplo!!!!!!!!!! tem que colocar os nomes dos objetos!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Forms!Frm_CadFam!Frm_CadFamSub.Form!txtStatus = StrWhere

Da erro de execução 3032
e depura a mesma linha

O Que diz este erro?

Cumprimentos.

Kaynan... mande este com o erro 3032.....

Eu ainda acho que não converteu o campo da tabela para Texto ou memorando...

Tente importar a tabela do 2003 para o 2010 e teste.

Cumprimentos.

Diz que da erro em tempo de execução 3032 e não é possivel executar esta operação.

e o campo da tabela CadFamDet, Status esta como texto.

https://dl.dropboxusercontent.com/u/90217826/ACDTESTE%202003.rar

E veja que este em 2003,só os os relatório não funcionan O de Diabéticos,Hipertensos e Gestantes.

Kaynan, verei os relatórios do 2003....

Agora quando ao 2010... não tenho mais idéia pois não possuo o 2010...
Pedi ao JP que desse uma passadinha por aqui...

Vamos aguardar.

Cumprimentos.

Quanto aos relatórios que não funcionam.. veja na fonte do registro.. clique nos 3 pontinho.. abrirá a consulta... deve ter um dos campos que esta assim:

Expr1: tbl bla bla bla

Apague e acrescente o campo Status.

Cumprimentos.

Na fonte de registros dos relatórios tem Expr1:eu tiro salvo mas eles voltam de novo.

Fiz em todos os relatório que não funcionam,ma o Expr1 volta de novo.

tem que modificar e salvar...

Diabéticos

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].[Value])="DIA"))
ORDER BY Ano_Idade([DataNasc]);

Gestantes:

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
FROM tbl_CadFam INNER JOIN tbl_CadFamDet ON tbl_CadFam.Cod_Seq = tbl_CadFamDet.CodCadFam
WHERE ((([tbl_CadFamDet].[Status].[Value])="GES"))
ORDER BY Ano_Idade([DataNasc]);

Agora uma dica para deixar seu BD menos poluído....
No seu relatório gestante na fonte de resgistro está a consulta Cs_Gestantes..

Colocando a SQL acima diretamente na fonte de registro pode excluir a Cs_Gestante, pois não será mais utilizada.

Cumprimentos.

Fiz como mandou mas continua do mesmo geito,esses tres relatórios não abrem,pedem pra inserir valor parametro.
Como é que os ouros abrem normal.

Rapaz, você vai-me desculpar mas está a dar trabalho desnecessario e só está a fazer asneira.

Peço por tudo que não leve a mal, mas veja bem o que você colocou no campo da consulta:

Expr1: tbl_CadFamDet.Status.Value

Desta forma vai pedir para introduzir parametro, sempreeeeeeee, nas consultas não se utiliza o .Value

É o seguinte Kaynan...

Voce modificou o tipo do campo...

Em uma SQL no 2010 o campo de valores multiplos é representando assim:
SuaTabela.SeuCampo.Value
Enquanto que um campo normal assim:
SeuCampo

Oras.. como modificou o tipo do campo a consulta do relatório não o encontra ai pede o valor do parâmetro..
Se modificar resolve.. Foi assim que resolvi o do formulário lembra-se?

Estas consultas você abre através de que form?


Cumprimentos.

Boas Mestre.. vou fazer as vezes de advogado do diabo aqui, hehehehe

Tenho visto em alguns tópicos no fórum consultas com esta expressão (Value) e todas relacionadas com campos de valores múltiplos no Access 2010
Creio que ao se criar uma consulta pelo assistente no 2010, e a tabela contiver um campo de valores múltiplos ele as cria com o value.

A propósito tem alguma outra ideia para referenciar o sub form no 2010? ou se tiver o 2010, puder testar o modelo em 2010 do kaynar e perceber o que acontece ao se referenciar o sub form.
Acaso tens como testar em 2010, caso tenha avise-me que peço ao Kaynan para enviar o modelo e eu te explico o nome do form e como testar.

Abraços.

Tente assim Kaynan, não percebi que postei a mesma consulta...

Diabéticos

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)="DIA"))
ORDER BY Ano_Idade([DataNasc]);

Gestantes:

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
FROM tbl_CadFam INNER JOIN tbl_CadFamDet ON tbl_CadFam.Cod_Seq = tbl_CadFamDet.CodCadFam
WHERE (((tbl_CadFamDet.Status)="GES"))
ORDER BY Ano_Idade([DataNasc]);

Cumprimentos.

PIloto,funcionando tudo em 2003.

Obs:Piloto como JP falou to dando muito trabalho e fazendo muita asneira,não sei como foi parar esse value ai na consulta,se quiser deixar como esta não tem problema,não quero contaminar o forum com
asneiras.

Abçs amigo,chega de dar trabalho.....credo....senão o chefão me manda pras cobras heheheheh