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]Critério de opções em sub-formulário

    Compartilhe
    avatar
    juliobertoso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 23/10/2017

    [Resolvido]Critério de opções em sub-formulário

    Mensagem  juliobertoso em 23/10/2018, 13:03

    Bom dia!


    Tenho um sistema de controle e entrada de veículos que peguei um modelo aqui no fórum e adaptei ele para aparecer os veículos em outra tela destacando se o mesmo está disponível, reservado ou em oficina, está em um sub-formulário e funcionando perfeitamente, na tela são mostrados apenas os veículos do mês atual e reservados ou em oficina, se a placa for incluída o km inicial o status muda de disponível para reservado e fica aparecendo na tela tanto de inclusões como no painel, porem se o km final for incluso o status muda para disponível e some da tela

    Meu problema: se a placa for selecionada e mudar o status de disponível para reservado ou oficinal eu não gostaria que ele aparecesse na lista para as próximas inclusões, só aparecer se o status dele ficar disponível.
    avatar
    juliobertoso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 23/10/2017

    Critério de opções em sub-formulário

    Mensagem  juliobertoso em 24/10/2018, 20:52

    ninguém sabe? Sad
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2637
    Registrado : 21/04/2011

    Re: [Resolvido]Critério de opções em sub-formulário

    Mensagem  Marcelo David em 25/10/2018, 01:38

    Boa noite, 
    Não se trata de sabermos ou não e sim de tempo e disponibilidade, mas
    como estamos aqui para ajudar, vamos lá...  Smile

    Nas novas inclusões, deverá criar criar um filtro que limite se estiver com esse status...
    Para exemplificarmos, precisamos saber os nomes dos campos das tabelas e como está
    a origem dos dados no formulário.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    juliobertoso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 23/10/2017

    Critério de opções em sub-formulário

    Mensagem  juliobertoso em 25/10/2018, 13:07

    Marcelo,

    eu tentei anexar a tela anteriormente, mas estava apresentando erro

    Tabela: tblEntradaSaida

    Codigo / Placa /PosicaoPainel /  DataSaida / DataChegada / HoraSaida / HoraChegada / Motorista / KmInicial / KmFinal / Status / OBS

    tenho um campo texto no form que trás apenas as datas do mês atual
    avatar
    juliobertoso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 23/10/2017

    re: Critério de opções em sub-formulário

    Mensagem  juliobertoso em 25/10/2018, 15:03

    Consegui da seguinte forma, não era a que eu queria, mas já ajuda.

    caso alguém consiga algo em que a placa não apareça na lista de escolha se a mesma estiver com status "Reservado ou Oficina"

    código abaixo
    mesmo que a pessoa escolha a mesma placa na lista o sistema retornará uma mensagem de erro

    Código:

    Private Sub Combinação18_BeforeUpdate(Cancel As Integer)
    Dim strDuplicacaoPlaca As String
    strDuplicacaoPlaca = Nz(DLast("[Status]", "tblEntradaSaida", "[Placa] = '" & Me.Placa & "'"), 0)
      
    If strDuplicacaoPlaca = "RESERVADO" Then
        MsgBox "ATENÇÃO: Veículo já em uso ou em Oficina! " + vbCrLf + vbCrLf + "Último KM Registrado: " _
        & Format(strDuplicacaoPlaca, "Standard"), vbCritical, "Atenção"
        Cancel = True

    End If
    End Sub
    avatar
    juliobertoso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 23/10/2017

    re: Critério de opções em sub-formulário

    Mensagem  juliobertoso em 25/10/2018, 15:05

    Obrigado!

      Data/hora atual: 26/3/2019, 02:58