[Resolvido]Campo de soma actualiza no formulario sem fazer F5 ao mesmo.

Boa noite,
Estou aqui como uma duvida, num outro tópico atrás em relação as datas, perguntei se haveria possibilidade de ser ver as horas a andar num formulário.
Hoje a minha duvida é outra mas idêntica! Visto que estou num sistema de vendas e tenho campos de contagem de Vendas, gostava que o campo fosse actualizando sem existir um refresh ou mesmo um Close/Open ao formulário.

Tentei utilizar o exemplo que me foi dado no tópico sobre as datas pelo Criquio, mas não encontro esse campo pois estou agora a trabalhar com o Office 2007:

"Para atualizar, coloque o Cronômetro em 1000 e no evento "No timer" do formulário, coloque: Me.NomeCampo.Requery"

É o mesmo procedimento ou será outro?
Obrigado

Você não encontrou o evento "No intervalo do cronômetro"? É isso?

Sim, no Office 2007 nao esta la esse campo..

Só se o seu Access estiver bêbado. No meu tem ele, hehehe.

Loool
No meu tem isto
- "Ao fazer Clique"
- "Antes de actualizar"
- "Depois de actualizar"
- "Em dados não guardados"
- "Ao alterar"
- "Ao receber foco"
- "Ao perder foco"
- "Ao fazer douplo clique"
- "Ao premir o botão do rato"
- "Ao soltar o botão do rato"
- "Ao mover o rato"
- "Com a tecla em baixo"
- "Com a tecla em cima"
- "Ao premir a tecla"
- "Ao entrar"
- "Ao sair"
- "Ao anular"


Esta é a lista que tenho na tab "Evento"

Então você está olhando nos eventos do controle e não do formulário.

Heis....barraca minha, sim no formulario está la.
Mas assim sendo, quando é feito uma "venda" o resultado so fica bem quando o formulário volta a abrir.
Não é possivel ele actualizar sem ter de fechar o formulário?

Parece-me que você quer que o campo seja atualizado ao finalizar a gravação do registro. Se for isso, coloque o requery no "Ao clicar" do botão aonde você clica para gravar o registro, no final dele, sendo a última linha.

Mas eu como requeri tenho de selecionar um campo, certo? Do genero:

Me.Nome.Requery

Você quer atualizar o campo que contem o total de vendas, certo? Então você dará o Requery à esse campo:

Me.CampoTotalVendas.Requery

Criquio, acho que me esqueci de mencionar uma coisa.
São formularios diferentes. Esse codigo deveria ser para algo que esta no mesmo formulário, correcto?

Então tente assim:

Forms!NomeFormulário!NomeCampo.Requery

Se estiver em um subformulário dentro do outro form:

Forms!NomeFormulário!NomeSubFormulário.Form!NomeCampo.Requery

Eu tenho assim e nao esta a dar :S Podes ver se esta mal?

Private Sub Cmd5_Click()
On Error GoTo Err_Cmd5_Click
stDocName = "frmUsuario"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Forms!frmUsuario!txtMesEquipa.Requery
DoCmd.Close
MsgBox "Venda Registada com Sucesso!", vbInformation + vbOKOnly, "Informação"
DoCmd.OpenForm stDocName



Exit_Cmd5_Click:
Exit Sub

Err_Cmd5_Click:
MsgBox Err.Description
Resume Exit_Cmd5_Click

End Sub

Tente mudar de local assim:

Private Sub Cmd5_Click()
On Error GoTo Err_Cmd5_Click
stDocName = "frmUsuario"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
MsgBox "Venda Registada com Sucesso!", vbInformation + vbOKOnly, "Informação"
DoCmd.OpenForm stDocName
Forms!frmUsuario!txtMesEquipa.Requery
DoCmd.Close

Exit_Cmd5_Click:
Exit Sub

Err_Cmd5_Click:
MsgBox Err.Description
Resume Exit_Cmd5_Click

End Sub

Tenho de voltar a experimentar, pois eu tenho cerca de 10 locais que devem actualizar ao mesmo tempo.
o "DoCmd.Close" nao pode ficar onde puses-te se nao fecham-me o formulario que acabo de abrir e deixa-me o outro aberto.

Amanha começo a experimentar. Depois digo algo.

Coloca assim:

DoCmd.Close acForm, Me.Form

Assim, em qualquer local que colocar, fechará o form aonde o evento estiver.

Já não sei o que fazer :S
Já andei a fazer experiencias de todos os modos e a unica coisa que acontece é fechar-me o Form que já estava aberto.
Ou seja, eu tenho o frmUsuario aberto onde tenho uma opção de "criar Venda". O novo Formulario abre e mantem o outro aberto. Quando faço guardar venda, este mantem-se aberto e o outro antigo é que fecha....não entendo :S

tenho o código assim neste momento:

Private Sub Cmd10_Click()

MsgBox "Venda Registada com Sucesso!", vbInformation + vbOKOnly, "Informação"
Forms!frmUsuario!txtMesEquipa.Requery
Forms!frmUsuario!txtDiaEquipa.Requery
Forms!frmUsuario!txtDiaUser.Requery
Forms!frmUsuario!txtMesUser.Requery
DoCmd.Close
stDocName = "frmUsuario"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

em relação a esse ultimo código Criquio, da-me sempre erro...

Você faz referência ao stLinkCriteria mas não o vi no código.

Outra coisa, você está colocando o Requery antes de abrir o form. Desse jeito não funciona, pois o form ainda não está aberto. Você precisa abri-lo antes. Coloque assim no Close que deve funcionar:

DoCmd.Close acForm, Me.Name

Dessa forma, você poderá colocá-lo ao final.

Pois em relação a isso nem sei porque esta, pois também não sei para que serve.. :S
olha eu pus assim e actualiza, mas nao fecha:

Private Sub Cmd10_Click()

stDocName = "frmUsuario"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
MsgBox "Venda Registada com Sucesso!", vbInformation + vbOKOnly, "Informação"
DoCmd.Close
DoCmd.OpenForm stDocName
Forms!frmUsuario!txtMesEquipa.Requery

End Sub

Depois experimentei assim, mas este nao actualiza:

Private Sub Cmd10_Click()

stDocName = "frmUsuario"
DoCmd.Close
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
MsgBox "Venda Registada com Sucesso!", vbInformation + vbOKOnly, "Informação"
DoCmd.OpenForm stDocName
Forms!frmUsuario!txtMesEquipa.Requery

End Sub

Já experimentei e da-me erro..

Experimentou com ele no final do código?

Private Sub Cmd10_Click()

stDocName = "frmUsuario"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
MsgBox "Venda Registada com Sucesso!", vbInformation + vbOKOnly, "Informação"
DoCmd.OpenForm stDocName
Forms!frmUsuario!txtMesEquipa.Requery
DoCmd.Close acForm, Me.Name

End Sub

Criquio, infelizmente assim com esse comando ele nao faz a actualização.

Qual o erro que dá da forma anterior? Ele depura para qual linha? Sempre que ocorrer um erro , coloque a mensagem de erro e a linha para o qual é apontada que fica mais fácil identificar o motivo, ok?

O problema é que não aparece nenhum erro. Simplesmente nao actualiza.

Tente passar essa parte para o evento "Ao fechar" do formulário:

Forms!frmUsuario!txtMesEquipa.Requery

Nada...
Com este comando "DoCmd.Close acForm, Me.Name" o formulario não actualiza em lado algum
e com o "DoCmd.Close" ele não fecha.

Pensando bem, para que fechar o formulário de menu? Se ele ficar aberto, nem que seja em modo invisível, deve atualizar. Uma vez que esse formulário aonde você está colocando o evento de atualizar o outro irá se sobrepor à esse outro, ocultando-o, não vejo motivos para fechá-lo. Caso não queira que ele fique visível, pode trocar o DoCmd.Close por Me.Visible = False e quando fechar esse segundo form, coloca: Me.NomeForm.Visible = True

Entao e se eu tiver um botão para fazer refresh a alguns campos do formulario, é possivel?
Penso que ainda seria o melhor.

Sim, pode usar um botão.

Ok. Já o fiz!
Obrigado

De nada. Valeu.