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 : 1014
    Registrado : 01/07/2011

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

    Mensagem  Connekta Informatica em Qui 04 Jan 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 : 3899
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Qui 04 Jan 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 : 1014
    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 Qui 04 Jan 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 : 3899
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Qui 04 Jan 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 : 742
    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 Qui 04 Jan 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 : 742
    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 Sex 09 Mar 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 : 1014
    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 Qua 14 Mar 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 : 742
    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 Qua 14 Mar 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: Sex 25 Maio 2018, 00:11