[Resolvido]Substituição de parte de um campo

Boa Tarde pessoal!
Estou numa sinuca de bico aqui, pois não entendo completamente o access...
Seguinte, tenho uma Tabela chamada ORÇAMENTOS, e nela tem uma data exemplo: 21/10/1913
Gostaria de uma macro, ou função, que substituiria esse valor"1913" para "2013"
Já criei um form de vários itens que pega todos os valores da tabela, criei um botão que está com a seguinte expressão ao clicar:

=Substituir([PRAZO_ENT];"1913";"2013")

Onde PRAZO_ENT é o campo que eu quero substituir a data ex: 21/10/1913 para 21/10/2013, ou seja, uma substituição parcial do campo.

Estou há muito tempo procurando soluções para isso, mas está difícil...
Quem puder me ajudar, me trazer alguma solução, fico muito agradecido.


Obrigado.

Fale mais sobre.

Você quer alterar toda a tabela? Apenas um registro que está no formulário? Todos os registros filtrados em um formulário contínuo?

Todos os detalhes são importantes.

a data, aparece em 1913 pois o arquivo original tem um bug.
porém, é vinculado ao Access.
Queria uma solução para substituição do campo todo em que tem o ano de 1913 para 2013.
o formulário é contínuo, criei o mesmo para colocar um botão de substituição de parte do campo. TODOS OS REGISTROS QUE TEM "1913" como o ano, quero substituir por "2013".
Obrigado

Faça uma busca no fórum por RecordsetClone. Com esse objeto, você pode editar todos os registros de um formulário contínuo. Tente entender as instruções passadas nesses tópicos. Restando dúvidas, poste para vermos o que fazer.

Boa noite, reginaldo
Execute
Currentdb.execute "UPDATE ORÇAMENTOS SET CampoData=DateAdd('yyyy',100,CampoData);"

Alexandre, dessa forma, precisa mencionar para colocar um WHERE apenas para os registros com campo 1913, pois se tiver outros, serão tambem editados e acho que não é o que o amigo quer.

Pessoal, ainda não solucionei o meu problema, vou tentar exemplificar melhor o que eu quero.

Tenho uma tabela chamada ORÇAMENTOS. Nela, tem a data de fechamento de pedido chamada (PRAZO_ENT).
Essa tabela é vinculada a um banco de dados externo. O banco de dados tem um bug onde o que era para ser xx/xx/2013 fica sendo xx/xx/1913
Eu criei um formulário contínuo que se parece com a tabela, a fim de eu criar um botão que atualiza TODOS os registros do campo PRAZO_ENT, substituindo o ano "1913" para "2013".

Ou seja, quero um código, macro ou função no qual SELECIONA todos os registros do formulário OU da tabela, PROCURE TODOS os registros com o ano de "1913", e os SUBSTITUA para "2013".

Quando usa o programa principal e faz um orçamento novo, por exemplo, fiz um orçamento e fechei o pedido com a data de 10/10/2013, o programa salva como10/10/1913.
Para corrigir isso, no formulário do access, esses dados vão para lá, ficando como 10/10/1913 também.
Quero que o botão procure todos que estão assim e substitua SÓ o ano de 1913 para 2013.

Espero que expliquei claramente tudo o que quero, por favor pessoal... me ajudem pois está difícil arranjar solução..
Obrigado a todos que contribuiram.

Obrigado, Criquio, pela lembrança
Execute este código num módulo
Currentdb.execute "UPDATE ORÇAMENTOS SET PRAZO_ENT=DateAdd('yyyy',100,PRAZO_ENT) WHERE Format(PRAZO_ENT,'yyyy')=1913;"

Caro alexandre,

Coloquei o código que citou para executar, porém me aparece o seguinte erro:
"Erro em tempo de execução: 3464
Tipo de dados incompatível na seleção de critério."

Tente assim, no evento "Ao cloicar" de um botão no cabeçalho do formulário contínuo:

Código:

Dim rs As Recordset
Set rs = Me.RecordsetClone
    rs.Edit
        rs!NomeCampo = Replace(rs!NomeCampo, "1913", "2013")
    rs.Update
        Msgbox "Processo concluído
rs.Close
Set rs = Nothing

Prezado criquio,
Tentei o código que você passou, no evento "ao clicar" do botão.
Porém, mesmo colocando o nome do campo PRAZO_ENT, a MsgBox apareceu, só que não atualizou os registros..

Faltou fazer um Loop:

Código:

Dim rs As Recordset
Set rs = Me.RecordsetClone

Do While Not rs.EOF
    rs.Edit
    rs!NomeCampo = Replace(rs!NomeCampo, "1913", "2013")
    rs.Update
    rs.MoveNext
Loop

MsgBox "Pronto"

rs.Close
Set rs = Nothing

Parece que deu, só por um erro:
"Uso de Null inválido."

Então há campos em branco? Nesse caso, precisa condicionar a fazer o processo quando o campo não estiver em branco.

Sim, e como eu condicionaria o processo para quando o campo não estiver em branco?

Código:

    If rs!NomeCampo <> "" Then
        rs!NomeCampo = Replace(rs!NomeCampo, "1913", "2013")
    End If

Cara, muito obrigado! era isso o que eu queria!
Solucionou direitinho.

Obrigadão mesmo.