[Resolvido]Inputbox no Access

Boa noite !

Fiz uma tabela simples no Access para teste, com apenas o campo nome, tabém fiz um formulário.

O que eu queria erá colocar um inputbox dizendo: digite um nome, ele iria procurar o registro e colocaria o focus no mesmo. Caso contrario ele me retornaria dizendo registro não encontrado.

Trata-se de um exemplo simples, mas até agora não consegui.

O nome da tabela que eu coloquei é Tabela1 e a do Formulário é Form1, e a versão do access é 2002.

Gostaria que você me ajudasse, pois trata-se de uma coisa simples.

Caso possa, por gentileza me mande o código como exemplo.

Desde já agradeço pela atenção.

Bem vindo ao fórum amigo..

temos este exemplo com ImputBox.. ele esta para uso com senha

Mas pode adaptá-lo para seu uso...

para pesquisar podes usar o Dlookup assim ele pesquisa o que foi digitado na imputBox na sua tabela e pode tambem atraves de comandos, filtrar...

http://maximoaccess.forumeiros.com/t3066-form-com-abertura-por-senha-em-imputbox-com-restricao-de-numero-de-registros

Olá Fernando. Bem vindo ao forum. Ficou bem vago a sua necessidade. Está faltando algumas informações sobre o projeto mas em termos gerais, tente algo assim:

Dim varMsg As String
varMsg = InputBox("Digite um nome", "Pesquisar")
If Not IsNull(DLookup("NomeAProcurar", "Tabela1", "NomeAProcurar='" & varMsg & "'")) Then
Me.Campo1 = DLookup("NomeAProcurar", "Tabela1", "Autor='" & varMsg & "'")
Me.Campo2 = DLookup("Campo2DaTabela", "Tabela1", "Autor='" & varMsg & "'")
Else
MsgBox "Nada encontrado", , ""
End If

Oi Criquio

O Código que você me mandou esta quase do jeito que eu queria, a não ser por um problema.

Como eu falei só tem um campo que eu coloquei, que é o campo nome.

Eu para fazer o teste cadastrei dois nomes, um como Patricia e outro como Cintia.

Usando o código que você me mandou acontece o seguinte:

O nome Patricia esta como o primeiro registro , quando eu chamo o inputbox no primeiro registro e

digito Cintia, em vez dele procurar pelo nome ele troca o nome Patricia que esta no primeiro

registro para Cintia

Enfim este é o problema que esta ocorrendo.

Gostaria de aprender para poder colocar o inputbox nos projetos que eu já fiz, como cadastro de Clientes, Agenda e outros.

Aqui esta o Código que você me mandou

Dim varMsg As String
varMsg = InputBox("Digite um nome", "Pesquisar")
If Not IsNull(DLookup("NomeAProcurar", "Tabela1", "NomeAProcurar='" & varMsg & "'")) Then
Me.Campo1 = DLookup("NomeAProcurar", "Tabela1", "Autor='" & varMsg & "'")
Me.Campo2 = DLookup("Campo2DaTabela", "Tabela1", "Autor='" & varMsg & "'")
Else
MsgBox "Nada encontrado", , ""
End If


Desde já agradeço pela sua atenção.

Sua tabela só tem um campo? Sem chave primária? Como você vai fazer a pesquisa então? Se é uma tabela para cadastro de nomes, vai acontecer de ter nomes repetidos, e aí, o que fazer?

Fundi os tópicos para não bagunçar o assunto, ok?

Boa tarde, como faço para que o que seja digitado no inputbox seja sempre em maiusculas, ou seja formatar o inputbox para receber só maiusculas.

Obrigado

Aguardo esclarecimento

Boa tarde

Pesquise por favor primeiro no fórum.

http://support.microsoft.com/kb/298607/pt-br

Se houver algum comentário reabra por favor. Tópico resolvido.