[Resolvido]Atualizar campo de tabela pelo VBA

Tenho um campo chamado "gestante1" que se encontra na mesma tabela do campo "gestante". Estou tentando atualizar o campo "gestante1" após a atualização do campo "gestante" com o seguinte código. Mas não esta dando certo. Não dá erro. mas tb não atuliza.

Private Sub Gestante_AfterUpdate()

Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("dadoscomuns")
rs.Edit
rs("Gestante1") = Me.Gestante.Value
rs.Update
rs.Close
db.Close

End Sub

Talvez porque os dados do formulário ainda não estejam registrados na tabela. Seria esse o caso?

Não é esse o caso, pois essa expressão é atualizar do formulário para a tabela, não havendo necessidade de estar gravada da tabela antes. Esse exemplo eu tirei aqui do site!!! não sei pq não esta dando certo. Seria pq eu utilizo o Access 2007?

Esses dois campos estão no form?

Você pode tentar vincular esse campo ao referido campo na tabela, caso seu formulário seja vinculado, e no evento "Após atualizar" do campo 1, coloque assim:

Me.Campo2 = Me.Campo1

Só não entendi porque ter dois campos na tabela com o mesmo valor.

Exato amigão, por isso perguntei se tais campos estariam no form..

Saudações

Então. O motivo é bem complexo de explicar! Mas os dois campos não estao no mesmo form não, se estivessem realmente nao daria trabalho. Estranho é que esse código deveria funcionar. Estou encucado com isso. Encontrei vários exemplos, inclusive aqui no fórum, não sei oque esta dando errado.

sao em form e subForm?

se o outro campo estiver no subForm tem que fazer referencia a ele...

Mas... se estao na mesma tabela... .. oras.. agora quem nao entendeu fui eu..

se os campos estao na mesma tabela.. obrigatoriamente ele esta vinculado ao form desta tabela...

O motivo do campo "gestante1" é que nem todas as gestantes do campo "gestante" estarão no campo "gestante1". De acordo com a clausula Where do código.
Não é subforme não!!

Private Sub Gestante_AfterUpdate()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from dadoscomuns Where gestante >= 5")

rs.Edit
rs("Gestante1") = Me.Gestante.Value
rs.Update
rs.Close
db.Close

End Sub

Creio que o ideal seria voce postar seu BD aqui, assim mais pessoas poderiam lhe ajudar...
para mim, sem ve-lo, esta um tanto quando confuso.. para mim é claro..

Saudaçoes

Teste por favor sem instanciar a db;

Private Sub Gestante_AfterUpdate()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Select * from dadoscomuns Where gestante >= 5", dbOpenDynaset)
If Not rs.EOF Then
rs.Edit
rs.Fields("Gestante1").Value = Me.Gestante.Value
rs.Update
End If
rs.Close
Set rs = Nothing
End Sub

Eu ainda fiquei sem entender o porque de repetir o nome. Não seria mais prático colocar algum tipo de identificação nesse campo? Tipo "Maior". Não sei o que o >= 5 quer dizer, mas acredito que seria melhor colocar esse significado. Mas cada um sabe o significado que precisa

Não é o nome que eu vou repetir criquio, e sim a classificação do paciente quanto a dado "gestante" 1-1ºtrimestre, 2-2º trimestre, 3-3º trimestre, 4-não, 5-não se aplica, 6-ignorado etc. Este formulario gera vários relatórios diferentes, um deste relatórios eu não quero que tenha o campo "gestante" alterado NUNCA, ou seja, uma vez gestante (campo <4), sempre gestante. Assim mesmo eu atualizando o estado dessa paciente no futuro, aquele relatorio não será alterado, apenas os outros. Entendeu?

De qualquer forma eu estou enviando o BD, pois não o código do JPaulo esta dando erro. Obrigado

Não consegui carregar o arquivo pelo site! Só dá erro. Então estou enviando o link pelo megaupload.

http://www.megaupload.com/?d=2F3QHQ5V

Não consigo baixar.

Coloque aqui por favor e passe o link;

http://www.speedyshare.com/

JPaulo, se vc clicar em cima do link, dá erro. Copie e cole o link no browser que dá certo. Conforme a situação que expliquei a cima, vc acha esse o melhor procedimento para realiza oq eu quero? obrigado

Para o link funcionar, tem que clicar nele e depois retirar o que vem antes de http na barra de endereços e pressionar Enter.

Olha só: você colocou o campo "Nomepaciente" como chave primária. Não serve, pois pode acontecer de ter mais de um cliente com o mesmo nome. O certo é você colocar um campo Numeração automática como chave primária. Foi o que eu fiz aqui. Criei esse campo na tabela, criei um campo no formulário e vinculei-o ao campo da tabela. No evento "Após atualizar" do formulário, coloquei o código abaixo e funcionou:

Private Sub Form_AfterUpdate()
If Me.Gestante.Value < 5 Then
CurrentDb.Execute "UPDATE Dadoscomuns SET Gestante1='" & Me.Gestante & "' WHERE Código = " & Me!txtCódigo & ";"
Else
CurrentDb.Execute "UPDATE Dadoscomuns SET Gestante1=null WHERE Código = " & Me!txtCódigo & ";"
End If
End Sub

txtCódigo é o campo chave primária do formulário.

Deu um trabalho ENORME criar o campo Codigo e atualizar mais de 165 registros em 6 tabelas relacionadas.. ufaaa. Mas realmente um hora poderia aparecer um paciente com o mesmo nome de outro e eu iria ter problemas.

O código o Criquio deu certo. obrigado a todos.

Obrigado pelo retorno. Precisando de novo, assovie

Sou novo aqui e fico muito feliz em ver o empenho de algumas pessoas aqui do site em tentar ajudar outras . Que Deus os ilumine cada vez mais !!