[Resolvido]Caixa de seleção abrindo formulário e atualizando dados e sistema de busca

Olá!

Venho recorrer a vocês.

Estou desenvolvendo um "sisteminha" de controle de movimentação interna de documentos (Protocolo) e estou precisando de ajuda em alguns pontos.

1º - Tenho um tabela "protocolo" e outra "arquivo".
A tabela protocolo é a minha "tabela principal" possui um formulário e um subformulário (que tem a movimentação do documento).
Neste formulário existe um campo de no arquivo do tipo (sim/não (seleção)) e dois campos na sequencias cod_doc_arquivo_ e caixa_arquivo, estes últimos dois não habilitados. Gostaria que quando se clicasse no campo arquivo (arquivo=true) ele abrisse o formulário arquivo, preenchesse automaticamente o campo "protocolo_faspm" e deixasse com que eu preenchesse os dois outros campos (cod_doc_arquivo e caixa_arquivo), após isso eu clico no botão de fechar e ele atualizaria estes mesmos dois campos no formulário principal (protocolo).
O formulário "Arquivo" é baseado na tabela de mesmo nome.
Isso seria possível?

2º - Gostaria de gerar um formulário de busca, onde pudesse localizar o protocolo pelas seguintes critérios:
* Protocolo
* Data
*Número do Documento
*PID
*Remetente
*Assunto

e que ao localizar o protocolo eu pudesse dar dois cliques nele e abrir o registro no formulário "protocolo".
Sinceramente não sei nem como iniciar isso.

Desde já agradeço a atenção dispensada para me ajudarem.

Obrigado!

PS: Não consegui anexar o arquivo, por isso estou colocando o link do 4sahred que contem o rar.

http://www.4shared.com/rar/r1CnNxS1ce/protocolo.html

Alterei um pouco meu BD e resolvi algumas questões, mas ainda preciso de ajuda para um problema.

No formulário protocolo, preciso que os dois campos (cod_doc_arquivo e caixa_arquivo) só fiquem disponíveis para preenchimento se o "campo arquivo" estiver selecionado (arquivo=true).

Podem me ajudar com este probleminha???


Obrigado!

Tenta utilizar o critério:

No Formulário:

Código:

Private Sub Form_Current()
If Me.[campo arquivo] = True Then
Me.cod_doc_arquivo.Enabled = True
Me.caixa_arquivo.Enabled = True
Else
Me.Funcionario.Enabled = False
Me.caixa_arquivo.Enabled = False
End If
End Sub

No campo arquivo:

Código:

Private Sub Código_AfterUpdate()
If Me.[campo arquivo] = True Then
Me.cod_doc_arquivo.Enabled = True
Me.caixa_arquivo.Enabled = True
Else
Me.Funcionario.Enabled = False
Me.caixa_arquivo.Enabled = False
End If
End Sub

Valeu toyebom deu super certo!!!

Muito obrigado!!