MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    erro no total

    avatar
    marcocalixto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 08/12/2011

    erro no total Empty erro no total

    Mensagem  marcocalixto 12/7/2015, 14:33

    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.
    Anexos
    erro no total Attachmentindustrializacao.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (663 Kb) Baixado 12 vez(es)
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    erro no total Empty Re: erro no total

    Mensagem  Fernando Bueno 28/8/2015, 09:49

    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


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    erro no total 16rzeq

      Data/hora atual: 7/12/2022, 13:40