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]Ao selecionar o cliente verificar se o cliente tem Ordem de Serviço em aberto

    Compartilhe
    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1015
    Registrado : 01/07/2011

    [Resolvido]Ao selecionar o cliente verificar se o cliente tem Ordem de Serviço em aberto

    Mensagem  Connekta Informatica em 4/1/2018, 13:38

    Bom dia

    Estou desenvolvendo um sistema de ordem de serviços, coloquei a função insert into esta funcionando perfeitamente, mas antes de inserir os dados na tabela gostaria que ele verificasse se o cliente selecionado tem alguma ordem de serviço pendente ( que não foi finalizada).

    Desde já meus agradecimentos.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Ao selecionar o cliente verificar se o cliente tem Ordem de Serviço em aberto

    Mensagem  FabioPaes em 4/1/2018, 14:03

    Olá! De uma pesquisada aqui no Fórum, pois existem exemplos sobre o assunto.

    Existem Ns formas de fazer isso, dentre elas: Dcount(), Dlookup(), FindFirst()...

    Pesquise sobre: Evitar duplicidade cadastro.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1015
    Registrado : 01/07/2011

    Re: [Resolvido]Ao selecionar o cliente verificar se o cliente tem Ordem de Serviço em aberto

    Mensagem  Connekta Informatica em 4/1/2018, 16:44

    Boa Tarde

    Cadastrei uma Ordem de Serviço com um Cliente Modelo e deixei o campo Situação com "Aberto" e abrir o formulário novamente e coloque o mesmo código do cliente mais ele não esta impedindo o novo cadastro.

    Private Sub IDCliente_AfterUpdate()

    If DCount("IDCliente", "tbl_LancOrdemServicos", "IDCliente=" & Me.IDCliente & " AND Situacao='" & ABERTO & "'") > 0 Then
    MsgBox "O cliente esta com a Ordem de Serviço em Aberto, verifique!", vbCritical, "Aviso"
    Me.Undo 'Limpa o campo
    Cancel = True 'mantém o foco no campo.
    End If

    End Sub


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Ao selecionar o cliente verificar se o cliente tem Ordem de Serviço em aberto

    Mensagem  FabioPaes em 4/1/2018, 17:04

    Olá! se no campo Situação tiver o valor "Aberto", o codigo muda um pouco amigo...

    ... Situacao='ABERTO'") > 0 Then

    Situacao='" & ABERTO & "'") > 0 Then <== Dessa Forma, so funcionaria se existisse um Campo com o Nome "ABERTO" ou uma variável com esse nome, e que nela estivesse o Valor a ser comparado.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 795
    Registrado : 01/03/2014

    Re: [Resolvido]Ao selecionar o cliente verificar se o cliente tem Ordem de Serviço em aberto

    Mensagem  Celso Roberto em 4/1/2018, 17:44

    Olá...

    Além da informação do amigo FabioPaes, coloque o código no evento antes de atualizar para que o evento Cancel = True realmente cancele o evento e mantenha o foco no campo.

    eu costumo primeiro do o Cancel = True e depois o Me.NomeDocampo.Undo

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 795
    Registrado : 01/03/2014

    Re: [Resolvido]Ao selecionar o cliente verificar se o cliente tem Ordem de Serviço em aberto

    Mensagem  Celso Roberto em 9/3/2018, 16:09

    Olá..

    Conseguiu resolver esta sua solicitação de ajuda?

    Os membros do Fórum merece o seu retorno

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1015
    Registrado : 01/07/2011

    Re: [Resolvido]Ao selecionar o cliente verificar se o cliente tem Ordem de Serviço em aberto

    Mensagem  Connekta Informatica em 14/3/2018, 12:33

    Me desculpe a demora para responder, eu estava sem internet.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 795
    Registrado : 01/03/2014

    Re: [Resolvido]Ao selecionar o cliente verificar se o cliente tem Ordem de Serviço em aberto

    Mensagem  Celso Roberto em 14/3/2018, 18:21

    Olá...

    Obrigado pelo retorno, O fórum agradece

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: 17/8/2018, 21:49