[Resolvido]Critério a partir de outra tabela

Gente boa dia!!!

Eu tenho duas tabelas, TAB1 e TAB2. Ambos tem os campos chamados Status que por sua vez na TAB1 e do tipo caixa de combinação onde nesta me da 03(três) opções de escolha: "Em análise", "Encaminhado" e "Entrada". A entrada desses dados é pela TAB1 onde quando é inserida, no evento Antes de Atualizar" utilizo de uma "Consulta Acréscimo" para acrescentar os campos NomeAluno, Encaminhamento, AnoEstudo e Status que está como valor padrão "Entrada" na TAB1 e vai pra TAB2 como "Entrada". Eu queria que quando o meu formulário/TAB1 estivesse aberto para edição, só fosse possivel alterar os dados dele se na TAB2 o Status não estivesse como "Encaminhado". Ou seja, queria que pela TAB1 eu verificasse se na TAB2 o aluno está como "Encaminhado". É possivel referências critérios de um formulario através do outro aberto?? Desde já agradeço muito vcs, bjs todos...

Bom dia Maria,

Pensei numa opção, monte com DlooKup ou Dpesquisa um campo no form da Tab1 buscando o Status da Tab2 referente ao aluno em questão, o que acha?
Assim, se eu entendi direito, quando o status estiver "Encaminhado", não permita a execução da consulta.

Até mais.

Olá querido!!! Bom diaaaaaaaaaaaaaaaa.... tudi bem???

Pois é!!! O negócio é que não tenho noção de como montar esse crtério... rsrsrsrsr

bjs...

Tudo bem Graças ao Bom Deus!

Então vamos fazer assim, poste o banco por favor que eu te ajudo com mais eficiência.

No aguardo, até mais.

Bem, boa tarde querido...

Neste BD eu tenho duas tabelas, (ENCAMINHAMENTOS, e OFICIOS), tenho também um formulário chamado "EditarOficio" onde tem como origem a tabela "OFICIOS". Todas as alterações que são feitas no formulário "EditarOficio" é feitas em outras linhas dos campos de nomes iguais a este na tabela, então eu queria que se quando a criança que já estiver na tabela ENCAMINHAMENTOS como "encaminhado" não seja permitido alteração em outras linhas dos campos (na tabela OFICOS) com os nomes iguais. Seria possivel criar essse critério num formulário de uma tabela baseada em outra tabela?

http://speedy.sh/dZjg9/Sys.mdb

Maria José, boa noite, desculpe não ter perguntado antes, mas como operar seu formulário? Como é que faço para que o nome de uma criança apareça no form?

O que pensei em fazer foi o seguinte, coloquei uma caixa de texto no form com DPesquisa buscando o status do aluno, logo se ele estiver como "Encaminhado", o procedimento será cancelado. O que acha?

Bom dia Maria José!

De ontém para hoje resolvi dar uma outra olhada e fiz o seguinte: adicionei na Origem do Registro do form principal o campo Status da tabela ENCAMINHAMENTOS e acoplei ao campo txtStatus que está no cabeçalho do form EditarOficio, você o verá assim que abrir o form. Dessa forma o status do aluno em questão é visualizado e você pode com base nele execuatar as funções. Será que acertei no que você precisava?

Aguardo sua resposta.

Olá querido boa noite....

Na verdade a entrada dessas informações é pelo formulário InserirOficio mas deixa eu te dar um exemplo bem prático do que eu quero...
O código abaixo me diz que se no momento em que eu for inserir uma aluno no formulário InserirOficio e tiver o mesmo aluno na Tabela ALUNOS ele me da uma mensagem que este aluno já possui encaminhamento... Eu queria que da mesma forma, em VBA eu buscasse na Tabela ENCAMINHAMENTOS o mesmo aluno se tiver com Status Encaminhado não alerar as informações... como seria usando a idéia abaixo?

If (Eval("DLookUp(""[NomeAluno]"",""[Alunos]"",""[NomeAluno] = Form.[NomeAluno] "") Is Not Null")) Then
Beep
MsgBox "Já possui encaminhamento para " & Z & "", vbInformation, "Encaminhamento"
End If

Desde já agradeço muito a sua atenção... bessitos...

Up... rsrsrsrs

Boa tarde Maria, desculpe demorar em dar a resposta, estive em treinamento ontém e hoje, vou fazer por aqui e logo dou um parecer.

Oh meu querido obrigada... bjs

Veja o form EditarOficio, coloquei um campo com o status do aluno na tabela ENCAMINHAMENTOS, ao abrir o formulário ele emitirá uma MsgBox com o status do aluno em questão, dessa forma, você pode definir o que será feito ou não.

Meu querido bom dia!!!

Muito bom a sua sugestão, adorei, mas na verdade eu queria um meio de conseguir esse Status através do código VBA, tipo através de um DLook(não sei se seria o caso), sem que fosse preciso acrescentar a tabela ENCAMINHAMENTOS na origem do formulário... Me desculpa se eu estou fazendo algo que infringa as regras do Forum... Desde já agradeço muuuuuuuuuuuito se apoio...

Então faça assim:

Dim strStatus As String
strStatus = DLookup("status", "ENCAMINHAMENTOS", "[NomeAluno]=[NomeAluno]")

Do jeito que você postou o BD, montei essa variável e coloquei numa MsgBox, o resultado foi "Entrada", que é o que está na tabela.

Assim você também consegue definir as ações.

Leandro boa tarde!!!

Querido ainda não consegui, onde seria a msgBox?? Eu tentei adaptar no evento após atualizar na página do formulário antes de fechar mas não tive sucesso... bjs

Up... rsrsrs

Fechando esse tópico tá??? bjs