Kawan

Eu to tentado fze um filtro para buscar numero de processo so q ta dando erro ali onde esta em negrito...vocês podem m ajudar, eu preciso disso rapido http://www.4shared.com/file/53581572/57771e9b/Projeto.html aki ta o projeto, se vocês puderem ver ele e fzer as modificações na tabela consulta no botao Command1 Private Sub Command1_Click() x = 0 x = InputBox("Informe o processo a localizar ! ") If x = "" Then Exit Sub End If TBProcessos.FindFirst ("processo = 'x'") If TBProcessos.NoMatch Then MsgBox " Registro não localizado ", vbExclamation Else DBGrid1.SelBookmarks.Add DBGrid1.Bookmark End If End Sub

COnsegui arruma so q agora da um erro na linha TBProcessos.Update E aparesce Run TIme Error "3315" Field "Processos.Numero do Processo" can't be a zero-length string

ola pessoal.. estou fzendo um programa, e keria fzer um botao pra q quando eu clica-se ele grava-se o valor das variaveis no BD do Access q eu já criei.. a linha de codigo q eu to usando é essa Private Sub cmdGravar_Click() cmdIncluir = True cmdAlterar = True cmdExcluir = True cmdGravar = False cmdSair = True txtProcesso.Enabled = True AtualizaCampos TBProcessos.Update End Sub Private Function AtualizaCampos() TBProcessos("Numero do Processo") = txtProcesso TBProcessos("CNPJ") = txtCNPJ TBProcessos("Auditor") = txtNome TBProcessos("Cidade") = cmbCidade TBProcessos("DataEntrada") = txtDataEntrada TBProcessos("DataSaida") = txtDataSaida End Function Private Sub Form_Load() Set BancoDeDados = OpenDatabase(App.Path & "\Projeto.MDB") Set TBProcessos = BancoDeDados.OpenRecordset("Processos", dbOpenTable) TBProcessos.Index = "IndProcesso" cmdGravar.Enabled = False If TBProcessos.EOF = False Then AtualizaFormulario End If End Sub é quando e executo o programa e clico para gravar aparesce a seguinte mensagem de erro: Sub or Function Not Defined nesta linha aki Private Function AtualizaCampos() vocês sbe alguma solução??