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

    [Resolvido]Formulário, relação e quantidade

    avatar
    bogenoves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 19/01/2017

    [Resolvido]Formulário, relação e quantidade Empty [Resolvido]Formulário, relação e quantidade

    Mensagem  bogenoves 19/1/2017, 12:09

    Bom dia,

    Este é meu primeiro projeto em access e estou com alguns problemas.
    Basicamente esse é um controle de estoque pra loja da minha irmã.
    Temos a tabela e formulário: Peças onde não tem nenhum segredo
    Temos a tabela e formulário: Máquinas (tabela usada em todas as outras)

    E temos a tabela Retirada, onde aparecem os problemas
    Primeiro, na retirada oq eu preciso, preciso pegar o nome da peça (em uma lista, isso tah fazendo), e com o nome jah colocar o preço dela em "valor" (não consigo fazer isso d jeito algum), no formulário retirada tem alguns campos q servem soh pra este relatório, como Funcionario q fez a retirada, data, etc
    Outro problema é que, quando eu criasse registro dessa retirada, ele tirasse a quantidade usada na retirada da tabela Peças
    Eu tentei fazer algumas relações mas eu fiquei meio perdido

    Poderiam, por favor, me ajudar??

    Desde já agradeço!!
    Anexos
    [Resolvido]Formulário, relação e quantidade Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (146 Kb) Baixado 8 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Formulário, relação e quantidade Empty Re: [Resolvido]Formulário, relação e quantidade

    Mensagem  Noobezinho 19/1/2017, 22:59

    Luis

    Aqui está teu aplicativo modificado

    Veja a caixa de combinação do formulário Retirada

    Estude sobre caixa de combinação, veja as propriedades dela

    Veja o código que coloquei na propriedade Após Atualizar dela.

    Apenas fiz para o campo Valor, tem outros campos que devem

    ser preenchidos ao clica em um item dessa combo.

    Deixei isso pra você fazer e aprender

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    bogenoves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 19/01/2017

    [Resolvido]Formulário, relação e quantidade Empty Re: [Resolvido]Formulário, relação e quantidade

    Mensagem  bogenoves 23/1/2017, 17:12

    Boa tarde, Noobezinho

    O código que você colocou na caixa de combinação foi :

    Private Sub cbo_Peças_AfterUpdate()
    Me.Valor = Me.cbo_Peças.Column(2)
    End Sub

    Oq entendi foi q o "Me" funciona tipo um "this" em java, certo?
    Então fica Me.Valor (o valor do formulário 'Retirada') pega o valor(nao sei aonde tah escrito q pega valor, isso que não entendi. Ele pega o campo de mesmo nome intuitivamente?) da coluna 2(pq a coluna um eh o titulo da caixa de combinação) de cbo_Peças(caixa de combinação das peças)

    De qualquer maneira eu consegui usar, mesmo sem entender perfeitamente.
    Mas a outra parte da dúvida, é a que mais me tira o sono, haahhaha
    Como eu faço pra quando eu salvar o formulário retirada ele tire a quantidade que coloquei na retirada da determinada peça na tabela de peças?
    Eu tentei adicionar no macro do botão de salvar, mas eu nao consigo colocar código lah (soh algumas funções prontas) e na verdade eu não sei 100% como chamar em um formulário a tabela d peças.

    De qualquer maneira, muito obrigado!
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Formulário, relação e quantidade Empty Re: [Resolvido]Formulário, relação e quantidade

    Mensagem  Noobezinho 23/1/2017, 19:12

    Não entendo de java Crying or Very sad

    "Me" refere-se ao próprio formulário em que se esta usando, então

    Me.cbo_Peças.Column(2)

    Que dizer, dado da 2ª coluna da combobox cbo_Peças, deste formulário.

    As colunas de caixas de combinação, caixa de listagem , conta-se a partir do 0.

    E isso tem relação com a consulta que existe na propriedade origem da linha.

    Como disse, veja a ajuda pra pode entender.

    Somente se baixa a quantidade do estoque, na conclusão da venda.

    Assim, evita-se de se  fazer mais uma operação, quando da desistência da mesma.

    Procure aqui no fórum (Menu busca ali encima) por venda, estoque..

    pois existem vários exemplos.

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    bogenoves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 19/01/2017

    [Resolvido]Formulário, relação e quantidade Empty Re: [Resolvido]Formulário, relação e quantidade

    Mensagem  bogenoves 24/1/2017, 14:51

    Seguinte, soh falta essa parte, os exemplos q eu vejo estão prontos para aquela situação e quando eu tento usar no meu, ele trava
    O botão salvar, no "click" tah uma macro de salvar, entao nao consigo colocar código ali, portanto coloquei "ao liberar o mouse", q no fim acaba sendo a mesma coisa
    Segue o trecho pra ver se alguma alma caridosa me diga onde está errado

    Código:
    Private Sub Comando407_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim db As Database
    Dim rsPeças As DAO.Recordset
    Set db = CurrentDb()
    Set rsPeças = db.OpenRecordset("SELECT * FROM Peças")
    rsPeças("Quantidade") = rsPeças("Quantidade") - Me.Quantidade
    db.Close
    rs.Close
    End Sub

    Comando407 -> botão de salvar registro
    Peças -> tabela de peças

    O botão de salvar registro no formulário "Formulário Retirada" que salva na tabela "Retirada"
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Formulário, relação e quantidade Empty Re: [Resolvido]Formulário, relação e quantidade

    Mensagem  Noobezinho 24/1/2017, 15:40

    Para tirar a macro do evento ao clicar do botão de comando, selecione e tecle del.
    O modo mais fácil de selecionar, é clicar na linha acima ou abaixo da linha que quer selecionar
    e depois ir para a linha usando a seta.

    Experimente o código abaixo:

    Private Sub Comando407_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim db As Database
    Dim rsPeças As DAO.Recordset
    Set db = CurrentDb()
    Set rsPeças = db.OpenRecordset("SELECT * FROM Peças")

    rsPeças.index = "PrimaryKey"

    rsPeças.Seek  "=", me.Nomedacaixa de texto com o código do produto , ele deve ser a chave primária.

    rsPeças.Edit ' abre o modo de edição da tabela
    rsPeças("Quantidade") = rsPeças("Quantidade") - Me.Quantidade
    rsPeças.update 'grava o dado na tabela.
    db.Close
    Set rsPeças=Nothing
    End Sub


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    bogenoves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 19/01/2017

    [Resolvido]Formulário, relação e quantidade Empty Re: [Resolvido]Formulário, relação e quantidade

    Mensagem  bogenoves 24/1/2017, 17:00

    Opaaa!
    Vlw, noobezinho!

    Agora deu certo aqui, tava com problemas em percorrer a tabela, então fiz assim, achei mais fácil

    Código:
    Private Sub Comando407_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim db As Database
    Dim rsPeças As DAO.Recordset
    Set db = CurrentDb()
    Set rsPeças = db.OpenRecordset("SELECT Peças.Código, Peças.Quantidade FROM Peças")
    rsPeças.Edit
    rsPeças("Quantidade") = rsPeças("Quantidade") - Me.Quantidade
    rsPeças.Update
    db.Close
    Set rsPeças = Nothing
    End Sub

    Muito obrigado.
    Gostei muito da disponibilidade que teve em me ajudar.
    Quando melhorar as skills em access venho ajudar a galera tb
    []s
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Formulário, relação e quantidade Empty Re: [Resolvido]Formulário, relação e quantidade

    Mensagem  Noobezinho 24/1/2017, 17:57

    Somente um alerta

    Veja se as quantidades estão sendo alteradas nos registros corretamente.

    Isto porque o código passado, procura pelo código do produto (Seek) e depois libera para alterar.

    Boa sorte!



    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    [Resolvido]Formulário, relação e quantidade Empty Re: [Resolvido]Formulário, relação e quantidade

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 01:58