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

    IMPEDIR LANÇAMENTOS DUPLICADOS POR CLIENTE

    avatar
    jeanemerson
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 24/06/2020

    IMPEDIR LANÇAMENTOS DUPLICADOS POR CLIENTE Empty IMPEDIR LANÇAMENTOS DUPLICADOS POR CLIENTE

    Mensagem  jeanemerson 18/1/2021, 22:34

    Oi pessoal, espero que esteja tudo bem com vocês
    Estou com um problema da seguinte forma:

    To com um sistema de Matrícula Escolar e Preciso impedir que haja repetição de matrícula do mesmo aluno em um determinado ano, mantendo o ano anterior que ele estudou.
    Estou tentando com esse código, mas ele não é suficiente, pois teria que analisar o código do aluno e o ano de matrícula


    Private Sub txt_AnoLetivo_BeforeUpdate(Cancel As Integer)
    Dim Busca As String
      Dim stLinkCriteria As String
      Dim rsc As DAO.Recordset
      Set rsc = Me.RecordsetClone
      Busca = Me.AnoLetivo.Value
      stLinkCriteria = "AnoLetivo= '" & Busca & "'"
      If DCount("AnoLetivo", "Encontrar duplicatas para TblDet_Matricula", stLinkCriteria) > 0 Then
      Me.Undo
      MsgBox "Atenção " _
      & Busca & " Já está Matriculado." _
      & vbCr & vbCr & "Mostrar o Registo.", vbInformation _
      , "Duplicado"
      rsc.FindFirst stLinkCriteria
      Me.Bookmark = rsc.Bookmark

    End If
    Set rsc = Nothing
    End Sub
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 750
    Registrado : 11/12/2017

    IMPEDIR LANÇAMENTOS DUPLICADOS POR CLIENTE Empty Re: IMPEDIR LANÇAMENTOS DUPLICADOS POR CLIENTE

    Mensagem  Ismael Silva 19/1/2021, 10:14

    Bom dia,

     jeanemerson, favor adeque o Título do Tópico, pois está infringindo umas das regras do Fórum.

      E quanto a sua dúvida, favor verifique se o exemplo pode lhe ajudar, o mesmo impede dados duplicados com base em dois critérios, que são Ano e nome, que no seu caso pode alterar para o código, considerando que pode haver pessoas com nomes iguais, e o que difere será o código único.
    Anexos
    IMPEDIR LANÇAMENTOS DUPLICADOS POR CLIENTE AttachmentEx_19-01-21.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (47 Kb) Baixado 9 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    IMPEDIR LANÇAMENTOS DUPLICADOS POR CLIENTE Empty Re: IMPEDIR LANÇAMENTOS DUPLICADOS POR CLIENTE

    Mensagem  Marcelo David 19/1/2021, 12:26

    Bom dia Jean e seja bem vindo!

    Antes de portar, é essencial ler as Regras do Fórum:

    1. Tenha paciência com quem coloca aqui as suas duvidas.
    2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
    3. Não colocar diversas vezes a mesma dúvida.
    4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
    5. Retorne sempre se deu certo, esse retorno é muito importante.
    6. Respeite toda a equipe Staff e demais membros deste fórum.
    7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
    8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
    9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
    11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
    12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
    13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
    14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks"), excepto DropBox ou do próprio fórum.
    15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

    Peço que adeque o título do seu tópico e assim continuem com a solução.


    .................................................................................
    Marcelo David | IMPEDIR LANÇAMENTOS DUPLICADOS POR CLIENTE LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev

      Data/hora atual: 13/6/2021, 01:24