Olá pessoal! Estou com pequeno problema, que está dificil resolver...Como faço para atualizar um formulario com a informação que eu peguei na inputbox? Tente me.requery(form) mas não funcionou segue o codigo, para vcs me ajudarem se possivel!


Private Sub Command37_Click()

On Error GoTo Err_Command37_Click

Dim Rs As DAO.Recordset
Dim CGC As String
Dim qd As DAO.QueryDef


CGC = InputBox("Digite o CGC/CNPJ para pesquisa:", "Liberação de Saque", Default)

Set qd = CurrentDb.QueryDefs("Q_PESQUISA_CGC")
qd.Parameters("Digite o CGC/CNPJ para pesquisa:") = CGC 'Substitua par pelo nome do parâmetro definido na consulta
Set Rs = qd.OpenRecordset()
'ACHO QUE AQUI FICA O COMANDO PARA ATUALIZAR O FORM


If Rs.BOF And Rs.EOF Then
MsgBox "Cliente sem Restrição!", vbInformation, "Liberação de Saque"
Else
CNPJ_NULO (Me!CNPJ)
End If

Exit_Command37_Click:
Exit Sub
Err_Command37_Click:
'MsgBox Err.Description
Resume Exit_Command37_Click
End Sub

This message has been edited. Last edited by: K@®in P@t®ocinio ®ecchi,

Não estou certo se entendi bem o que pretende, montei um formulário baseado na tabela Clientes do NorthWind e o seu código ligeiramente modificado:

  
Private Sub Comando23_Click()

On Error GoTo Err_Command37_Click

Dim Rs As DAO.Recordset
Dim Codigo As String
Dim qd As DAO.QueryDef


Codigo = InputBox("Digite o código:", "Pesquisar cliente", "")

Set qd = CurrentDb.QueryDefs("qryClientesByCodigo")
qd.Parameters("pCodigo") = Codigo 'Substitua par pelo nome do parâmetro definido na consulta
Set Rs = qd.OpenRecordset()
'ACHO QUE AQUI FICA O COMANDO PARA ATUALIZAR O FORM

If Rs.BOF And Rs.EOF Then
    MsgBox "Não foi possivel localizar um cliente com o código informado."
Else
    Me.Filter = "CódigoDoCliente = '" & Codigo & "'"
    Me.FilterOn = True
End If

Exit_Command37_Click:
    Exit Sub
Err_Command37_Click:
    'MsgBox Err.Description
    Resume Exit_Command37_Click
End Sub

Se o código informado existe, o Access mostra o registro, caso contrário emite uma mensagem.

Não funcionou. O que eu quero é que apareça o registro do cgc que eu digitei na pesquisa(atraves do inputbox) e atualize o formulario.

Olá, Karin.

TEM que ser via inputbox?

Creio que seja isso que voce quer:

Private Sub Command37_Click()

Dim txtCGC As String

txtCGC = InputBox("Digite o CGC/CNPJ para pesquisa:", "Liberação de Saque", Default)
If Dcount("*","Q_PESQUISA_CGC","[CGC]= '" & txtCGC &"'") = 0 then
MsgBox "Cliente sem Restrição!", vbInformation, "Liberação de Saque"
Else
Docmd.OpenForm "TEUFOM",,"[CGC]='" & txtCGC & "'"
End if
End sub
====
Eu particularmente não gosto de input boxes, uso formulário no lugar delas.

Reforçando a colocação do colega Balemberg, com um pequeno form pop-up você manipularia melhor a entrada do critério (com a utilização de uma MascaraDeEntrada), o que evitaria erros de digitação.

Se quizer, posso enviar exemplo.

Por favor me envie!

Alguem pode me ajudar?

Pessoal me perdoem esqueci do detalhe, a minha query tem um campo chamado CNPJ, eu passo o paramentro para ele atraves de um input box chamada CGC ele tem que buscar o valor do cgc no cnpj se achar atualiza formulario...Fui clara?

COnsegui galera!