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


2 participantes

    Verificação de saldo de todos os itens de 01 subfom

    avatar
    FilipeFaria
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 17/06/2017

    Verificação de saldo de todos os itens de 01 subfom Empty Verificação de saldo de todos os itens de 01 subfom

    Mensagem  FilipeFaria 29/8/2023, 19:53

    Pessoal, boa tarde!!

    depois de algumas pesquisas pelo fórum e no próprio google e não conseguir realizar a contento o que preciso, solicito a ajudas dos caríssimos.

    Sei que esse assunto já é bem difundido por aqui, mas já apanhei um pouco e preciso evoluir no meu projeto.

    Tenho um Fom_venda com SubForm.

    Preciso que ao clicar em um botão no formulário principal (Form_Venda) que percorra os itens do subform e verifique se """"todos"""" tem saldo suficiente na tabela PRODUTOS para efetuar a baixa.

    Caso algum dos produtos não tenha saldo , a ação deve ser cancelada e emitir uma mensagem ao usuário.

    "O produtos abaixo não tem saldo suficiente"

    Produto A
    Produto B
    Produto c.........

    Acredito que os produtos sem saldo devem ser armazenados numa variável e para posteriormente serem apresentados ao usuários via msgbox.
    Entendo o conceito de variável mais estou tendo dificuldade para conseguir implantar por limitação de conhecimento.
    Não sei o melhor caminho para fazer essa tratativa (se por recordset....dlookup ou outro) por isso peço ajuda aos amigos.

    Desde já agradeço.
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1059
    Registrado : 11/11/2009

    Verificação de saldo de todos os itens de 01 subfom Empty Re: Verificação de saldo de todos os itens de 01 subfom

    Mensagem  scandinavo 30/8/2023, 14:45

    Apapta ai


    ao clicar de um botão


    Dim rst As Recordset
    Set rst = Me.seusubfrm.Form.Recordset
    rst.MoveFirst
    Do While Not rst.EOF
    With rst

    Me.emestoque = DLookup("Estoque", "tbentrada", "codproduto=" & "produto") 'funciona

    If Me.emestoque < Me.qnt Then
    Me.baixa = False
    Me.diferenca = Me.qnt - Me.emestoque
    Else
    If Me.emestoque >= Me.qnt Then
    Me.baixa = True
    End If
    End If
    .MoveNext
    End With
    Loop
    Set rst = Nothing
    MsgBox "alguma baixas tera que ser feito manualmente"
    Me.Form.Requery
    End Sub




    qualquer coisa pota seu banco de dados
    avatar
    FilipeFaria
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 17/06/2017

    Verificação de saldo de todos os itens de 01 subfom Empty Re: Verificação de saldo de todos os itens de 01 subfom

    Mensagem  FilipeFaria 31/8/2023, 16:59

    Meu Nobre Amigo Scandinavo

    Não consegui ainda visualizar como aplicar da forma acima mencionada.

    Vou tentar explicar dentro do seu exemplo e no que tentei adaptar para tentar explanar melhor.

    Private Sub Comando30_Click()

    Dim rst As Recordset
    Set rst = Me.FRM_SUB_DETALHE_VENDA.Form.Recordset
    rst.MoveFirst
    Do While Not rst.EOF
    With rst

    EmEstoque = DLookup("EmEstoqueD001", "PRODUTOS", "codprd= '" & rst![CodigoProduto] & "'")

    If EmEstoque >= rst![Quantidade] Then

    'Então a baixa para esse produto deverá acontecer se os demais também tiverem saldo suficiente

    If EmEstoque < rst![Quantidade] Then

    ' Então guarda numa variável, ou de alguma outra forma, a "descrição do Produto" para depois da verificação total (de todos os produtos), informar ao usuário quais não tem saldo

    End If
    End If
    .MoveNext
    End With
    Loop

    'Ao sair do loop emitir uma mensagem ao usuário e informar que os produtos x,y,z não possuem saldo sufuciente.
    'Portanto a ação de baixa será cancelada até regularização.


    Set rst = Nothing
    Me.Form.Requery
    End Sub
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1059
    Registrado : 11/11/2009

    Verificação de saldo de todos os itens de 01 subfom Empty Re: Verificação de saldo de todos os itens de 01 subfom

    Mensagem  scandinavo 31/8/2023, 22:33

    Ou seja
    da baixa em todos os produtos ou em nenhum.
    avatar
    FilipeFaria
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 17/06/2017

    Verificação de saldo de todos os itens de 01 subfom Empty Re: Verificação de saldo de todos os itens de 01 subfom

    Mensagem  FilipeFaria 1/9/2023, 00:32

    Exatamente amigo.

    Gostaria que se fosse possível percorresse todos os itens afim de informar o usuário quais não tem saldo suficiente
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1059
    Registrado : 11/11/2009

    Verificação de saldo de todos os itens de 01 subfom Empty Re: Verificação de saldo de todos os itens de 01 subfom

    Mensagem  scandinavo 4/9/2023, 12:56

    Veja ai

    Anexos
    Verificação de saldo de todos os itens de 01 subfom AttachmentPercorrer Sub Form Estoque.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (42 Kb) Baixado 7 vez(es)
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1059
    Registrado : 11/11/2009

    Verificação de saldo de todos os itens de 01 subfom Empty Re: Verificação de saldo de todos os itens de 01 subfom

    Mensagem  scandinavo 17/9/2023, 21:19

    Será que nosso amigo esta vivo?
    Sleep


    Eu estou abandonando o post.

    Conteúdo patrocinado


    Verificação de saldo de todos os itens de 01 subfom Empty Re: Verificação de saldo de todos os itens de 01 subfom

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/10/2024, 20:29