[Resolvido]Mensagem ao atingir o valor estabelecido em um parâmetro

Prezados bom dia.

Tenho me debatido aqui com um problema.
Tenho uma tabela chamada tbl_X, dentro dela há um campo numérico chamado Y onde eu insiro um determinado valor numérico ( 10 ou 20 ou 30...tanto faz).
Ou seja ela me estabelece um limite no campo Y ( a outros campos, mas vamos pegar apenas esse como exemplo).

Tenho eu, uma caixa de texto desacoplada ( chamamos ela aqui de Z), em um outro formulário onde adiciono dados. A cada registro especifico é somado um valor que vai para essa caixa de texto Z.

Duvida........

Como realizar...como fazer....como executar uma comparação entre o parâmetro que esta em Y com a caixa Z, avisando o usuário que atingiu o limite estabelecido em Y ?

Tenho utilizados várias maneiras, mas todas sem sucesso efetivo. A última foi essa:

Private Sub Z_AfterUpdate()
If Me.Z >= DCount("Y", "X", "Y") Then
MsgBox " uma mensagem qualquer" & " O Total de Y é de" & DCount("Y", "X", "Y"),vbokonly
End If

Agradeço a ajuda.

Homem raio...nem me lembre disso, que eu entro estado de choque..rsrsr

Avelino, bom dia e grato por me ajudar.

Não....Y  é um parâmetro que o usuário estabelece como limite, ele apenas vai ser alterado uma ou duas vezes ao ano.  Os outros não há tanta importância como esse Y.

Na tbl de origem Z... Y está como:
tipo de dados: número
formato do campo: inteiro longo
Casas decimais: automático

Est perfect est.

Isso mesmo, preciso capturar o valor de Y, que está na tbl X, comparar com o valor que está na txt Z e se o valor da Txt Z for maior que 10 (Y), por exemplo, avisar o usuário que o mesmo excedeu o parâmetro estabelecido em Y (10).

Avelino....
Fiz esse procedimento agora a pouco:

Private Sub Form_AfterUpdate()
If Me.AFGOC.Value >= 10 Then
MsgBox "Quantidade de avaliação de arma de fogo superior a 10" & _
vbCrLf & "O Total de Av. Arma de Fogo nesse dia: " & Date & _
vbCrLf & "É de:" & Me.AFGOC, vbOKOnly, Me.Caption
End If

Não é o ideal ainda, vou aplicar o Dlookup na mensagem em questão buscando o parâmetro desejado.

Gostaria de usar o Dlookup no if me.afgoc.value.......

A luta continua aqui..

Creio que deu certo em partes, ele apenas mantém o valor anterior antes de ser salvo o formulário...

Ficando desse modo...

Código:

Private Sub Form_AfterUpdate()
If Me.AFGOC.Value >= DLookup("ARMADEFOGO", "tblparatend", "ARMADEFOGO") Then
MsgBox "Quantidade de avaliação de arma de fogo superior a 10" & _
vbCrLf & "O Total de Av. Arma de Fogo nesse dia: " & Date & _
vbCrLf & "É de:" & Me.AFGOC, vbOKOnly, Me.Caption
End If
End Sub

Onde,

X= tblparatend.
Y= Arma de fogo
Z= txtdesacoplada no formuário.

Porém, como o usuário não terá acesso ao código fonte, como colocar a quantidade ( nesse caso são 10, mas futuramente pode vir a ser 20 ) na mensagem de aviso ?  usando o Dlookup mesmo ?

Resolvido...ficando o mesmo da seguinte forma.......


Private Sub Form_AfterUpdate()
If Me.AFGOC.Value >= DLookup("ARMADEFOGO", "tblparatend", "ARMADEFOGO") Then
MsgBox "Quantidade de avaliação de arma de fogo superior a: " & DLookup("ARMADEFOGO", "tblparatend", "ARMADEFOGO") & _
vbCrLf & "O Total de Av. Arma de Fogo nesse dia: " & Date & _
vbCrLf & "É de: " & (Me.AFGOC) + 1, vbOKOnly, Me.Caption
End If


Grato Avelino pela dica passada.

Saúde e paz a ti e aos teus.

Silvio

Implementando e conhecimento adquirido!!

Grato.