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


2 participantes

    Controle de itens duplicados

    avatar
    smallville
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 18/08/2013

    Controle de itens duplicados Empty Controle de itens duplicados

    Mensagem  smallville 15/5/2014, 15:04

    Oi, bom dia. Estou utilizando o seguinte código em um campo de um subformulário:

    If DCount("numProcesso", "tblControle", "numProcesso =""" & Me!numProcesso & """") > 0 Then
    'A função DCount() contou um ou mais registros existentes
    MsgBox "O Processo" & Me!numProcesso & " já existe..."
    Me.Undo 'Limpa o campo
    Cancel = True 'mantém o foco no campo.
    End If


    Mas, como eu faço para avisar em qual cliente aquele registro está?

    Agradeço desde já a ajuda de vocês. Vlw


    Última edição por smallville em 15/5/2014, 15:10, editado 1 vez(es)
    avatar
    smallville
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 18/08/2013

    Controle de itens duplicados Empty Re: Controle de itens duplicados

    Mensagem  smallville 15/5/2014, 15:30

    Arquivo
    Anexos
    Controle de itens duplicados AttachmentControlFinanceiro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (106 Kb) Baixado 29 vez(es)
    avatar
    smallville
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 18/08/2013

    Controle de itens duplicados Empty Re: Controle de itens duplicados

    Mensagem  smallville 18/5/2014, 09:54

    Olá pessoal, pesquisando no fórum encontrei o seguinte código e coloquei na minha BD:

    'Exemplo do mestre JPaulo
    'última modificação: Glicerio Junior (Jungli) ... 01.04.2011
    Dim r As DAO.Recordset
    Dim sCriterio As String
    Dim cancel As Integer
    'pNome = campo no formulário e na tabela
    sCriterio = "([numProcesso] = '" & Me![numProcesso] & "') "

    Set r = Me.RecordsetClone
    r.FindFirst sCriterio
    '...
    If r.NoMatch Then
    Exit Sub
    Else
    If MsgBox("Existe um Cliente cadastrado com este Nome!" & vbCrLf & _
    "Deseja encontra-lo?" _
    , vbYesNo + vbInformation, "Atenção") = vbYes Then
    cancel = True
    Me.Undo
    Me.Bookmark = r.Bookmark
    End If
    End If
    Set r = Nothing

    A dúvida é: Ele tá encontrando o duplicado apenas dos registros exibidos no subformulário para aquele beneficiário. Mas, como fazer ele consultar no sistema inteiro e ir direto para o duplicado?

    Obrigado
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Controle de itens duplicados Empty Re: Controle de itens duplicados

    Mensagem  Fernando Bueno 20/5/2014, 21:56

    Boa tarde colega, faz um teste para vermos se é isso que deseja.


    .................................................................................
    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
    Controle de itens duplicados 16rzeq
    avatar
    smallville
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 18/08/2013

    Controle de itens duplicados Empty Re: Controle de itens duplicados

    Mensagem  smallville 20/5/2014, 23:46

    Olá Fernando, atende sim. Mas, sem querer abusar rsrsrs, só por curiosidade - pois procurei em vários fóruns e não encontrei - tem algum código que faça com que ele navegue dentro do próprio subformulário e já vá direito para o registro? Como nesse último código do JPaulo que coloquei. Se tiver vários códigos e de repente eu digitar um igual, o código já seleciona e deixa focado na linha do registro.

    Nesse código do JPaulo ele localiza o registro e já deixa selecionado o duplicado, quando existe. Mas, se eu cadastrar outro beneficiário, o subform fica em branco, para receber os processos do beneficiário que estou cadastrando, e quando coloco um código de outro beneficiário ele vai acusar que tem duplicado mas não ser movimenta para aquele código, pois avisa que não existe nenhum registro, ou seja, ele não consegue se movimentar entre os subforms.

    Fiquei na dúvida como fazer desse jeito, mas agradeço mto o que vc mandou. Dá para resolver também. Mto obrigado e agradeço se você pudesse só explicar se existe a possibilidade que relatei.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Controle de itens duplicados Empty Re: Controle de itens duplicados

    Mensagem  Fernando Bueno 21/5/2014, 01:21

    Boa noite smallville..

    Dessa forma que você quer não tenho ideia como fazer amigo infelizmente vou ficar

    te devendo essa, acredito que outros membros poderão te responder ok.


    .................................................................................
    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
    Controle de itens duplicados 16rzeq
    avatar
    smallville
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 18/08/2013

    Controle de itens duplicados Empty Re: Controle de itens duplicados

    Mensagem  smallville 27/5/2014, 14:58

    UP!
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Controle de itens duplicados Empty Re: Controle de itens duplicados

    Mensagem  Fernando Bueno 14/6/2014, 16:56

    Boa tarde, como anda essa duvida?


    .................................................................................
    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
    Controle de itens duplicados 16rzeq
    avatar
    smallville
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 18/08/2013

    Controle de itens duplicados Empty Re: Controle de itens duplicados

    Mensagem  smallville 26/6/2014, 19:21

    Olá, ainda não encontrei uma forma de fazer essa consulta na tabela toda.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Controle de itens duplicados Empty Re: Controle de itens duplicados

    Mensagem  Fernando Bueno 26/6/2014, 19:41

    Ok, assim que sobrar um tempinho vejo se consigo pra você.


    .................................................................................
    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
    Controle de itens duplicados 16rzeq

    Conteúdo patrocinado


    Controle de itens duplicados Empty Re: Controle de itens duplicados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/11/2024, 11:59