[Resolvido]Diversas consultas dentro de um form

Boas tardes Pessoal
Bom dia para todos do dia do Trabalhador
Recorro de novo ao vosso apoio pelo seguinte:

Uns bons tempos atrás fui aqui ajudado a criar uma bd caseira para no meu serviço  se tentar controlar peças de vestuário., que ficou impecável.
Passados estes tempos regressei ao mesmo serviço e essa base encontrava-se obsoleta.
Os pc´s subiram para Office 2016 64bits, e a aplicação alem de precisar de actualização , que já fiz, num dos form é necessário ser alterado( conforme exemplo que segue)
Assim solicito mais uma vez a vossa ajuda.
Penso que no form que segue a ideia é esclarecedora, mas ali faltam os conteudos para a fazer funcionar.
mais uma vez obrigado pela vossa paciencia.

Mirsofy

Up

Ainda não consegui resolver
pelo que preciso da vossa ajuda
Gratos

Olá Manuel Costa,

O ideal será compilar o seu projeto e verificar os erros e corrigir.
Se tiver dificuldades, altere o código da sub cmdEntrada_Click por este:

Código:

Private Sub cmdEntrada_Click()
'Aumenta a quantidade do produto no Stock
Dim intQuantidade As Integer
Dim lngCódigoDoProduto As Long
Dim resposta As String

If Me.txtStockRec >= 73 Then resposta = MsgBox(" O Recluso Nº " & Nº & " atingiu o limite de roupa permitida", vbCritical, "AVISO"): Exit Sub

If Me.txtStockDiversas >= 50 Then resposta = MsgBox(" O Recluso Nº " & Nº & " atingiu o limite de roupa permitida", vbCritical, "AVISO"): Exit Sub

If Me.txtStockInterior >= 15 Then resposta = MsgBox(" O Recluso Nº " & Nº & " atingiu o limite de roupa permitida", vbCritical, "AVISO"): Exit Sub

If Me.txtStockCalcado >= 5 Then resposta = MsgBox(" O Recluso Nº " & Nº & " atingiu o limite de roupa permitida", vbCritical, "AVISO"): Exit Sub

If Me.txtStockCasaco >= 2 Then resposta = MsgBox(" O Recluso Nº " & Nº & " atingiu o limite de roupa permitida", vbCritical, "AVISO"): Exit Sub

If Me.txtStockCinto >= 1 Then resposta = MsgBox(" O Recluso Nº " & Nº & " atingiu o limite de roupa permitida", vbCritical, "AVISO"): Exit Sub


On Error GoTo Tratamento
intQuantidade = txtQuantidade
lngCódigoDoProduto = ListaProdutos

If MsgBox("Deseja acrescentar " & intQuantidade & _
        " unidade(s) ao Stock de " & modProduto.Nome & "?", _
        vbQuestion + vbYesNo, "Registo de Peças") = vbYes Then
            intQuantidade = txtQuantidade
            modProduto.AcertaStock1 lngCódigoDoProduto, intQuantidade
            MsgBox "Operação concluída com sucesso. Novo Stock de " & _
            modProduto.Nome & ": " & modProduto.Stock & " unidade(s).", _
            vbInformation + vbOKOnly, "Registo de Vestuário"
            txtQuantidade = 1
            AtualizaCampos
            Me.ListaHistórico.Requery
            ListaProdutos.SetFocus
End If

Exit Sub

Tratamento:
Const conErrNulo = 94
If err = conErrNulo Then
    MsgBox "É necessário selecionar um produto.", vbExclamation + vbOKOnly, "Registo de Vestuário"
    Exit Sub
End If
End Sub

No exemplo que partilhou, verifico que falta a função SóNúmeros, invocada na quantidade, veja:

Código:

Private Sub txtQuantidade_KeyPress(KeyAscii As Integer)
KeyAscii = SóNúmeros(KeyAscii)
End Sub

Verifique se tem no seu projeto.

Lembre-se ALT+F11 -> Compile

Abraço

Ola Vivas Boas tardes

Obrigado pela atenção/ajuda.

Depois de seguir os conselhos, fiquei com a ideia que não expliquei bem o que pretendo aplicar na minha BD.
Aplicando a dica ela fica aplicada(barrada) a todas as caixas, mas não era isso que pretendia.
Cada caixa tem uma contagem diferente.

Obrigado

Olá Manuel Costa,

Só tem que ajustar como pretende.
Pode repor a versão anterior e seguir as recomendações, pois se compilar facilmente verifica onde tem anomalias que deve corrigir.
Apesar de ter atualmente 2016 a 64 Bits , não vi nenhum problema de compatibilidade.
Mas se for esse o caso , não falta exemplos no fórum.

Resumindo, mãos à obra.
Qualquer coisa estamos cá.

Abraço

Ups
ai é que está o meu grande problema.
Enquanto não entender a logica, não tenho conhecimentos para fazer avançar a BD, e por isso peço ajuda.

Olá Manuel Costa,

Compreendo, está no fórum certo para aprender
No entanto tem que começar a mexer, como referi um bom início é começar a eliminar os erros de compilação.
Se tiver dúvidas estamos cá para ajudar.
Pode ir por fazes.

Porque não começa na versão que tem a funcionar antes das alterações.

a) verifica se tem erros de compilação
b) se tiver tenta resolver, se não conseguir partilha e pede ajuda concretamente caso a caso (dificuldade a dificuldade),

Mãos à obra

Abrço

Vivas
Bons dias

erros de compilação não tenho quer na versão antiga (2007), quer agora na versão 2016 64bits, mesmo já com as alterações que já apliquei na BD principal que está em uso.
Corri toda a base e não me dá erro de compilação.
Fica-me a faltar (código) para por em uso as novas alterações.

Bom dia Manuel Costa,

Perfeito, já é o início.

E então qual a próxima parte que pretende fazer.
O que faz e o que deveria fazer?
Onde está com dificuldades, descreva o problema e envie nova base de dados para se analisar e ajudar.

Abraço

ok
vamos então a parte 2

ao registar a entrada de peças de roupa , as mesmas terão de entrar no total individual e no grupo de peças autorizadas.



Exemplo:

no dia 17/05/2023 a família trouxe   30 diversos
                                                    10 interior
                                                      1 calçado

como não saiu nada de peças o programa tem de :

Se já tinha na sua posse:  40 diversos (o barramento só ira permitir entrar 10 diversos)
                                      10 interior  ( o barramento só ira permitir entrar  5 interior)
                                        5 calçado  ( o barramento não permite entrar  calçado)


Estes barramento foi o código já enviado e aplicado na BD, mas está a acontecer em todas as peças e só deveria acontecer individualmente.
Espero que a ideia esteja de fácil entender.

Olá Manuel Costa,

Hoje estou com um tempinho, vamos dar seguimento à mensagem nr 10.
Pode enviar print screen de exemplo de dados a introduzir e resultado esperado.

Abraço

Vivas

Obrigado então pela disponibilidade.
segue um print com o que pretendo e o que me está a acontecer.

Olá Manuel Costa,

Creio que está dentro do que pretende, optei por fazer da seguinte forma nas consultas dos "stocks" por artigo, veja este por exemplo:

Código:

=Nz(DSoma("Quantidade";"tblMovimentações";"Barra =forms!frm_RegistoRoupa!CxBarra AND [CódigoDoProduto]=40");0)

O NZ é para quando não tem registos apresentar zero.

O código tinha alguns erros que tive de corrigir, espero que lhe sirva de exemplo para estudo através de comparação de como estava e como ficou.
Também recomendo que use a "Indentação" no código.
Apesar do video ser VBA no Excel, creio de demonstra muito bem como o código fica mais legível


Abraço

Bons dias

Mais uma vez obrigado pela paciência/ajuda
Dou como resolvido

Olá Manuel Costa,

Fico feliz por ter ajudado.
Obrigado pelo feedback.

Abraço