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

    Comando a partir de seleção no formulario

    avatar
    Edu.fourreis
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 20/01/2015

    Comando a partir de seleção no formulario Empty Comando a partir de seleção no formulario

    Mensagem  Edu.fourreis 15/4/2015, 19:45

    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]![CaixCombApartamentos](Caixa de listagem do formulário)
    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

    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    Comando a partir de seleção no formulario Empty Comando a partir de seleção no formulario

    Mensagem  good guy 15/4/2015, 21:16

    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
    ....
    avatar
    Edu.fourreis
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 20/01/2015

    Comando a partir de seleção no formulario Empty Ola boa tarde..

    Mensagem  Edu.fourreis 14/5/2015, 16:00

    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.
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    Comando a partir de seleção no formulario Empty Comando a partir de seleção no formulario

    Mensagem  good guy 22/5/2015, 21:29

    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
    avatar
    Edu.fourreis
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 20/01/2015

    Comando a partir de seleção no formulario Empty Ola, Bom dia.

    Mensagem  Edu.fourreis 27/5/2015, 15:16

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

    Conteúdo patrocinado


    Comando a partir de seleção no formulario Empty Re: Comando a partir de seleção no formulario

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 02:08