[Resolvido]Sistema de Imobiliaria: Como mudar o Status do Imóvel de Disponivel para Alugar após Alugar

Olá pessoal, mais uma vez estou aqui solicitando ajuda de vcs, no meu sistema de imobiliária,eu clicar no botão salvar contrato, gostaria que lá no meu
form de cadastro de imóveis, o imóvel alugado fosse mudado o status para alugado, e após vencer este contrato, ou o inquilino devolver o imóvel
o status fosse alterado para Disponível, alguém tem uma dica?

Campos do frm_Contratos:
Codigo_Contrato, Data, Inicio, fim, ValorAluguel,QtdeMeses TotalContrato, CodigoImovel,CodigoInquilino

Campos do frm_Imovel
CodigoImovel, Endereco,Bairro,Cidade,Uf,Tipo,CodigoProprietario,Status

se o seu campo codigoimovel for do tipo número declare Double, senão string


tente incluir este evento no vba do seu botão

Código:

Dim Y As Double

Y = me.SeuCampoCodigoDoImovel
CurrentDb.Execute "UPDATE SuaTabela SET Status= 'Alugado' WHERE CodigoImovel='" & Y & "'"

informe o nome da sua tabela em: SuaTAbela
e no Y a caixa de texto onde consta a referencia do imovel no caso o codigo

Complementando...

Se o CodigoImovel for Numero a condicao WHERE a Variavel Y fica somente entre aspas... 


WHERE CodigoImovel=" & Y & ""




Agora caso seja Texto fica igual a mensagem anterior do Nois

Agradeço a atênção de vcs meus amigos, funcionou certinho a dica de vcs dois, valeu Deus abênçõe muito as vossas vida!

Ficou assim o código:


Private Sub bt_Salvar_Click()
'Salvar'
If IsNull(Cliente) Then
DoCmd.CancelEvent
MsgBox " O nome do Cliente não pode ficar em branco", vbInformation, "Informação"
Cliente.SetFocus

ElseIf IsNull(Proprietario) Then
DoCmd.CancelEvent
MsgBox " O nome do Proprietario não pode ficar em branco", vbInformation, "Informação"
Proprietario.SetFocus

ElseIf IsNull(Fiador) Then
DoCmd.CancelEvent
MsgBox " O nome do Fiador não pode ficar em branco", vbInformation, "Informação"
Fiador.SetFocus

ElseIf IsNull(Imovel) Then
DoCmd.CancelEvent
MsgBox " O Endereço do imóvel não pode ficar em branco", vbInformation, "Informação"
Imovel.SetFocus

ElseIf IsNull(txt_Incio) Then
DoCmd.CancelEvent
MsgBox " A data de início não pode ficar em branco", vbInformation, "Informação"
txt_Incio.SetFocus

ElseIf IsNull(txt_Fim) Then
DoCmd.CancelEvent
MsgBox " A data de termino do contrato não pode ficar em branco", vbInformation, "Informação"
txt_Fim.SetFocus

ElseIf IsNull(txt_Qtde_Meses) Then
DoCmd.CancelEvent
MsgBox " A quantidade de meses não pode ficar em branco", vbInformation, "Informação"
txt_Qtde_Meses.SetFocus

ElseIf IsNull(txt_Valor_Aluguel) Then
DoCmd.CancelEvent
MsgBox " O valor do aluguel não pode ficar em branco", vbInformation, "Informação"
txt_Valor_Aluguel.SetFocus

ElseIf IsNull(txt_Total_Contrato) Then
DoCmd.CancelEvent
MsgBox " O Total do contrato não pode ficar em branco", vbInformation, "Informação"
txt_Total_Contrato.SetFocus

ElseIf IsNull(txt_Status) Then
DoCmd.CancelEvent
MsgBox " O Status deste contrato não pode ficar em branco", vbInformation, "Informação"
txt_Status.SetFocus
Else

'Salva'
Dim Y As Double

Y = Me.Imovel
CurrentDb.Execute "UPDATE tb_imoveis SET Status= 'Alugado' WHERE Codigo_imoveis=" & Y & ""
DoCmd.RunCommand acCmdSaveRecord
MsgBox " Registro salvo com sucesso", vbInformation, "Informação"
End If


End Sub

Agradecemos o retorno.

sds.