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

4 participantes

    Aviso mostrar saldo em form e mostrar cota

    avatar
    wmantovani
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 06/09/2011

    Aviso mostrar saldo em form e mostrar cota Empty Aviso mostrar saldo em form e mostrar cota

    Mensagem  wmantovani 22/3/2013, 11:52

    Boa tarde, tenho um formulário onde é controlado o numero de lampadas entregues, este controle esta amarrado ao CPF, e o limite anual é de 30 unidades.


    Gostaria que no formulario no campo quantidade após digitar o valor o access contasse o que ja foi cadastrado no ano e informasse o saldo restante para atingir o limite de 30 lampadas/ano e se esse limite ja fosse atingido, nao liberar o cadastro durante o ano corrente





    grato
    good guy
    good guy
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1305
    Registrado : 05/02/2010

    Aviso mostrar saldo em form e mostrar cota Empty Aviso mostrar saldo em form e mostrar cota

    Mensagem  good guy 22/3/2013, 15:00

    Olá wmantovani,

    Tente com esta sub. O campo Quantidade coloquei como não acoplado. O campo CPF pode ser uma combo com uma consulta a todos os CPF's como origem da linha.

    Option Compare Database
    Option Explicit

    Private Sub Quantidade_AfterUpdate()
    Call ComparaQuant
    End Sub

    Public Sub ComparaQuant()
    Dim Procura As String
    Dim nCPF As String 'Considerando o número do CPF no formato original (com pontos).
    Dim nAno As Long
    Dim Total As Integer
    Const nQuant = 30
    Dim sQuant As Integer
    Dim sSaldo As Integer
    Dim strSQL As String
    Dim nMes As String

    nAno = Year(Date)
    nMes = UCase(MonthName(Month(Date), True))
    nCPF = CPF
    sQuant = Quantidade
    Procura = Nz(DSum("Quantidade", "tblSaidas", "CPF= '" & nCPF & "'"))
    Total = Procura + sQuant
    MsgBox "A quantidade existente é " & Procura & ", mais este valor o total é " & Total & ".", vbInformation, "Controle"
    sSaldo = nQuant - Procura
    If Total > nQuant Then
    MsgBox "Número acima do limite. Saldo restante é " & sSaldo & ".", vbCritical, "Controle"
    Else
    MsgBox "OK. Dentro do limite. Saldo restante é " & sSaldo & ".", vbInformation, "Controle"
    DoCmd.SetWarnings False
    strSQL = "INSERT INTO tblSaidas(CPF,Quantidade,Ano, Mes)VALUES('" & nCPF & "','" & sQuant & "','" & nAno & "','" & nMes & "')"
    DoCmd.RunSQL strSQL

    DoCmd.SetWarnings True
    MsgBox "Dados Atualizados com Sucesso !!!", vbExclamation, "Controle"
    End If
    End Sub


    CPF Quantidade Ano Mes
    3.859.069 20 2013 JAN
    2.451.618 10 2013 JAN
    3.546.818 29 2013 JAN
    2.451.618 15 2013 FEV
    2.451.618 4 2013 MAR
    2.451.618 1 2013 MAR
    avatar
    wmantovani
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 06/09/2011

    Aviso mostrar saldo em form e mostrar cota Empty Re: Aviso mostrar saldo em form e mostrar cota

    Mensagem  wmantovani 22/3/2013, 20:37

    Caro Good Gyu

    Primeiramente obrigado pela ajuda.
    Fiz alguns ajustes aqui no código que voce postou para atender minhas necessidades como segue abaixo:

    Dim Procura As String
    Dim nCPF As String 'Considerando o número do CPF no formato original (com pontos).
    Dim nAno As Long
    Dim Total As Integer
    Const nQuant = 30
    Dim sQuant As Long
    Dim sSaldo As Integer
    Dim strSQL As String
    Dim nMes As String

    nAno = Year(Date)
    nMes = UCase(MonthName(Month(Date), True))
    nCPF = txtCPF
    'sQuant = QUANTIDADE
    Procura = DSum("QUANTIDADE", "tblDescarteEcoponto")

    Total = Procura + sQuant
    MsgBox "A quantidade existente é " & Procura & ", mais este valor o total é " & Total & ".", vbInformation, "Controle"
    sSaldo = nQuant - Procura
    If Total > nQuant Then
    MsgBox "Número acima do limite permitido que é de 30 unidades/ano por C.P.F./C.N.P.J.. O saldo restante é " & sSaldo & ".", vbCritical, "Controle"
    Me.NOME_TRANSPORTADOR = Null
    Me.txtCPF = Null
    Me.NOME_TRANSPORTADOR.SetFocus

    Else
    MsgBox "OK. Dentro do limite. Saldo restante é " & sSaldo & ".", vbInformation, "Controle"
    DoCmd.SetWarnings False
    strSQL = "INSERT INTO tblSaidas(CPF,Quantidade,Ano, Mes)VALUES('" & nCPF & "','" & sQuant & "','" & nAno & "','" & nMes & "')"
    'DoCmd.RunSQL strSQL

    DoCmd.SetWarnings True
    MsgBox "Dados Atualizados com Sucesso !!!", vbExclamation, "Controle"
    End If
    End Sub


    porem ao mudar o ano no computador ele nao esta permitindo novas inclusões, sempre que o ano virar tem a voltar o limite de 30, mas nao posso perder os registros ja efetuados.


    grato
    good guy
    good guy
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1305
    Registrado : 05/02/2010

    Aviso mostrar saldo em form e mostrar cota Empty Aviso motrar saldo em form e mostrar cota

    Mensagem  good guy 23/3/2013, 16:36

    Olá wmantovani,

    Mude o campo Ano para combobox e crie uma lista de valores anuais: 2011,2012,2013,2014 etc. Não foi possível fazer a inserção com outros anos porque a variável nAno = Year(Date) pega o ano vigente apenas naturalmente. Fica assim a variável nAno:

    nAno = cboAno.Column(0)
    avatar
    williamsbarros
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 65
    Registrado : 31/03/2012

    Aviso mostrar saldo em form e mostrar cota Empty Re: Aviso mostrar saldo em form e mostrar cota

    Mensagem  williamsbarros 13/8/2013, 13:52

    Olá poderia disponibilizar banco de dados como exemplo da utilização da função?

    grato
    Williams.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3130
    Registrado : 22/11/2016

    Aviso mostrar saldo em form e mostrar cota Empty Re: Aviso mostrar saldo em form e mostrar cota

    Mensagem  DamascenoJr. 30/9/2021, 00:00

    wmantovani, algum avanço?

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 16/10/2021, 22:20