[Resolvido]Pesquisar Numero do Projeto e erro ao adicionar novo registgro

Olá a todos, estou tentando finalizar para poder implantar os lançamentos, fiz alguns teste e descobri um erro, e apareceu uma nova necessidade de se poder fazer uma pesquisa pelo numero do projeto, pois quando a pessoa vem ver o andamento do projeto ela traz o numero dele, e o erro dá quando tento clicar no botão novo para poder lançar um novo cliente está dando um erro.

Se puderem dar uma olhada, tentei resolver mas não consegui.

Segue o anexo do bd

Obrigada antecipadamente a todos

Amandaalves

Olá Amanda, veja se resolve,


Criei uma Caixa de Listagem com o seguinte código no evento "depois de atualizar"

Código:

Private Sub ProjetoPesquisa_AfterUpdate()
   DoCmd.OpenForm "Frm_Clientes", , , "Id_Cliente=" & Format(Me.ProjetoPesquisa, "00000")
End Sub


Ficheiro de teste https://meocloud.pt/link/364cbcf2-cbb3-4df0-9b2c-4caeff0ee1b4/Cadastramento_ViaFacil.zip/
Abraço

Bom dia a todos....

No frm_Clientes_historico, inclua as seguintes linhas descritas abaixo.

Private Sub Form_Current()
On Error Resume Next
Me.FilterOn = False
If Me.NewRecord Then
Dim numerador As Integer
numerador = DLast("[Posicao_Item_Cliente]", "Tabela_Clientes_Historico", "[Id_Cliente_Historico_Cliente] = " & Forms!Frm_Clientes!Id_Cliente & " ")
On Error Resume Next 'It should never occur, just to be sure...
Me!Posicao_Item.DefaultValue = Nz(numerador, 0) + 1
End If
End Sub

Teste e nos informe

Olá Silvio, mais um ajuste, ficamos aguardar pelo retorno da colega.
Abraço

Oi a amigo obrigada pela força, sempre pronto a ajudar,

Ficou ótimo, se quizesse mudar para pesquisar para ir digitando o numero teria como?, o porque deste pedido, é que vai ter uma lista com muitos registro, por isso acho que se pudesse ir digitando ficaria mais fácil se tiver como e puder me explicar como faço para poder deixar pronto, pois no futuro quando a lista estiver bem grande, ficara mais fácil para eu poder pesquisar.

Se der para você dar uma olhada do lado esquerdo no formulario Frm_Inicial, clico onde está escrito clientes ai abre o meu formulário Frm_Clientes, tente adicionar um novo registro clicando no botão novo, vai dar um erro, pode ver e me dizer o que devo fazer para corrigir?

Novamente estou dizendo que ficou ótimo



Obrigada novamente Amandaalves

Grande AHTeixeira.....como estão as coisas além mar ?

Amanda, veja mensagem do colega Silvio, também colaborou e já resolveu essa questão.
Que tal também umas palavras de apreço.
Quanto à criação de listbox uma busca, se não conseguir avise, hoje estou com pouco tempo.
Abraço a todos

Olá Silvio, o tempo está maravilha .
Aqui no forúm sempre aprender.
Abraço

Sr. Silvio, eu não sei se expliquei certo, o novo registro a que me referi, é um novo registro novo mesmo é assim como se chegasse uma pessoa diferente e eu ir lançando os dados do zero, na minha tabela do bd que enviei está na id do cliente 00012 quando pedir um novo será 00013, após lançar os dados referente a esse cliente, vou para o formulario Frm_Clientes_Historico faço os lançamentos após fazer o lançamento deste formulário,vou para o formulario Frm_Relatorios e faço os lançamentos também, espero ter sido mais clara e desculpe se não tinha sido tão objetiva no post anterior.
Obrigada Amandaalves

Amanda, bom dia.
Alvaro, boa tarde...por aqui tempo muito esquisito mesmo...ora chuva...ora calor...ora frio...mas vamos que vamos.

Amanda veja o anexo

Sr. Silvio ficou perfeito, depois vou tentar fazer alguns lançamentos.
Obrigada ao Sr. e ao amigo ahteixeira, obrigado pela paciência, pela dedicação e competência e o mais importante, por dedicar o que temos de mais importante na vida que o nosso precioso tempo, mais uma vez muito obrigada, a todos que compartilham seus conhecimentos com nós.

Amandaalves

Obrigado pelo retorno, estamos cá para uma interajuda.