[Resolvido]Actualizar campos em Formulários

Muito boa tarde meus senhores, cá estou eu a incomodar, já agora bom ano....

É o seguinte, até calculo que seja muito simples e vou tomar um exemplo três campos, 8 [numinscr]; [nome]; [data de nascimento].
Problema, utilizei esta função:
"Private Sub Form_Current()

Me.Nome = DLookup("[Nome]", "dados geral", "numinscricao= " & Me.Nº_de_inscrição)

End Sub"
para quando eu colocasse o [numinscr] o campo [nome] fosse pesquisado na tabela dados geral e colocado no formulário actual. Tudo bem, ele faz isso, só que tenho que mover para outro registo ou fechar e abrir formulário para ele actualizar os dados....

De certeza que isto é uma coisinha básica....


Obrigado

Coloque nesse evento

Nomedoseucampo.requery

Se for Nome seria Me.Nome.requery

Boas tardes Sr. Vieira

Infelizmente não actualizou...

Tem que actualizar

No evento afterupdate()do campo

Me.Nome.requery

Faça também um refresh ao formulário
Me.Nome.requery
Me.meuform.refresh

Mil perdões... Não tou a ver como!!!!
Coloco antes ou depois da instrução "requery" ??

Amigo você deveria utilizar o Dlookup no evento depois de actualizar afterupdate()

Então ficaria assim
Private subnome afterupdate()

Me.Nome = DLookup("[Nome]", "dados geral", "numinscricao= " & Me.Nº_de_inscrição)

Me.Nome.Requery

Form.nomedoformulário.Refresh

End Sub

Você estrá a usar o campo como caixa de texto ou uma combo?

Como caixa de texto.... Já testei e não dá...
Enfim...

Estranho.
Pode colocar aqui a bd para download? seria mais fácil ver isso ao vivo. Em formato 2003

Sr. Vieira,

Desde já obrigado pela paciência demonstrada....
A BD segue em anexo.

Amigo:

Isto nunca iria actualizar e provavelmente dava~lhe um erro também (O Microsoft Access não pode guardar o registo porque foi......". Se você quer ter isto a funcionar direito, Pagamento ginâstica tem que ter uma tabela própria. Preciso dar aqui uma alteração de fundo, caso contrário será erros encima de erros. Concorda que eu arrange a sua BD? Só mais logo é que posso postar aqui.

Sr. Vieira,

Mas pagamento ginastica, ja tem tabela e form...

Mas entao obrigado e desculpe qualquer inconveniência, tudo o que aprendi de Access foi atraves de mim.
Agradecia entao que se pudesse entao "arranjar" a BD caso nao lhe de muito trabalho. E nao tenho pressa, pode ser para domingo.

Muito obrigado Sr. Vieira.

Sr. Vieira,

Já está..... Houve alguem que colocou cá este procedimento:

"Private Sub Nº_de_inscrição_AfterUpdate()
Me.Nome = DLookup("[Nome]", "dados geral", "numinscricao= " & Me.Nº_de_inscrição)
Me.Repaint
End Sub"

E funcionou...

Se está resolvido melhor, porque você havia colocado esse procedimento no evento afterupdate() do formulário e não da caixa de texto conforme coloquei acima. Podemos dar o tópico por resolvido.

Ah, uma última coisinha: Não se esqueça de pedir a essa pessoa já agora que analise toda a BD, corrija todos os campos com nomenclatura erradas, máscaras erradas e que substitua o campo "Valor" por outra designação, pois Valor, é uma palavra reservada do access. Enfim, trabalho ´é o que não falta nessa BD.

Bom trabalho e bom fim de semana