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]Se existir trazer dados

    avatar
    cicero.meneses
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 15/09/2014

    [Resolvido]Se existir trazer dados Empty [Resolvido]Se existir trazer dados

    Mensagem  cicero.meneses em 2/4/2019, 12:18

    Bom dia a todos,

    Tenho um formulário e quero fazer a seguinte operação:

    No meu banco não pode existir nº de processo repetido já fiz esse teste, mais quero que ao digitar o nº do processo e se ele existir trazer as informações, ou seja, localizar o registro e mostrar para edição.

    Podem em ajudar.

    Obrigado
    pcnet
    pcnet
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 269
    Registrado : 16/12/2015

    [Resolvido]Se existir trazer dados Empty Re: [Resolvido]Se existir trazer dados

    Mensagem  pcnet em 2/4/2019, 22:26

    Veja se o exemplo do tópico Ver se já foi cadastrado, ajuda a resolver a sua questão.

    Pode descarregar o exemplo utilizando o link abaixo.

    Copiar e colar o link no navegador:
    Código:
    dropbox.com/s/3azdfbeswe1rcor/Cadastro_Kaynan.rar?dl=1

    Boa sorte
    avatar
    cicero.meneses
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 15/09/2014

    [Resolvido]Se existir trazer dados Empty Muito obrigado.

    Mensagem  cicero.meneses em 3/4/2019, 12:25

    Ficou bem melhor do que eu esperava.
    avatar
    cicero.meneses
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 15/09/2014

    [Resolvido]Se existir trazer dados Empty Dúvida

    Mensagem  cicero.meneses em 3/4/2019, 13:24

    O que você me enviou ficou ótimo.

    O que eu preciso acredito que seja uma coisa mais simples.

    Não sei se estou conseguindo me fazer entender, mais vamos lá:

    na inclusão ao digitar o número do processo eu checo se existe com esse código.

    Private Sub Processo_BeforeUpdate(Cancel As Integer)
    If DCount("processo", "processos", "processo =""" & Me!Processo & """") > 0 Then
    'A função DCount() contou um ou mais registros existentes
    MsgBox "O Processo " & Me!Processo & " já foi cadastrado..."
    Me.Undo 'Limpa o campo
    Cancel = True 'mantém o foco no campo.
    End If
    End Sub

    o que eu quero é que após a mensagem de processo já cadastrado

    ele localize o processo cadastrado e traga para a tela para edição

    Obrigado pela paciência

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Se existir trazer dados Empty Re: [Resolvido]Se existir trazer dados

    Mensagem  Marcelo David em 3/4/2019, 16:36

    Bom dia,
    precisará instanciar o formulário mais uma vez. Vamos lá:

    abaixo da linha: Cancel = True, ponha:

    Static f As New Form_SeuFormulário 'Instancio o formulário

    f.Filter = "processo='" & Me!Processo & "'" 'Filtro os registros para exibi-lo para edição
    f.FilterOn = True 'Ativo o filtro

    f.Visible = True 'Defino como visível

    SeuFormulário, aqui ponha o nome do formulário está tentando inserir as infrmações.

    Por exemplo, se o nome do formulário for frmProcessos:
    Static f As New Form_frmProcessos


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    cicero.meneses
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 15/09/2014

    [Resolvido]Se existir trazer dados Empty Se existir trazer dados

    Mensagem  cicero.meneses em 3/4/2019, 19:58

    Deu certo, mais está abrindo o formulário várias vezes, aí trava.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Se existir trazer dados Empty Re: [Resolvido]Se existir trazer dados

    Mensagem  Marcelo David em 3/4/2019, 20:01

    Apenas uma vez está configurado para abrir...
    Em qual momento trava? Explique melhor...


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    cicero.meneses
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 15/09/2014

    [Resolvido]Se existir trazer dados Empty Se existir trazer dados

    Mensagem  cicero.meneses em 3/4/2019, 20:52

    Olah o código.

    Private Sub Processo_BeforeUpdate(Cancel As Integer)
       
       If DCount("processo", "processos", "processo =""" & Me!Processo & """") > 0 Then
           'A função DCount() contou um ou mais registros existentes
           MsgBox "O Processo " & Me!Processo & " já foi cadastrado..."
           'Me.Undo 'Limpa o campo
           Cancel = True 'mantém o foco no campo.
           
           Static f As New Form_Processos 'Instancio o formulário
         
           f.Filter = "processo='" & Me!Processo & "'" 'Filtro os registros para exibi-lo para edição
           
           f.FilterOn = True 'Ativo o filtro

           f.Visible = True 'Defino como visível
           
                         
      End If
    End Sub

    Fiz como você explicou.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Se existir trazer dados Empty Re: [Resolvido]Se existir trazer dados

    Mensagem  Marcelo David em 3/4/2019, 22:27

    Pois bem, apenas a vez está abrindo e não várias vezes... Poderia postar o aplicativo com as partes envolvidas para que eu dê a olhada?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    cicero.meneses
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 15/09/2014

    [Resolvido]Se existir trazer dados Empty Se existir trazer dados

    Mensagem  cicero.meneses em 4/4/2019, 13:38

    Bom dia, aí está.

    Quando vc digita o nº do processo e ele existe, a tabela é aberta novamente e filtra.

    Obrigado
    Anexos
    [Resolvido]Se existir trazer dados AttachmentDemandas SNSH.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (93 Kb) Baixado 10 vez(es)
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Se existir trazer dados Empty Re: [Resolvido]Se existir trazer dados

    Mensagem  Celso Roberto em 4/4/2019, 18:27

    Olá a todos

    Dando uma sugestão.

    Copie este código e teste:

    Código:
    Private Sub Processo_BeforeUpdate(Cancel As Integer)
       
    Dim rst As DAO.Recordset
       
        Set rst = Me.RecordsetClone
        rst.FindFirst "[processo] = '" & Me!Processo & "'"
       
        If Not rst.NoMatch Then
            'avisa
            If MsgBox("O Processo " & Me!Processo & " já foi cadastrado..." & Space(2) & "" _
                & "Deseja ir para cadastro informado para Conferir ou atualizar dados?", vbYesNo + vbExclamation + vbDefaultButton2, "Confirmação") = vbYes Then
               
                Cancel = True
                Me.Undo
                Me.Bookmark = rst.Bookmark
                'Me.Processo.SetFocus
            Else
                Me.Undo
                Me.Processo.SetFocus
            End If
        'End If
        End If
            rst.Close
            Set rst = Nothing
    End Sub


    Aguardamos 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
    cicero.meneses
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 15/09/2014

    [Resolvido]Se existir trazer dados Empty Se existir trazer dados

    Mensagem  cicero.meneses em 4/4/2019, 19:18

    Celso, Boa Tarde!

    Deu Certo, mais meus filtros foram inabilitados (Na parte superior tem uma telinha Registro que tem filtros em: Todos  / Encaminhado / A Resolver) não funcionam mais.

    Obrigado
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Se existir trazer dados Empty Re: [Resolvido]Se existir trazer dados

    Mensagem  Celso Roberto em 4/4/2019, 20:10

    Olá..

    No anexo que enviou esta ok.
    Este código que te enviei não altera nada nos outros eventos de sua programação.
    Não identifiquei o problema aqui.

    Anexe este exemplo com o problema.

    Aguardamos

    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
    cicero.meneses
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 15/09/2014

    [Resolvido]Se existir trazer dados Empty Se existir trazer dados

    Mensagem  cicero.meneses em 4/4/2019, 21:20

    Celso,

    Verifiquei aqui e eu tinha tirado o código dos filtros, erro meu.

    Está perfeito, totalmente resolvido.

    Muito obrigado.

    Grande Abraço
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Se existir trazer dados Empty Re: [Resolvido]Se existir trazer dados

    Mensagem  Celso Roberto em 4/4/2019, 21:46

    olá..

    1 - Fiz uma alteração no código anterior para caso clicar em Não, altere o anterior para este:

    Código:
    Private Sub Processo_BeforeUpdate(Cancel As Integer)
       
    Dim rst As DAO.Recordset
       
        Set rst = Me.RecordsetClone
        rst.FindFirst "[processo] = '" & Me!Processo & "'"
       
        If Not rst.NoMatch Then
            'avisa
            If MsgBox("O Processo " & Me!Processo & " já foi cadastrado..." & Space(2) & "" _
                & "Deseja ir para cadastro informado para Conferir ou atualizar dados?", vbYesNo + vbExclamation + vbDefaultButton2, "Confirmação") = vbYes Then
               
                Cancel = True
                Me.Undo
                Me.Bookmark = rst.Bookmark
            Else
                Cancel = True
                Me.Undo
            End If
        'End If
        End If
            rst.Close
            Set rst = Nothing
    End Sub


    2 - O filtro não este desabilitado, você excluiu o código existente, segue ele abaixo:

    No evento apos atualizar do filtro:

    Código:
    Private Sub FiltroEncaminhado_AfterUpdate()
    If FiltroEncaminhado = 1 Then
        Me.FilterOn = False
    Else
        If FiltroEncaminhado = 2 Then
       
            Me.Filter = "Situação = 'Encaminhado' OR Situação = 'Concluído'"
           
            Me.FilterOn = True
        End If
        If FiltroEncaminhado = 3 Then
            Me.Filter = "Situação <> 'Encaminhado' AND Situação <> 'Concluído'"
            Me.FilterOn = True
        End If
       
    End If

    End Sub


    Aguardamos 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
    cicero.meneses
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 15/09/2014

    [Resolvido]Se existir trazer dados Empty Se existir trazer dados

    Mensagem  cicero.meneses em 4/4/2019, 23:11

    Celso,

    Tudo 100% resolvido.

    Muito Obrigado.

    Não tem esta opção Resolvido para clicar.


    Última edição por cicero.meneses em 4/4/2019, 23:38, editado 1 vez(es)
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Se existir trazer dados Empty Re: [Resolvido]Se existir trazer dados

    Mensagem  Celso Roberto em 4/4/2019, 23:24

    Olá..

    Ficamos felizes por ter ajudado cheers cheers cheers

    Mas, para finalizar de o tópico como resolvido para ajudar outros membros que procuram pelo mesma dúvida.

    Veja como neste link: http://www.maximoaccess.com/t860-resolucao-de-topicos

    Edite uma mensagem clicar primeiro no Resolvido e depois em Enviar

    Aguardamos

    Abraços e sucesso


    .................................................................................
    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.....
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Se existir trazer dados Empty Re: [Resolvido]Se existir trazer dados

    Mensagem  Celso Roberto em 5/4/2019, 00:38

    Olá..

    Realmente quando edita uma mensagem este botão nâo habilita.

    Tem que responder com nova mensagem, ai ele habilita.

    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
    cicero.meneses
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 15/09/2014

    [Resolvido]Se existir trazer dados Empty Se existir trazer dados

    Mensagem  cicero.meneses em 5/4/2019, 12:04

    Bom dia a Todos.

    Resolvido.

    Muito obrigado.

    Abençoado dia para todos.
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Se existir trazer dados Empty Re: [Resolvido]Se existir trazer dados

    Mensagem  Celso Roberto em 5/4/2019, 18:13

    Olá...

    Perfeito!!!!!

    Um bom término de dia para você também.

    Obrigado pelo retorno

    Abraços e sucesso


    .................................................................................
    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.....

    Conteúdo patrocinado

    [Resolvido]Se existir trazer dados Empty Re: [Resolvido]Se existir trazer dados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/6/2019, 10:05