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

4 participantes

    Chave primária composta

    avatar
    haroldoCdecampos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 13/04/2021

    Chave primária composta Empty Chave primária composta

    Mensagem  haroldoCdecampos 26/11/2021, 17:36

    Alo.

    Já achei informações para criação de chave primária composta, mas essa forma evita duplicação de qualquer dos dois dados.
    Mas como ficaria, por exemplo, uma chave em que uma data se repete, mas a numeração reinicia a cada data? É possível?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8251
    Registrado : 05/11/2009

    Chave primária composta Empty Re: Chave primária composta

    Mensagem  Alexandre Neves 26/11/2021, 20:07

    Boa noite
    Para mim, se a data se repete não pode ser chave primária e se a numeração reinicia a cada data também não pode ser chave prinmária
    Deverá nada fazer na data e criar código para atribuir numeração conforme a data.
    Procure aqui no fórum, já se tem abordado várias situações similares


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2692
    Registrado : 13/12/2016

    Chave primária composta Empty Re: Chave primária composta

    Mensagem  Alexandre Fim 26/11/2021, 20:24

    Haroldo,

    Sim, é possível criar chave primária composta. Ao criar a tabela , selecione os campos que deseja utilizar como chave e clique no botão Chave Primária, conforme abaixo:

    Chave primária composta Compos10

    Neste caso, você pode repetir a data, conforme abaixo:
    Chave primária composta Compos11


    É isso

    []'s

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Chave primária composta Setinf11
    Sistemas e Tecnologia Ltda
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 709
    Registrado : 07/05/2010

    Chave primária composta Empty Re: Chave primária composta

    Mensagem  Jungli 27/11/2021, 20:27

    Boa tarde,

    complementando o pensamento do Mestre Alexandre.

    Código:

    Public Function LetraAleatoria() As String
    '***********************************************************************************************
    '*  seleciona um aletra aleatóriamente
    '*  autor desconhecido
    '*  modificado por glicério júnior (jungli) ...04/2011
        Dim MaxLetra As Long
        Randomize    ' iniciar o gerador de aleatórios.
        MaxLetra = 26  'aqui voce poderá escolher de 1 a 26 letras.
        Dim i As Long: i = 1
        For i = 1 To MaxLetra
        ' gerando letras aleatórias de 1 a até o número escolhido em Maximo_letras
          LetraAleatoria = Chr(Int((MaxLetra * Rnd) + 1) + 64)
          i = i + 1
        Next i
    '// fim
    End Function

    Public Function GeraCodigo()
    '***********************************************************************************************
    '*  cria um código composto para ser usado como chave primária
    '*  Glicerio Junior (Jungli) ... 01/04/2011
    GeraCodigo = LetraAleatoria() & LetraAleatoria() & Format(Now(), "YYMD") & LetraAleatoria() & Format(Now(), "HMS")
    End Function

    em minhas aplicações ainda não tive problemas com repetições!

    no formulário.

    seuCampo=GeraCodigo

    abs


    .................................................................................
    "Somos o que repetidamente fazemos.
    A excelência, portanto, não é um feito,
    mas um hábito."

    Aristóteles

      Data/hora atual: 5/12/2022, 00:37