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]Inserir valor na coluna específica de acordo com um lançamento

    Compartilhe
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Inserir valor na coluna específica de acordo com um lançamento

    Mensagem  thiagonsilvaa em 15/1/2019, 16:35

    Boa tarde a todos.

    Venho por meio deste tópico solicitar ajuda a uma questão.
    Estou tentando estruturar um quadro de reservas hoteleiro.

    Na minha tabela de reservas, tenho essa estrutura:


    Tenho a estrutura do quadro desta maneira:


    Gostaria de que quando eu lançasse uma reserva automaticamente já escrevesse "Reservado" naquele quarto e data específica.

    Como o exemplo abaixo:


    Se alguém puder dar uma ajuda de como inserir esse valor na coluna específica da acomodação em questão.

    Grato !!!
    Abraços.
    Dilson
    Dilson
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    Re: [Resolvido]Inserir valor na coluna específica de acordo com um lançamento

    Mensagem  Dilson em 16/1/2019, 02:22

    Olá!

    Embora esteja caprichado a apresentação da sua dúvida, parabéns nota 10, ainda me resta dúvida em qual cenário quer aplicar, porque veja só:

    Olhando para a ilustração do meio, a ação de autocomplete seria mais lógico escrever o reservado no quarto desejado e autocompletar o campo data. Ao contrário como está propondo deveria ser apresentado outra lógica, outro cenário.

    Nos diga, melhore a lógica de como quer aplicar a programação.
    avatar
    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 22/08/2012

    Re: [Resolvido]Inserir valor na coluna específica de acordo com um lançamento

    Mensagem  FabioGO em 16/1/2019, 10:16

    A lógica esta meio estranha mesmo, mas mesmo assim tentei fazer algo bem simples para dar uma luz.

    Baseado nas informações, suponho que a tabela de quartos ja possui as datas para o ano todo, fazendo a atualização conforme registro de reserva pelo período.

    Veja se ajuda em algo
    Anexos
    Banco de dados1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (25 Kb) Baixado 8 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]Inserir valor na coluna específica de acordo com um lançamento

    Mensagem  thiagonsilvaa em 16/1/2019, 12:30

    Bom dia a todos !

    Primeiramente, gratidão pela resposta.

    Bom, vou tentar explicar de forma clara o que pretendo.

    Tenho um formulário onde alimento a primeira tabela a qual mostrei na primeira imagem.

    Assim que o hóspede confirmar a reserva gostaria de que atualizasse o status do quarto para "reservado" para aquela data a qual ele fez a reserva. (autocompletar ou alguma função que adicione as datas do ano todo, o que for mais viável)

    Seria basicamente a ideia do nosso amigo Fabio.
    Dilson
    Dilson
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    Re: [Resolvido]Inserir valor na coluna específica de acordo com um lançamento

    Mensagem  Dilson em 16/1/2019, 17:43

    Ah sim agora clareou !

    Muito legal o código do Fabio, acho que vai te atender. Faça os teste e nos diga o resultado.

    Fabio, se puder,  exponha o código no tópico daí estará perfeito, pelo que ora ou outra perde-se esse anexo e jamais veremos a solução proposta por si. Se desejar fazer isso, basta editar sua postagem e expor lá. 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]Inserir valor na coluna específica de acordo com um lançamento

    Mensagem  thiagonsilvaa em 17/1/2019, 11:59

    Bom dia a todos !

    Primeiramente, obrigado pela reposta.

    A ideia do nosso amigo Fabio funcionou perfeitamente, adaptei as minhas necessidades e ficou show !

    Meu muito obrigado !!!
    Abraços.


    Última edição por thiagonsilvaa em 17/1/2019, 12:30, editado 1 vez(es)
    Dilson
    Dilson
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    Re: [Resolvido]Inserir valor na coluna específica de acordo com um lançamento

    Mensagem  Dilson em 17/1/2019, 12:25

    Ótimo amigo.

    O ideal agora é você editar sua postagem e apertar o botão Resolvido porque aqui finalizou essa dúvida.

    Nova dúvida, novo tópico.

    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]Inserir valor na coluna específica de acordo com um lançamento

    Mensagem  thiagonsilvaa em 17/1/2019, 12:31

    Tópico resolvido !

    Mais uma vez, gratidão a todos !
    avatar
    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 22/08/2012

    Re: [Resolvido]Inserir valor na coluna específica de acordo com um lançamento

    Mensagem  FabioGO em 17/1/2019, 12:38

    Sobre o que você perguntou sobre gerar os dias do ano, esse código simples pode te ajudar.
    Mas faça adaptações conforme suas tabelas e objetos

    Em um botão de comando, no evento ao clicar

    Código:
    Dim i As Date, DtIn As Date, DtFim As Date

    If DCount("[CampoComAsDatas]", "SuaTabela", "Year([CampoComAsDatas])='" & Me.CaixaDeTextoDoFormularioComAnoDigitado & "'") > 0 Then
        MsgBox "Ja existem dias para esse ano..."
    Else
        DtIn = DateSerial(Me.CaixaDeTextoDoFormularioComAnoDigitado, 1, 1)
        DtFim = DateSerial(Me.CaixaDeTextoDoFormularioComAnoDigitado, 12, 31)
       
        For i = DtIn To DtFim
            CurrentDb.Execute "INSERT INTO SuaTabela (CampoComAsDatas) VALUES (#" & Format(i, "MM/DD/YYYY") & "#)"
        Next
    End If

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