[Resolvido]Systema para arquivos

Olá pessoal!
Sou novo aqui no fórum e no access também, e gostaria da ajuda de vocês. Uso o Access 2010.
É o seguinte:

Tô querendo fazer essa aplicação para controle de cadastros arquivados.
Esses cadastros são arquivados em Caixa/Arquivo, cada caixa poderá ter 30 cadastros arquivados.

Mas o meu pedido de ajuda é o seguinte:

Como vou desabilitar o "Botões de navegação" e criar meus próprios botões, tô com dificuldade em criar um botão para pesquisar.

1 - Em "frm_Arquivados" como implementar um botão de pesquisa para que ao digitar o "Cód.Domiciliar" ao localizar na tabela ele abrir os dados no mesmo formulário "frm_Arquivados"?

2 - Deixei os campos textBox do formulário "frm_arquivados" desativados onde ao clicar em alterar os mesmo são ativados.
Existe a possibilidade de ao invés de deixar desativado, deixar bloqueado e ao clicar no botão alterar os campos ficarem disponíveis para alteração?

Segue o arquivos:

https://drive.google.com/file/d/0BzjGDgEtYq1AR291VEc2akc0NlE/edit?usp=sharing

Boa tarde André, seja bem vindo.

1 - Em "frm_Arquivados" como implementar um botão de pesquisa para que ao digitar o "Cód.Domiciliar" ao localizar na tabela ele abrir os dados no mesmo formulário "frm_Arquivados"?
Foi criado um form de pesquisa, basta clicar botão pesquisar do form e no form de pesquisa clicar no Codigo Domiciliar que atualizará o formulario com seus respectivos dados

2 - Deixei os campos textBox do formulário "frm_arquivados" desativados onde ao clicar em alterar os mesmo são ativados.
Existe a possibilidade de ao invés de deixar desativado, deixar bloqueado e ao clicar no botão alterar os campos ficarem disponíveis para alteração?
Os campos são bloqueados na abertura do formulario, liberados para alteração e novamente bloqueados depois que clicar em salvar

Descompactei e reparei seu banco que foi de 6,9 MB para 1,1 MB, teste para vermos se era isso que pretendia.

Exatamente isso, obrigado!!

Só um detalhe, eu queria que ao clicar em pesquisar tivesse a opção de digitar o código.
Como eu implemento isso?

André, se não ouver mais duvidas peço que clique no botão Resolvido para finalizar

o topico ok.

Isso mesmo cara, obrigado!!

Como disse sou novo no access e aqui no fórum, mas determinado a aprender.
Foi muito importante sua ajuda cara, espero poder contribuir no fórum tbm.

Vou continuar com esse projeto de criar esse banco, e surgindo a dúvida já sei que posso contar com esse fórum.


Só mais uma dúvida sobre o fórum, eu fecho o tópico ou posso deixar aberto já que ta na área de "Projetos em desenvolvimento"?


Obrigado mais uma vez!!!!   

Blz cara, vlw!!!

Legal André, estamos ai pra isso e com certeza vai aprender muita coisa boa aqui no forum.

Agradeço o retorno em nome do forum!

Desculpa, não sei se pode reabrir o tópico ou, se tenho que criar um novo.
Mas como o assunto ta relacionado ao mesmo projeto... qualquer coisa me corrijam por favor.

Fernando Bueno peguei o seu código e criei mais dois botões para pesquisa, "Cód. Domiciliar" (vc fez o código), "Nis" e Nome
no botão "Nis" ele faz a pesquisa, mas no botão nome ele não faz, dá erro:

Erro em tempo de execução: '3075':
Erro de sintaxe(operador faltando) na expressão de consulta
'Nome_RF=Nome pesquisado'.

Tentei por esse código:

Dim a As String
Dim strSQL As String
Dim xlocalizarNome As Variant

Private Sub btn_Pesq_Nome_Click()
xlocalizarNome = InputBox("Digite o Nis do R.F. que deseja visualizar", "Procurar Nome")
strSQL = "SELECT * FROM tbl_Arquivados WHERE Nome_RF=" & xlocalizarNome & ""
Me.Form.RecordSource = strSQL
Erro:
End Sub

Bom dia André, teste para vermos...

Código:


Private Sub btn_Pesq_Nome_Click()
On Error GoTo Erro
 Dim a As String
  Dim strSQL As String
Dim xlocalizar As Variant
  xlocalizar = InputBox("Digite o codigo domiciliar que deseja visualizar", "Procurar Codigo Domiciliar")
 strSQL = "SELECT * FROM tbl_Arquivados WHERE Nome_RF LIKE'*" & xlocalizar & "*'"
Me.Form.RecordSource = strSQL
Erro:
End Sub

Deu certo sim Fernando!!
Mais uma vez obrigado!!
Vc é o cara!!

Por nada colega, precisando estamos ai.

Olha eu novamente com o meu projeto.

Com a ajuda dos amigos do fórum e de exemplos visto aqui também, estou conseguindo dar andamento nesse projeto.
Mas agora encontrei outro problema, peguei um exemplo de um código aqui no fórum pra evitar que sejam inseridos dados já cadastrados (duplicados), em três campos de um formulário (Código Domiciliar, NIS e CPF).
Sendo que ao incluir um novo registro, ao digitar qualquer número nesses campos, ele diz que já tem o número cadastro.
Já coloquei o código no evento "antes de atualizar" e "após atualizar", e sempre dá o mesmo erro.

Não sei se seria correto abrir outro tópico, mas como se trata do mesmo projeto resolvi reabri esse.



https://drive.google.com/file/d/0BzjGDgEtYq1AQnBZVWdBSVNlRXM/edit?usp=sharing

Boa tarde amigo, qual erro ocorre?
Testei o formulario e aparentemente não apresenta nenhum erro no código.

Boa noite!!

O erro é ao inserir um novo cadastro ou alterar, nos campos "Código Domiciliar", "NIS do RF" e "CPF do RF", ao digitar qualquer número nesses campos o msgbox "já está cadastrado no sistema".

Bom dia André, teste para vermos..

Mais uma vez você me salvando Fernando Bueno.

Ficou ótimo!!
Obrigado mais uma vez!!

Por nada, precisando estamos por aqui!