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


4 participantes

    [Resolvido]Mudar Status de Ordem de Serviço

    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  AMarcos 1/8/2018, 11:01

    Em um Formulário existe um campo STATUS DA OS (Aberta/Fechada), onde de início a OS de cada viatura terá o Status de Aberta e só terá a condição de abrir outra OS para uma determinada viatura somente quando a primeira OS estiver passado para o Status de Fechada e isso só se dará quando for preenchido o campo "Saída da Oficina". Ou seja, uma viatura só poderá entrar em um novo serviço (OS Aberta) se o serviço anterior estiver finalizado (OS Fechada). Se for outra viatura que não tem OS Aberta, o serviço pode ser iniciado.


    Aguardo  por um Help!


    AMarcos
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  Silvio 1/8/2018, 11:55

    Marcos bom dia.

    Precisa melhorar a nomenclatura em teu sistema, esta sofrível mesmo.

    1- Não se usa em tabelas
    - palavras com espaço: Entrada oficina...Dias oficina.
    - palavras com acentos ou c cedilha: Serviço
    - com caracteres especias: Nº OS

    Na hora de escrever o código em VBA, vai ter grandes problemas e dores de cabeça.


    2- Nomenclatura de entidades.
    -para formulários: Frmqualquernome
    -para consultas: Qryqualquernome...Consqualquernome
    -para tabelas: Tblqualquernome.....Tbqualquernome
    -para relatórios: Rptqualquernome...Relqualquernome

    Já havia comentado com você na tua duvida anterior ...mas..........acho que não surtiu o efeito necessário para melhorias em teu projeto.
    Corrija enquanto há tempo e está no começo.

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  Silvio 1/8/2018, 15:15

    Veja o item...2985 VW WORKER 5 TON, que é o primeiro registro  e está com a OS em aberto.  Tente adicionar uma nova OS.

    Fique atento as mudanças que eu fiz na tabela manutenção.
    Tirei o espaçamento do campo NºOS e acrescentei mais dois campos na mesma tabela
    Criei uma consulta para a verificação de ordem em aberto(QryOSAberta).
    O código de verificação está no evento antes de atualizar da combobox.

    Bons estudos...e acerte teu sistema.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Mudar Status de Ordem de Serviço

    Mensagem  AMarcos 1/8/2018, 15:29

    Silvio bom dia!
    Eu não desconsiderei a sua orientação, o motivo de não ter tomado as providências é pq o programa não é só aqueles formulaŕios que lhe enviei, é muito mais. Esse controle de frota já existe a dois anos e agora está ocorrendo um aumento de recursos que não existia e melhoria dos que já estavam sendo executados. Qdo comecei foi sem pretensão de ir muito longe e agora tá de um jeito que estou com receios de mexer e ficar com falha em algum código. Mesmo assim vou tentar ir eliminando os erros mais grosseiros até extinguir todos ou chegar numa situação aceitável.

    Obrigado!

    AMARCOS
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  Silvio 1/8/2018, 17:45

    Ok...faça as mudanças/alterações por partes.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Mudar Status de Ordem de Serviço

    Mensagem  AMarcos 1/8/2018, 19:35

    Silvio meu amigo, testei aqui o exemplo e observei que ele está realizando o bloqueio condicional que eu desejo, mas não de forma independente. Por exemplo: a 2985 está aberta, logo não consigo abrir outra OS da 2985 se eu não fechar a primeira manualmente, blz. Mas se eu estiver com a 2926 também aberta, junto com a 2985, eu consigo abrir outra 2926 sem problemas, a não ser que eu feche a 2985. Daí o bloqueio passa para a 2926, mas as demais viatura ficam liberadas para abrir quantas der vontade.

    O que eu desejava e não consegui, devido a minha inexperiência, visualizar com faz é o seguinte (vou tentar me fazer entender sendo bem simples):
    - ao abrir uma OS após escolher a VTR, automaticamente ela assume o Status de "Aberta";

    - ao lançar a data de saída de oficina, também automaticamente, ela altera o Status para "Fechada" (forçando a homologação de alguém).

    - se a data de saída não for lançada, isso quer dizer que o serviço ainda não finalizou, mas esse bloqueio seria individualmente por vtr, ou seja, se uma determinada OS da 2985 estiver Aberta, outra OS da 2985 (somente) não poderá ser Aberta, enquanto a primeira não for Fechada. E para as demais vtrs a mesma coisa. Sendo que o bloqueio e aparição daquele AVISO (muito bom por sinal), aconteceria para todas que estivessem no Status Aberta e alguém tentasse abrir outra.

    Tomara que eu tenha ajudado e não atrapalhado mais com o texto acima!

    Um abraço!!!

    AMARCOS
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  Silvio 1/8/2018, 19:44

    Marcos, para que isso aconteça teremos que mexer em muitas coisas no teu formulário e na tua tabela que dá origem ao mesmo.
    A tua tabela, está bem "errada".
    Deixa dar uma sossegada aqui, que eu vou mexer um pouco nessa tabela manutenção.
    Abraços


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re:Mudar Status de Ordem de Serviço

    Mensagem  AMarcos 1/8/2018, 20:15

    Fique tranquilo amigo. Para ter omelete temos que quebra os ovos.

    Um abraço

    AMarcos
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re:Mudar Status de Ordem de Serviço

    Mensagem  AMarcos 6/8/2018, 15:11

    Bom dia amigo Silivio!

    Depois de alguns dias vc conseguiu vê um jeito de mudar o status da OS através da inserção da data de saída da oficina?

    Me dê notícias!


    ANTONIO MARCOS
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  Silvio 6/8/2018, 17:38

    Boa tarde...

    Marcos, até quarta feira estou enrolado com um sistema novo para um cliente.
    Quinta feira eu volto a trabalhar com o que me passou.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: Mudar Status de Ordem de Serviço

    Mensagem  AMarcos 6/8/2018, 21:13

    Tudo bem, enquanto isso eu vou tentando por aqui...

    Na quinta volto a lhe contatar, um abraço!

    AMarcos
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3492
    Registrado : 13/12/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  Alexandre Fim 6/8/2018, 22:52

    Olá Marcos,

    Se possível, poste aqui o seu bd das partes envolvidas para os demais colaboradores do fórum.

    Abraço
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re:Mudar Status de Ordem de Serviço

    Mensagem  AMarcos 9/8/2018, 15:00

    Bom dia!

    Consegui um código que me fez fechar a Ordem de Serviço "após
    Atualizar" a Data de Saída da Oficina, porém a opção de OS Aberta ainda permanece marcada. O que eu precisava era saber somente como faz para alternar na hora de atualizar a data de saída para fechar a OS, a marcação de OS Aberta desmarcasse.

    Abaixo vou deixar o código usado:

    Private Sub Saida_oficina_AfterUpdate()
    If Len (Me.Saida_oficina & "") > 0 Then
       If Me.Saida_oficina > Date then
             OSFechada = 1
       Else
             OSFechada = 2
       End If
    End If
    End Sub

    Att,

    AMArcos
    Anexos
    [Resolvido]Mudar Status de Ordem de Serviço AttachmentNOVA_AJUDA.accdb.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (109 Kb) Baixado 36 vez(es)
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re:Mudar Status de Ordem de Serviço

    Mensagem  AMarcos 11/8/2018, 15:36

    Bom dia!

    Algum mestre amigo com a disponibilidade de ajudar esse impasse?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3492
    Registrado : 13/12/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  Alexandre Fim 11/8/2018, 16:48

    Olá Marcos,

    Ja baixei seu sistema e estou analisando.
    Assim que eu tiver uma solução, eu disponibilizo, ok?

    Abs
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re:Mudar Status de Ordem de Serviço

    Mensagem  AMarcos 11/8/2018, 17:25

    Ok, fico no aguardo!

    AMarcos
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re:Mudar Status de Ordem de Serviço

    Mensagem  AMarcos 13/8/2018, 01:25

    Amigo Silvio, dentro da sua disponibilidade, conseguiu verificar o que está faltando no código acima para poder efetuar com sucesso a Mudança de Status da Ordem de Serviço?

    AMarcos
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  Fernando Bueno 13/8/2018, 03:16

    Boa noite;

    Não sei se entendi bem o que necessita porém fiz uma pequena alteração em seu banco.

    Repare que existe um comando no evento Após Atualizar do campo Ordem de serviço que marca a caixa

    OS Aberta, no campo Saída da oficina é alterado para OS fechada seguindo seu código e desmarcado OS Aberta.

    Aguardamos.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Mudar Status de Ordem de Serviço 16rzeq
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  AMarcos 13/8/2018, 14:03

    Caro Fernando bom dia!

    O que estou precisando agora é somente alternar entre OS Aberta e OS Fechada, ou seja, ao atualizar o nome da viatura a opção OS Aberta automaticamente apareça marcada e isso eu já consegui através do código abaixo:

    Private Sub comb_VtrMnt_AfterUpdate()
    Me.txt_EB.Value = comb_VtrMnt.Column(2)
    Me.txt_SU.Value = comb_VtrMnt.Column(4)
    Me.txt_Valor.Value = comb_VtrMnt.Column(5)

    Me.OSAberta = 1

    End Sub

    Mas quando eu fecho a OS através da atualização da data de saída da oficina, pelo código que postei, ele marca a opção OS Fechada mas não desmarca a OS Aberta, permanecendo as duas opções assinaladas, e é isso que não pode ocorrer.

    Private Sub Saída_oficina_AfterUpdate()
    If Len(Me.Saída_oficina & "") > 0 Then
    If Me.Saída_oficina > Date Then
    OSFechada = 1
    Else
    OSFechada = 2
    End If
    End If
    End Sub

    Manualmente o usuário não poderá fazer pois deixarei as caixas de opção bloqueadas, assim só atualizando os valores da caixa de viatura ou da data de saída que isso será possível.

    Mas o objetivo é alternar os botões de OS Fechada e OS Aberta, e eu dei uma olhada nessa modificação que o amigo fez e não está acontecendo isso...

    Espero ter conseguido ser menos complicado agora. Um abraço!

    AMarcos
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  Fernando Bueno 13/8/2018, 15:52

    Boa tarde;

    Teste assim:

    Código:
    Private Sub Saída_oficina_AfterUpdate()
    If Len(Me.Saída_oficina & "") > 0 Then
    If Me.Saída_oficina > Date Then
    OSFechada = 1
    OSAberta = 0
    Else
    OSFechada = 0
    OSAberta = 1
    End If
    End If
    End Sub


    Última edição por Fernando Bueno em 14/8/2018, 14:52, editado 1 vez(es)


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Mudar Status de Ordem de Serviço 16rzeq
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  AMarcos 13/8/2018, 18:10

    Meu amigao nada feito. Inclusive agora ela nem marca a opcao de OS Fechada.

    AMarcos
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  Fernando Bueno 13/8/2018, 21:44

    Boa tarde Marcos;

    Você testou o exemplo que enviei?
    https://www.maximoaccess.com/t33926-mudar-status-de-ordem-de-servico#233058

    Baixei novamente e fiz os testes ele faz exatamente o que descreveu na mensagem.

    Aguardamos


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Mudar Status de Ordem de Serviço 16rzeq
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  AMarcos 14/8/2018, 00:55

    Poxa Fernando infelizmente continua da mesma forma. Desculpe-me, estou parecendo chato, mas eu testo no seu exemplo e nada acontece, tambem quando passo para o meu BD a mesma coisa.

    Deve ter alguma coisa que esta dando conflito. Nao consegue de maneira nenhuma fechar a OS

    Me desculpe mesmo.

    AMarcos
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  Fernando Bueno 14/8/2018, 15:07

    Bom dia Antonio, fica tranquilo estamos aqui para ajudar.

    Veja:

    [Resolvido]Mudar Status de Ordem de Serviço 110
    [Resolvido]Mudar Status de Ordem de Serviço 210
    [Resolvido]Mudar Status de Ordem de Serviço 410[Resolvido]Mudar Status de Ordem de Serviço 510


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Mudar Status de Ordem de Serviço 16rzeq
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  AMarcos 14/8/2018, 16:29

    Devo estar cometendo algum erro com certeza. Vou refazer com calma e te dou um retorno.

    um abraço,

    AMarcos
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  Fernando Bueno 15/8/2018, 02:01

    Ok, observe o procedimento após atualizar do campo nº OS, viatura e saída da oficina.

    Aguardamos, Bons estudos!


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Mudar Status de Ordem de Serviço 16rzeq
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  AMarcos 16/8/2018, 16:17

    Fernando rodei o seu banco de dados e mesmo assim não consegui vê essa mudança. E se por acaso tirarmos do grupo de opções e colocarmos isolado? Ou talvez as opções ABERTA e FECHADA mudando de cor: verde para aberta e vermelho para fechada com sinal de trânsito? Sei não seria o ideal mas talvez não precisaria nem de guardar as opções em tabela. Somente iria ficar diferenciado no formulário Ordem de Serviço...

    É uma idéia!

    Att,

    AMARCOS
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  AMarcos 16/8/2018, 19:08

    Programei a variação entre ABERTA e FECHADA mudando a cor, deu certo! Ficou como sinal de trânsito como lhe falei...
    Porém como brasileiro que não desiste nunca, analisei as linhas de códigos e visualizei que o sinal de condição (> ou <) estava trocado. foi inverter que tudo funcionou como pretendia e vc fez mostrar em tela.

    Está excelente!

    Assim me dá a possibilidade de depois saber quantas OS estão abertas e quanta estão fechadas. E ainda se vc pudesse me ajudar, eu pretendia abrir uma Ordem de Serviço de uma determinada viatura, só depois que a Os anterior dessa mesma viatura estivesse fechada.

    Nosso amigo Silvio, a quem também sou muito grato em estar também me ajudando chegou a me fornecer um código que emite até msg de aviso que a OS está aberta, mas só que esse código não deixa eu abrir nenhuma outra mais:

    Private Sub comb_VtrMnt_BeforeUpdate(Cancel As Integer)
    On Error Resume Next
    Dim x As String
    Dim y As String
    x = DLookup("viaturas", "qryOSAberta")
    y = DLookup("NºOS", "QryOSAberta", "Viaturas = """ & Me!comb_VtrMnt & """")
    If x = comb_VtrMnt Then
    MsgBox "Já existe uma Ordem de serviço aberta para:" & vbCrLf & _
    Me!comb_VtrMnt & vbCrLf & _
    "OS Nº:" & y & vbCrLf & _
    "Fecha a ordem em aberto e inicie uma nova." & vbCrLf & _
    "Essa ordem será cancelada !", vbCritical, "AVISO..."
    DoCmd.CancelEvent
    Me.Undo
    Me!comb_VtrMnt = ""
    End If
    End Sub

    Pra mim a independência dessa condição seria o ideal, ou seja, somente uma OS de uma determinada viatura poderia estar aberta. Para abrir uma outra OS dessa mesma viatura, seria obrigatório fechar a primeira.

    Um abraço amigão,


    AMarcos
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  Fernando Bueno 18/8/2018, 00:33

    Boa noite Antonio,

    Fiz um teste aqui e o código postado por nosso amigo Silvio não esta funcionando

    em seu banco por um simples fato basta abrir a consulta QryOSAberta e apagar a seguinte expressão

    que segue na imagem em anexo, bons estudos!

    [Resolvido]Mudar Status de Ordem de Serviço 111
    [Resolvido]Mudar Status de Ordem de Serviço 211


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Mudar Status de Ordem de Serviço 16rzeq
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  AMarcos 15/9/2018, 00:34

    Fernando ficou show de bola. Muito obg!

    Conteúdo patrocinado


    [Resolvido]Mudar Status de Ordem de Serviço Empty Re: [Resolvido]Mudar Status de Ordem de Serviço

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 17:02