[Resolvido]Ao finalizar venda marcar itens vendidos

Bom dia a todos !
Tenho formulário de cadastro de obras, e dentro tem um subform onde cadastro os apartamentos, dentro desse subform tenho um campo "sim/não".
Na tela de vendas, tenho uma lista desses apartamentos, onde filtro por uma combox os apartamentos correspondentes aquela obra. Quando dou um duplo click nos apartamentos selecionados, através do insert into insiro todas as informações que preciso em uma outra tabela. Até aí tudo bem. Quando clico em um botão para finalizar a venda, como faço para marcar o campo "Sim/não" do apartamento correspondente na tbl de apartamentos para que ele não esteja mais disponível para venda ?

Gratidão.

Veja algo bem parecido com o que precisa... Nesse caso é com Empréstimo de Livros.
youtube.com/watch?v=VE5GOGb4PB0

Boa tarde !
Assisti o  vídeo, fiz o código seguindo o exemplo do vídeo e nada certo.
Quando finalizo a venda, marca apenas um apartamento e não todos os que foram inseridos.
Vou anexar o BD para melhor analise.
Gratidão.

Amigo, se tem mais de um apartamento, logo terá que realizar um Loop para isso!

Faça atraves de Recorset, busque todos os apartamentos da venda atual... Edite o registro, atualize ele e vá para o Proximo.

Algo muito parecido com o parcelamento do outro tópico.

Boa noite meu caro !
Vou tentar buscar mais informações no fórum, pois não entendi muito bem o que me falou. Se puder me dar mais detalhes ficarei grato.

Lembra do que foi feito aqui nesse tópico:
https://www.maximoaccess.com/t30838-resolvidoparcela-trimestral
Então, irá fazer um Loop pelos registros referente a venda que acabou de fazer, e atualizar o registro.

No gerador de parcelas, eu abria um recordset na tabal (Set rs = DB.OpenRecordset("Tbl_Parcelamento")) e adicionava os registros, certo?

Agora iremos fazer um pouco diferente:
Set rs = DB.OpenRecordset("SELECT * FROM NomeTabela WHERE IDVenda= " & Me.IDVenda &"")
Dessa forma eu busco todos os APs incluido na venda atual, filtrando pelo campo IDVenda.

Agora, basta eu realizar um Loop e Editar o registro, ao inves de
rs.AddNew

Será Rs.Edit

Boa tarde !
"Dessa forma eu busco todos os APs incluido na venda atual, filtrando pelo campo IDVenda." não entendi essa parte.

Nesse código : Set rs = DB.OpenRecordset("SELECT * FROM NomeTabela WHERE IDVenda= " & Me.IDVenda &"") vou selecionar a tabela de detalhes da venda ou a de apartamentos? Acredito que a de detalhes da venda né ? Mas como que por ela eu vou marcar os apartamentos que foram vendidos na tbl_aptos ? Eis a minha dúvida.

Abraços.

Veja aqui como fazer...
https://www.maximoaccess.com/t30841-entrada-saida-de-estoque-no-clique-de-um-botao
Nesse caso foi estoque, mas é a mesma coisa!

Bom dia meu caro !
Estou tentando adaptar o código utilizado na video aula que você mencionou mas não estou obtendo sucesso:

Código:

'Criado por Fabio Paes
'  Em 25/07/2017

DoCmd.RunCommand acCmdSaveRecord 'Salvo o Registro antes de começar a selecionar os dados
Dim DB As Database 'Declaro as variaveis utilizadas no codigo
Dim rsO, rsD, rsD2 As DAO.Recordset 'Variavel rsO=Fara a consulta dos produtos lançados na NF (Origem)
                                    'rsD=Fara a consulta do produto a ser adicionado o Estoque
                                    'rsD2=Fara a consulta do produto a ser DIMINUIDO a qnt da OC
Set DB = CurrentDb() 'defino que irei Utilizar o BD atual
'Realizo a consulta e trago todos os produtos lançados na NF em questão
Set rsO = DB.OpenRecordset("SELECT * FROM Tbl_DetalhesVenda WHERE CodVendaDt = " & Me.txtcodigo & "")
'----------------------------------------------------------------------------------------------------------------
    Do While Not rsO.EOF 'Repetirei Até que não haja mais registros no rsO
        'Faço a consulta e pego SOMENTE o produto em questão para adidionar o estoque
    Set rsD = DB.OpenRecordset("SELECT * FROM Tbl_DetalhesVenda WHERE Apto = " & Forms!FormVenda!Tbl_DetalhesVenda.Form!Apto & "")
    'Faço a consulta e pego SOMENTE o produto em questão para diminuir a quantidade da OC
    Set rsD2 = DB.OpenRecordset("SELECT * FROM Tbl_Aptos WHERE Código =" & Me.listaaptos.Column(5) & "'")
        'Diminui a quantidade Pendente da OC
        rsD2.Edit
        rsD2("Vendido") = -1
        rsD2.Update
       
        'Acrescenta a quantidade de cada produto ao estoque
        rsD.Edit
        rsD!Vendido = -1
        rsD.Update
       
    rsO.MoveNext 'Movo para proximo registro para Iniciar a Atualização do Novo produto...
    Loop    'Fim da alteração e Inicio da nova repetição para o Novo produto
'--------------------------------------------------------------------------------------------------------------
'Fecha as Conexoes abertas
Set DB = Nothing
Set rsO = Nothing
Set rsD = Nothing
Set rsD2 = Nothing
MsgBox "Entrada Efetuada E Baixa da OC", vbInformation
Me.Recalc

Onde estou errando ? Não estou conseguindo identificar.

Caros

Acredito que há um erro no relacionamento entre as tabelas DetalhesVenda e Obras, quando deveria ser entre DetalhesVenda e aptos.

Bem como alterar o tipo de dados do campo Apto da tabela DetalhesVenda de Texto para Número.

Boa noite Cleverson !
Eu acabei de fazer essa mudança na tabela detalhes venda.
Agora, a respeito das relações, você viu o projeto anexo na mensagem anterior? Mudando a relação entre essas tabelas, mudaria toda estrutura do sistema ? Ou não afetaria ?

Pelo contrário, só tende a melhorar.

Após essa mudança no relacionamento vc deve seguir a dica do colega Fabio Paes, pois as regras de estoque se aplicam ao seu caso, apenas vc deve quebrar mais cabeça para entender essa lógica.

Abraços,

Bom dia !
Bom, pelo que entendi, veja se estou correto. Você disse na mensagem anterior que a tbl_detalhesvenda deveria se relacionar com a de aptos e não com a de obras. Qual campo seria necessário relacionar? Ou eu criaria um campo novo na tabela de aptos e relacionaria o código da tbl_detalhesvenda com esse novo campo ? A tbl obras relacionaria apenas com a de aptos, enquanto a de aptos relacionaria com a de detalhes e a de obras. Seria isso ?
Abraços.

Dê uma olhada na figura, se conseguir visualizar não sou bom ainda com essa ferramenta do forum:

https://i.servimg.com/u/f11/19/75/09/46/aptos_11.png


Respondendo:

01 - Você disse na mensagem anterior que a tbl_detalhesvenda deveria se relacionar com a de aptos e não com a de obras. Qual campo seria necessário relacionar?

- Utilize o campo chave primária da tabela aptos com o campo aptos da tabela DetalhesVenda, mas antes altere esse campo para numero;

02 - Ou eu criaria um campo novo na tabela de aptos e relacionaria o código da tbl_detalhesvenda com esse novo campo ?

- não é necessário;

03 - A tbl obras relacionaria apenas com a de aptos, enquanto a de aptos relacionaria com a de detalhes e a de obras. Seria isso ?

- pode ser as duas coisas, ou somente a primeira.

Bom dia !
Veja se seria dessa maneira:


Aconteceu um problema com o "insert into" que usava na lista de apartamentos para inserir na "tbl_detalhesvenda" através do click duplo, não está mais inserindo, por que ?
Outra coisa, na tbl_detalhesvenda eu poderia eliminar o campo "Codobradt" ou ainda poderia usá-lo ?
Qual seria o próximo passo ?

Esqueci de mencionar o código que estou usando:

Código:

CurrentDb.Execute "INSERT INTO Tbl_DetalhesVenda (CodVendaDt, Obra, Apto, Valor_Apto,CodObraDt)" & _
"VALUES(" & Me.txtcodigo & ",'" & Me.listaaptos.Column(1) & "', " & Me.listaaptos.Column(2) & ", " & Me.listaaptos.Column(3) & ", " & Me.listaaptos.Column(0) & ")"

Me.Tbl_DetalhesVenda.Requery

O campo "codvendadt" vem do form principal (FormVenda)
A obra vem da lista de apartamentos (coluna 1, texto)
O apto vem da lista de apartamentos (coluna 2, número)
O valor_apto vem da lista de apartamentos (coluna 3, moeda)
O codobradt vem da lista de apartamentos (coluna 0, número)

No aguardo.
Gratidão.

Boa tarde !
Venho através desta mensagem agradecer aos meus amigos desse fórum por me ajudarem mais uma vez em minhas dúvidas.
Passo agora o tópico para resolvido, e disponibilizo o projeto no qual estou desenvolvendo.
Gratidão !

Resolvido !

Grato pelo retorno amigo, até a próxima se Deus Quiser!