MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Ajuda com tabelas

    Compartilhe
    avatar
    NGCosta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 18/06/2018

    [Resolvido]Ajuda com tabelas

    Mensagem  NGCosta em 28/2/2019, 13:17

    Boa dia,

    Preciso de uma ajuda.

    Tenho uma tabela chamada TbLocal onde tenho os seguintes campos:

    CodLocal – Numeração Automática
    Local – Texto Curto
    Reservado – Sim/Não
    Obs.: o campo Local já está preenchido com: local01, local02... até local100

    Em uma outra tabela chamada TbCadCliente, tenho os seguintes campos:

    CodCad – Numeração Automática
    Nome – Texto Curto
    LocalCad – Texto Curto

    No formulário de entrada dos dados na TbCadCliente, tenho uma combobox chamada CboxLocal onde faço uma pesquisa (local01, local02... até local100) na TbLocal.
    Meu problema é que ao cadastrar um cliente, não estou conseguindo marcar o campo Reservado da TBLocal como SIM, referente ao local escolhido.

    Desde de já agradeço.
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 12/01/2017

    Re: [Resolvido]Ajuda com tabelas

    Mensagem  thiagonsilvaa em 28/2/2019, 17:23

    No botão de salvar ou algum outro local que achar conveniente:

    Currentdb.execute ("UPDATE tblocal SET Reservado =-1 WHERE local='" & cboxlocal & "'")

    Adapte a sua necessidade, a ideia é basicamente essa
    avatar
    NGCosta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 18/06/2018

    Re: [Resolvido]Ajuda com tabelas

    Mensagem  NGCosta em 28/2/2019, 18:56

    Thiago,

    Obrigado pelo retorno, porém não funcionou. Estou anexando o arquivo (Access 2013) pois assim fica melhor para você verificar.

    Muito obrigado pela atenção.
    Anexos
    CadastroTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (55 Kb) Baixado 3 vez(es)
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 12/01/2017

    Re: [Resolvido]Ajuda com tabelas

    Mensagem  thiagonsilvaa em 28/2/2019, 20:39

    Boa tarde !

    Por favor, verifique agora.

    No código anterior eu só coloquei um ".column(1)" que refere-se ao local na combox:

    Currentdb.execute ("UPDATE tblocal SET Reservado =-1 WHERE local='" & cboxlocal.column(1) & "'")


    Qualquer dúvida, volte a retornar.

    Abraços.
    Anexos
    CadastroTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (64 Kb) Baixado 5 vez(es)
    avatar
    NGCosta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 18/06/2018

    Re: [Resolvido]Ajuda com tabelas

    Mensagem  NGCosta em 1/3/2019, 12:34

    Thiago,

    Funcionou perfeitamente!!!

    Muitíssimo obrigado pela ajuda.

    Grande abraço.
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 12/01/2017

    Re: [Resolvido]Ajuda com tabelas

    Mensagem  thiagonsilvaa em 1/3/2019, 12:53

    O fórum agradece o retorno !

    Não esqueça de dar o tópico como resolvido.

    Até mais.

    Abraços.
    avatar
    NGCosta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 18/06/2018

    Re: [Resolvido]Ajuda com tabelas

    Mensagem  NGCosta em 1/3/2019, 16:22

    Thiago, mas uma vez obrigado.

      Data/hora atual: 23/3/2019, 13:26