Comando a partir de seleção no formulario

Boa tarde.
Estou com uma dúvida,
Possuo duas tabelas, TabContratos e TabApartamentos.

TabApartamentos Possui Dados do apartamento, Andar, vista / Se está vendido ou não/ endereço etc.

Tenho uma Tabela e um Formulário, FormContratos, onde indico as características do contrato, Data,Valor/Responsavel, etc
neste formulário também indico o Apartamento.

No caso, Para preencher o Campo apartamento do Formcontratos uso uma caixa de listagem
com base nos apartamentos cadastrados na tabApartamentos

Como faço para que, ao selecionar um apartamento, no [formContratos]
o status do mesmo seja alterado para vendido na tabela Apartamentos?

No caso, pretendo montar de forma automática, sem ter de inserir o Campo Status do Apartamento no contrato,
Evitando um campo a mais a ser preenchido.

A regra seria tipo se Campo Apartamento da TabContratos for igual ao Campo apartamento da tabelaapartamento
então status do Apartamento Vendido.

Estou tendo alguns problemas em montar desta forma, se alguém tiver uma ideia melhor.

link: https://www.dropbox.com/s/hl8zpoljx13mb0v/Controle%20Esta%C3%A7%C3%A3o%20Reall%20II%20Consultas.zip?dl=0

Olá Edu,

Tá meio difícil de entender os nomes dos campos das tabelas, mas tente mais ou menos assim:

Private Sub ApartTabcontratos_BeforeUpdate(Cancel As Integer)
On Error Resume Next
If DLookup("ApartTabcontratos", "TabContratos"...) = DLookup("TabApartCodigo", "TabApartamentos"...) Then
....

Mesmo com sua ajuda não consegui terminar o que desejava, para ser sincero acredito que devo ter errado na variavel
ao não determinar por exemplo se a mesma é do tipo Texto (meu caso)

E ainda me surgiu uma nova dúvida,
Como regra, caso o apartamento não seja selecionado, automaticamente será preenchido
pelo Valor 1 que se refere ao primeiro cadastro na tabelaapartamentos.

Obs:
A formula seria.
Caso o valor preenchido seja = 1 não tera alteração
nos demais casos sim.


Link:https://www.dropbox.com/s/etj6m6d8aq7a5dk/Controle%20Esta%C3%A7%C3%A3o%20Reall%20II%20-%20C%C3%B3pia%2003.accdb?dl=0

Obs: FormContratos Campo Apt.

Obrigado.

Olá Edu,

Tente assim:

Código:


Private Sub ApartTabcontratos_BeforeUpdate(Cancel As Integer)
On Error Resume Next
Dim strCriteria As Variant
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim n As Long
Dim x As Variant
Dim y As Currency

Set db = CurrentDb()
Set rs = db.OpenRecordset("Tabapartamento", dbOpenDynaset)

y = Forms!FormContratos!ValorTabContratos

strCriteria = "TabApartValor= " & y & ""

n = ApartTabcontratos.Column(0)

x = DLookup("TabApartCodigo", "TabApartamentos", strCriteria)


rs.MoveFirst
Do While Not rs.EOF
If n = DLookup("TabApartCodigo", "TabApartamentos", strCriteria) Then
With rs
.Edit
.Fields("TabApartStatus") = "Vendido"
.Update
End With
Else
Exit Do
End If
rs.MoveNext
Loop
MsgBox "O Status do apartamento será alterado para Vendido"

End Sub

Eu usei seu exemplo, porém ele alterou para vendido todos os apartamentos, e não apenas o apartamento selecionado.