MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [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 : 303
    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 : 3169
    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 : 3169
    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 : 3169
    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
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    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





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


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    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


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


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    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


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


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    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: https://www.maximoaccess.com/t860-resolucao-de-topicos

    Edite uma mensagem clicar primeiro no Resolvido e depois em Enviar

    Aguardamos

    Abraços e sucesso


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


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    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


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


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    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


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


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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

      Data/hora atual: 28/9/2020, 13:47