erro no total

Bom dia!

Estou desenvolvendo no access 2010, um banco de dados com itens de industrialização, porém, estou com as seguintes dúvidas:

-Fiz no formulário de saída (frmsaida) um total, mas, não faz o calculo correto. onde estou errando?
-Como devo fazer para limitar a alteração no botão alterar? Tipo senha. Segue abaixo o código que tenho no botão.
Private Sub btn_alterar_Click()
Me.btn_anterior.Enabled = True
Me.btn_proximo.Enabled = True
Me.btn_primeiro.Enabled = True
Me.btn_ultimo.Enabled = True
Me.btn_localizar.Enabled = True
Me.btn_alterar.Enabled = True
Me.btn_excluir.Enabled = True
Me.data.Enabled = True
Me.notafiscalsaida.Enabled = True
Me.cbm_cliente.Enabled = True
Me.cbm_carcaca.Enabled = True
Me.cbm_notafiscalentrada.Enabled = True
Me.cbm_produto.Enabled = True
Me.cbm_valorunitnf.Enabled = True
Me.quanti.Enabled = True
Me.btn_salvar.Enabled = True
Me.btn_consultar.Enabled = False
Me.btn_novo.Enabled = False

End Sub

Segue o anexo do arquivo para melhor compreensão.

Bom dia;

Aconselho colocar o valor unitário de cada item no cadastro da tabela produtos,

pelo que vi o erro ocorre porque ele atribui todos os valores da combo na soma do total multiplicado

a quantidade, vou deixar um exemplo bem simples que te ajudará entender melhor.

Quanto a alteração solicitando senha pode colocar dessa forma:

Código:

Private Sub btn_alterar_Click()
 Dim UsrResposta
  UsrResposta = InputBox("Insira a senha para alterar os dados.", "Senha requerida")
  If UsrResposta = "suasenha" Then 'este valor entre parenteses é a senha
      Me.btn_anterior.Enabled = True
      Me.btn_proximo.Enabled = True
      Me.btn_primeiro.Enabled = True
      Me.btn_ultimo.Enabled = True
      Me.btn_localizar.Enabled = True
      Me.btn_alterar.Enabled = True
      Me.btn_excluir.Enabled = True
      Me.data.Enabled = True
      Me.notafiscalsaida.Enabled = True
      Me.cbm_cliente.Enabled = True
      Me.cbm_carcaca.Enabled = True
      Me.cbm_notafiscalentrada.Enabled = True
      Me.cbm_produto.Enabled = True
      Me.cbm_valorunitnf.Enabled = True
      Me.quanti.Enabled = True
      Me.btn_salvar.Enabled = True
      Me.btn_consultar.Enabled = False
      Me.btn_novo.Enabled = False
    Else
  MsgBox "Senha incorreta", vbCritical, "Senha incorreta"
 End If
End Sub

https://www.dropbox.com/s/e1buh1wmcmrif8f/Exemplo_pedidos.accdb?dl=0