[Resolvido]Transferencia de dados entre tabelas

Bom dia a Todos,

Estou com um problema: Tenho um tabela (tblFechamento) que poucos campos identicos a tblCadastroAlunos (exigência do cliente, para facilitar o trabalho da secretária, falei para ele a respeito da redundância, mas quis assim). Bem tenho dois campos na tblFechamento (Nome e Internação), preciso fazer uma verificação: caso o campo internação esteja marcado (Tipo Sim/Não), ou seja com o valor Sim a rotina dee copiar todos os nomes da tblFechamento que este campo esteja marcado e fazer uma verificação na tabela cadastro de alunos se não há coincidentes, caso não haja conincidentes, exibir numa listbox os nomes ao abrir o cadastro de alunos e perguntar se deseja cadastrar para quando numa listbox clicar em cima do nome ir cadastrando e eliminando do listbox.

Alguém pode me ajudar?

Agradecido

Adilson

Amigão, volto a insistir que essa parte é cabível ao programador definir a melhor forma de se trabalhar com os dados. O cliente não precisa saber quantas tabelas usamos e nem como as relacionamos. Quando tratamos o serviço, coletamos todas as informações com ele e colocamos isso no papel para identificar as tabelas, os campos e relacionamentos que iremos criar. O cliente não tem noção do que é "Normalização de dados" e "Modelo relacional", nós, programadores, sim. Mesmo que ele diga que quer transferir dados de uma tabela para outra igual, nós sabemos que não é necessário e nem recomendável na maioria dos casos. Então, o que fazemos, colocamos um comando para quando o usuário solicitar que um estudante, por exemplo, passe de aluno do curso de Informática para aluno do curso de Inglês, apenas seja mudado o código do curso na mesma tabela. No seu caso, acredito que a intenção seja dar alta para o paciente, certo? Poderia-se ter um campo na tabela de nome Status. Nesse campo, ao dar entrada, o paciente ficaria "Internado" e quando ganhasse alta, bastaria alterar para "Alta" e todo filtro poderia ser feito por aí. Para isso, teria uma tabela de pacientes com todos os dados do paciente. Ligada à ela, teria uma tabela de Internações e nessa tabela teria essas informações, que poderia ainda ser com os campos "Código", "CodPaciente", "DataEntrada", "HoraEntrada", "DataAlta", "HoraAlta" e um campo para observações. O cliente não precisa saber como isso é montado.

Brigadooooooooooooooooooooooooo.

Criquio, me perdoe ter colocado o resolvido depois que vim a entender que não fui claro.

O que desejo é que ao abrir o cadastro de alunos seja feita uma verificação na tblfechamento (nome e internação) os campos verificados e compara-los com o campo nome da tblcadastroalunos se não for igual mostrar um listbox com os nomes ainda não cadastrados e ao clicar nele colocar no campos no da tblcadastroalunos e salvar.

Deu para entender?

Adilson

Grato pelo retorno. O furum agradece.

Ih, acho que isso poderá causar um problemão. Imagina se, ao consulta o "João Inocêncio da Silva", tiver mais de um? E aí? Esse tipo de operação precisa ser filtrado por um campo pelo qual não haja a possibilidade de ter dois iguais, por exemplo a chave primária, ou o CPF. Por isso talvez seja o caso de rever os relacionamentos e a montagem da estrutura. Dê uma analisada aí.

Olhe só para o Aluno se internar (casa de recuperação) ele tem que passar pela entrevista que gera o fechamento que gera o cadastro de aluno caso ele venha a se internar. Pois bem no fechamento só tem algumas informações a respeito do aluno como Nome, endereço telefone (somente) e o cad de aluno tem tudo quanto é informação do aluno (escolaridade douemntação etc). Feito o fechamento quer dizer que internou aí tem um campo sim ou não que é marcado informando que internou ( o bd é dividido) então fica la no cadastro de fechamento regiostrado que ele se internou só que não está no cad de aluno. Pois aí é que entra a consulta que falei acima.

quando a secretária abrir o cad de alunos se tiver fechamento com o nome do aluno que é verificado na tabcadaluno que ainda foi cadastrado ele apresenta uma listbox e a pessoa clica o no nome do aluno no listbox e cadastra.

Deu pra entender?

Entender, entendi, só que continua a mesma questão. Pode acontecer de ter dois iguais. Mas ainda não entendi muito bem como isso deverá ser feito. Uma saída seria filtrar a listbox pelo nome ou parte do nome ou outro dado mesmo. Olha esse exemplo:

http://dl.dropbox.com/u/5454503/LocalizarQualquerParte.mdb

Novamente, dyl

O que o mestre Críquio falou está certo. Eu só o disse antes para não ser entendido como implicativo, aliás, tento-me limitar às dúvidas colocadas. Só quando não me consigo conter, expresso a minha opinião à margem do questionado.
Sobre o que pretende, será melhor ter duas caixas de listagem, uma para todos os elementos e a segunda para receber os elementos seleccionados. A selecção dos elementos pretendidos pode ser feita por duplo clique no elemento (da 1ª caixa) ou através de botão que passe os seleccionados na 1ª caixa para a 2ª caixa.

Pelo que vejo o problema é cmigo mesmo, não estou conseguindo entender.

Vou tentar pensar em alguma forma mais adequada e passar a informação.

Vou verificar se consigo ser mais claro.

Achei na net isso.

SELECT Nome, Internamento FROM tblFechamento WHERE NOT EXISTS (SELECT Nome tblCadAluno WHERE tblFechamento.Nome = tblCadAluno.Nome);

Será que isso funcionaria. e detalhe que não coloquei como criterio o campo internamento pois não sei onde colocar pois tem que ter.

Poderiam me dar sua opinião


Adilson

Mestres, muito obrigado pela ajuda

Foi muito bom o esforço de vocês na tentativa de me ajudar resolvi a situação.

Queimei uma boa parte da grande quantidade de cabelo na cabeçça que tenho (kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk) mas consegui. fiz o seguinte:
riei um form e coloquei um list box com uma consulta assim:

SELECT TabFechamento.Internamento, TabFechamento.Nome
FROM TabFechamento LEFT JOIN TabAluno ON TabFechamento.[Nome] = TabAluno.[Nome]
WHERE (((TabFechamento.Internamento)=Yes) AND ((TabAluno.Nome) Is Null));

Funcionou, só preciso de mais uma ajuda dos Mestres, gostaria de quando clicar num nome do list ele aparece já na caixa de texto do form que está por baixo como faço isso?

Agradecido

Bom que resolveu. Às vezes fica meio complicado porque por mais que se explica, fica meio difícil a gente visualizar a questão sem ver a estrutura e ainda mais quando foge às regras padrões de normalização, o impulso da gente tende mais a tentar reparar

Bem, para o que pretendes, evento "Ao clicar" da listbox:

Me.NomeDoCampo = Me.NomeDaList.Value

Mestre tá ocorrendo bem até agora (o erro acho que foram minhas explicações)

O detalhe é o seguinte:

No form de cadastro de alunos coloquei o botão de fechamento que abre um form independente com o list que lista os alunos supracitados nos problemas anteriores.

E como o mestre me ajudou na situação de clicar no aluno listado no listbox

Me.NomeDoCampo = Me.NomeDaList.Value

então preciso atraves do form do list antes de lançar na caixa de texto o nome ele acionar o botão novo para abrir uma nova página no cadastro de aluno e aí sim introduzir o nome do aluno clicado no listbox.

Como faço isso?

Você quer introduzir o nome do aluno em um campo do formulário que irá abrir, certo?

DoCmd.OpenForm "NomeDoForm"
Forms!NomeDoForm!NomeDoCampo = Me.NomeDaList.Value

Veja se é isso mesmo.

O form de cadastro de alunos já está aberto e o form que tem o listbox também.

O que preciso é quando eu clicar no nome de um determinado aluno dentro do listbox ele feche o form do listbox e acione o botão novo do form cadastro de alunos.

O que tem no botão novo no cadastro de alunos? Talvez fosse o caso de colocar o que tem lá em um função, que poderia ser chamada tanto no clique do botão quanto em outro momento que precisar dela, como por exemplo, chamar ela ao invés do clique do botão.

O botão novo do cadastro de alunos abre a pagina para inserção de um novo registro.

Vou lhe mandar o link. Tenho o form:

frmLocalizarFechamentoAluno que tem o listbox com o nome dos alunos quado clico no nome do aluno tem que fechar este form e acionar o botão do form cadastro de alunos para os objetos como caixa de texto por exemplo estejam em branco para inserir o nome do aluno.

No form cadastro de alunos tem o botão fechamento clique nele e veja o resultado.

http://dl.dropbox.com/u/37804873/Administrativo%20DEJOSAN.rar

Grato pela ajuda

Amigão, isso aí vai delongar um tempo extra para checar tudo e tentar captar a lógica da coisa. Normal, é meio complicado mesmo analisar bd de terceiros, levando em conta a forma distinta com que cada um trabalha, não é mesmo? Vai tentando aí tambem.

Blz, Mestre!

Estou tentando aqui também. Qualquer coisa retorno.

Adilson

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

Bom dia,

Perdão, esqueci de dar o resolvido. Tenho viajado muito resolvendo problemas e em breve estarei retornando ao forum.

Agradecido

Adilson

No click da list box basta referenciar o firm e o click do botao



Forms!FormCadAluno!btnNovo_click
Forms!FormCadAluno!CaixaTextoNome = me.sualist.column(1)

E assim para demais informacoes contidas nas diversas colunas da list

Do.cmd.close