[Resolvido]Aviso mostrar saldo em form e mostrar cota

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

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

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

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)

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

grato
Williams.

wmantovani, algum avanço?

Aguardamos...

Bom dia DamascenoJr., deu tudo certo sim, muito obrigado e desculpa nao ter dado o devido retorno à época.