[Resolvido]Atualizar campo Total fazendo Update

Olá Galera!
Tenho um formulário de cadastro de produção, ali eu tenho os campos data e os campos com a quantidade que cada turno produziu.
Quando o usuario vai cadastrar uma nova produção ele é obrigado a preencher um dos tres turnos, ficando os outros dois vazios.
No formulario tenho um label que quero mostrar o total produzido naquele dia vindo setado no campo "data" a data atual do dia. Nao sei como fazer isso!

Segue o codigo do que eu fiz.

Private Sub Gravar_Click()
Dim rst1 As DAO.Recordset
Set rst1 = CurrentDb.OpenRecordset("T002_Producao_diaria")

Dim prodTotal As Integer

If IsNull(Me.txtdata) Or IsNull(Me.txtTurno1 & Me.txtTurno2 & Me.txtTurno3) Then
MsgBox "Preencha o campo por favor!", vbCritical, "Alerta"
Exit Sub
prodTotal = txtTurno1 + txtTurno2 + txtTurno3;
Else

If MsgBox("Deseja realmente gravar?", vbYesNo, "Atenção - Gravar") = vbYes Then

rst1.AddNew
rst1("T002_ID_EZKL") = Processo_Global
rst1("T002_Data") = txtdata
rst1("T002_Prod_1T") = txtTurno1
rst1("T002_Prod_2T") = txtTurno2
rst1("T002_Prod_3T") = txtTurno3
rst1("T002_Prod_Total") = prodTotal
rst1.Update
MsgBox " Resgistro Cadastrado com Sucesso!", vbInformation + vbOKOnly, "Confirmação!"
Me.Undo
rst1.Close
Set rst1 = Nothing
txtdata.SetFocus
End If
End If

'Me.RecordSource = "Qualidade3 - " & ID_Global
Me.Requery
End Sub


Obrigado galera

Olá Norberto.

Quero que o meu label lblProdTotal consiga mostrar a soma da produção total do dia, sendo que eu irei cadastrar 3 produçoes diferentes durante o dia, porque tenho o que foi feito no turno 1, turno 2 e turno 3. O usuario vai entrar e cadastrar o total produzido no seu turno.

Esta variável prodtotal que eu criei está dando erro, foi uma tentativa minha mas nao sei se o raciocinio está correto.

O campo data ele é texto mesmo e eu só quero que ele venha com a data padrao do dia... só que dando opçao para o usuário modificar a data caso ele tenha esquecido de cadastrar alguma produçao atrasada.

Obrigado por tentar ajudar!

Norberto, entendi o que as duas alternativas. Sobre a data deu certo, já sobre o prodtotal nao muito.

O meu problema é o seguinte, como o usuário irá cadastrar turnos diferentes, em horarios diferentes, acredito que irei precisar fazer uma busca na tabela para saber qual turno ja foi cadastrado para somar com o que está sendo cadastrado para mostrar no campo prodTotal.

Nao sei como fazer essa pesquisa através de código. Obrigado

Sim....corretamente! Tenho no meu formulário os campos txtTurno1, txtTurno2, txtTurno3.

Segue o arquivo para sua analise.
o formulario é o F_producao, vc nao conseguir executar, somente em modo designe porque a execuçao está toda atrelada ao usuario do pc e tem muito codigo por tras.

Vou tentar explicar porque está confuso mesmo.

Eu tenho meu formulário F_Produçao, nele tenho meus campos de cadastro para cada turno 'Turno1,Turno2,Turno3', e também tenho um campo total. Após acabar o Turno1, o usuário vai entrar no sistema e digitar o que foi produzido no turno1 e será armazenado na minha tabela no campo turno1. Após acabar o Turno2, outro usuário diferente do primeiro irá cadastrar o que foi produzido no turno2 e assim por diante.

Após eu cadastrar o Turno1 eu terei o valor armazenado na minha tabela, em seguida inseri o valor do turno2 e terei que buscar na minha tabela os valores dos campos Turno1 e Turno2 para mostrar no campo Total do meu formulário.

A inserção estou fazendo, só nao sei como fazer esse atualizar do campo Total mostrando a soma dos campos.


Acho que é isso. Se puder me ajudar eu agradeço.

Norberto....a ideia é essa, atualizar o campoTotal toda vez que um dos tres turnos receber um valor.

Fiz o que me sugeriu mas nao deu resultado algum.
Será que nao é o caso colocar os AfterUpdate no campoTotal??

Abraaaço

Olá Norberto, consegui resolver o problema parcialmente.

O meu campoTotal funciona normalmente sendo ele um txt, se ele for um label ja nao funciona.
Sabe porque??

Na verdade queria usar label porque achei que ficaria melhor visualmente, mas estou usando text box e tá funcionando legal.
Obrigado