[Resolvido]validação com múltiplos

Bom dia, nossos colegas deste forum,
  Essa é pra quebrar!!!

No dia a dia ao utilizar nosso aplicativo encontrei a necessidade de validar um campo ao sair.

Inclusive já usei algumas validações, mas dentro de nossa necessidade apareceu um probleminha que está gerando muitos erros no dia a dia.

Fazemos entregas de carnes, mas sempre que recebemos as mercadorias os pacotes não seguem um padrão.

Ex: 08/05: Peito de frango = pacote de 5kg aí entregamos múltiplos de 5 tipo: 5,10,15,20,25,30,35 etc...
10/05: Peito de frango = pacote de 3kg aí entregamos múltiplos de 3 tipo; 3,6,9,12,15,18,21,24 etc...

então preciso de uma validação pra quando digitar em uma certa textbox validar os múltiplos, ou seja de 3, ou de 5, ou de 7, e assim por diante.

Se alguém puder me ajudar exemplificando o caso, ficarei muito grato, pois ao passar despercebido acaba gerando relatórios incorretos, onde fica complicado para os devidos acertos, uma vez que os recibos de entregas recebem a ciência de recebimento.

Grato,

Campos.

Olá Campos,
Deixa ver se eu entendi.
Você quer digitar em uma caixa de texto, por exemplo, "5", e que os cálculos sejam feitos apenas para permitir que se alimente outro(s) campo(s) com múltiplos de "5". É isso?
Se for, como será feito isso? Terão outras textbox's para preenchimento? Ou campos calculados?

olá rdrck,

Na verdade tenho um banco de dados com os respectivos pesos das carnes para cada ponto de entrega.

Ex: ponto01:

carne bovina: 40kg carne suína: 35kg peito de frango: 40kg Peixe: 20KG

O que acontece é assim:

Pode acontecer que no próximo recebimento a carne suína venha em pacotes de 10KG e se eu gerar o pedido para o ponto01 com 35KG a expedição recusa pelo fato dos pacotes a separar seja de 10kg, onde na verdade teria que ser múltiplos conforme o recebimento dos pacotes.

No exemplo acima, ao invéz de gerar 35kg de carne suína, teria que gerar 40kg, pois meu último recebimento veio em pacotes de 10kg, e sempre aproximo pra mais.

no meu sistema é assim:

quando abro o ponto01,(por exemplo), já vem com os devidos pesos.
Só preciso digitar em uma textbox abaixo(No caso Vazia) a quantidade que está sendo demonstrada.

Aí que vem o problema se os pacotes de carne suína vem de 10kg. sempre só posso gerar 10 em 10.

por isso que a validação teria que estar vinculada dentro desta textbox em branco, e ao digitar por exemplo 35 e se o peso for múltiplo de 10 não aceitaria, desse uma msgbox: Este tipo de carne só é aceito multiplo de ........!

Ok,

Grato,
Campos.

Boa tarde,
Pelo que entendi, tem várias soluções:
1 - Referenciar diferentemente cada variante
ou
2 - No formulário, escolher o tipo de caixa que está a trabalhar: se estiver em 3 kg, ele ir-lhe-á validar de 3 em 3; se fôr de 5 kg, validar-lhe-á de 5 em 5; etc.
neste caso, tem de equacionar a possibilidade de ter mais que um tipo de caixa (3, 5 ou 10kg) na mesma expedição

Alexandre, bom dia!
 
É isso mesmo Alexandre.
 
Mas em questão da variação, posso criar a opção de deixar cadastrada, tipo no cabeçalho do relatório, para que sirva para todos os locais de entrega.
 
Onde farei a validação com base nestas textbox com os pesos padrões do lote a dar a saída.
 
Por isso fiz um modelo que não é o que uso, somente para exemplificar e melhorar a resolução deste tópico.

Boa tarde,
Indiquei duas possibilidades. Diz que sim, a qual delas?
Melhore na nomeação de controlos: Bovina é nome de controlo e nome de campo. Nem você saberá ao que se referirá nem o Access.
Por exemplo, indica 35 no peito de frango. Como sabemos que os pacotes são de 5 kg?
Dê todos os detalhes

bom dia alexandre!
 
Então,
 
Tenho 3 formulários:
 
 
O 1º com os pesos dos pacotes que chegaram, onde altero de acordo com o peso de chegada. multiplo de 5, ou de 10, ou de 3.
Obs*** Só altero quantidade dos pesos quando termina o lote, nunca é misturado, ok.
 
O 2º com o peso padrão de cada local que entregarei, e esses pesos poderão estar em desacordo com o 1º( que é dos pesos de pacotes que chegaram)
 
O 3º onde digito sempre olhando no form 2º (faço uma cópia similar ou às vezes pra mais ou menos)
 
 
Preciso de um recurso que ao digitar no 3º, estabelecer uma regra de acordo com o primeiro.
Sendo que se por exemplo no 1º a Salsicha venha em pacotes de 3kg no 3º só poderei digitar os valores de 3 em três.E nunca por exemplo 10kg pois 10 não é múltiplo de 3.
 
Assim a validação evitaria muitos problemas de erros de digitação.
 
Ficaria 100% se na validação já arredondasse para o múltiplo correto e próximo a maior do valor errado.
 
Exemplo:
 
Os pacotes vem de 3 em 3.
 
Digito 5KG, o sistema acusa erro de peso, pois teria que ser múltiplo de 3, então arredondaria para 6.
 
Desafio em Alexandre!!  
 
Fico grato pela disposição,
 
Campos.

Boa tarde,
No formulário Entrega, retire todo o código que lá tem e cole este:

Option Compare Database
Option Explicit

Private intPesoCarne As Integer, intPesoSuino As Integer, intPesoFrango As Integer, intPesoPeixe As Integer, intPesoSalsicha As Integer, intPesoPeito As Integer

Private Sub Comando50_KeyPress(KeyAscii As Integer)

End Sub

Private Sub Data_AfterUpdate()
Me.Bov.SetFocus
End Sub

Private Sub Form_Current()
Me.Data = ""
Me.Bov = "0"
Me.Suin = "0"
Me.Peix = "0"
Me.Fran = "0"
Me.PeitoFgo = "0"
Me.Sals = "0"

End Sub

Private Sub Form_Load()
DoCmd.Maximize
Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("Pacotes")
intPesoCarne = Rst("pctecarne")
intPesoSuino = Rst("pctesuino")
intPesoFrango = Rst("pctefrango")
intPesoPeixe = Rst("pctepeixe")
intPesoSalsicha = Rst("pctesalsicha")
intPesoPeito = Rst("pctepeito")
Rst.Close
Set Rst = Nothing
End Sub

Private Sub Gerar_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("saidas") ' correto
With rs
rs.AddNew

rs("ponto_entrega") = Me.Ponto 'o campo do formulário que irá exportar
rs("data") = Me.Data 'o campo do formulário que irá exportar
rs("bovina") = Me.Bov 'o campo do formulário que irá exportar
rs("suína") = Me.Suin 'o campo do formulário que irá exportar
rs("frango") = Me.Fran 'o campo do formulário que irá exportar
rs("peito_frango") = Me.PeitoFgo 'o campo do formulário que irá exportar
rs("salsicha") = Me.Sals 'o campo do formulário que irá exportar
rs("peixe") = Me.Peix 'o campo do formulário que irá exportar

If MsgBox("Confirma a Inclusão dos Dados", vbYesNo, "Titulo") = vbYes Then
rs.Update
MsgBox "Registro incluído com sucesso!", vbExclamation, "Controle de Carnes"
Me.Refresh
On Error Resume Next
Me.Refresh
Else
rs.CancelUpdate
MsgBox "Operação Cancelada!", vbExclamation, "Controle de Carnes"
End If
rs.Close
db.Close
End With
Me.Data = ""
Me.Bov = "0"
Me.Suin = "0"
Me.Peix = "0"
Me.Fran = "0"
Me.PeitoFgo = "0"
Me.Sals = "0"

End Sub

Private Sub TxtBov_AfterUpdate()
Corrige:
If TxtBov > 0 Then
If TxtBov < TxtBovina Then TxtBov = TxtBovina
If TxtBov Mod intPesoCarne > 0 Then TxtBov = TxtBov + 1: GoTo Corrige
End If
End Sub

Private Sub TxtFran_AfterUpdate()
Corrige:
If TxtFran > 0 Then
If TxtFran < TxtFrango Then TxtFran = TxtFrango
If TxtFran Mod intPesoFrango > 0 Then TxtFran = TxtFran + 1: GoTo Corrige
End If
End Sub

Private Sub TxtPeitoFgo_AfterUpdate()
Corrige:
If TxtPeitoFgo > 0 Then
If TxtPeitoFgo < TxtPeitoFrango Then TxtPeitoFgo = TxtPeitoFrango
If TxtPeitoFgo Mod intPesoPeito > 0 Then TxtPeitoFgo = TxtPeitoFgo + 1: GoTo Corrige
End If
End Sub

Private Sub TxtPeix_AfterUpdate()
Corrige:
If TxtPeix > 0 Then
If TxtPeix < Txtpeixe Then TxtPeix = Txtpeixe
If TxtPeix Mod intPesoPeixe > 0 Then TxtPeix = TxtPeix + 1: GoTo Corrige
End If
End Sub

Private Sub TxtSals_AfterUpdate()
Corrige:
If TxtSals > 0 Then
If TxtSals < TxtSalsicha Then TxtSals = TxtSalsicha
If TxtSals Mod intPesoSalsicha > 0 Then TxtSals = TxtSals + 1: GoTo Corrige
End If
End Sub

Private Sub TxtSuin_AfterUpdate()
Corrige:
If TxtSuin > 0 Then
If TxtSuin < TxtSuína Then TxtSuin = TxtSuína
If TxtSuin Mod intPesoSuino > 0 Then TxtSuin = TxtSuin + 1: GoTo Corrige
End If
End Sub

Olá Alexandre!


Vou testar, logo de respondo, ok.

Grato

Campos.

Alexandre, Bom dia!

Estou fazendo alguns ajuste em meu formulário,

Encerrarei os testes e logo retorno,

Grato,

Um abraço,
Campos.

Bom dia Alexandre!!

Achei muito interessante a forma que você montou para mim, porém não consegui fazer a adaptação, até mesmo por falta de conhecimentos específicos.

Então, precisei aguardar até que conseguisse fazer o recursos funcionar, foi então que Postei um BD exemplo recentemente e acabou sendo resolvido por você mesmo, recebendo uma sugestão do recurso "Mod".

Por isso estou concluindo o Resolvido deste tópico.

Um abraço,

Grato,

Campos.