[Resolvido]Numeração automatica ou Controla os ID,s ?

Boa Noite !


Amigos, quando comecei a estudar access ,em um exemplo vi um colega que gera o ID da forma abaixo e acabei usando desde entao e tem funcionado sem problemas.

Mas com o tempo vendo exemplos de colegas aqui no Forum percebi que a grande maioria usa Numeração automática.

Trabalhar com Numeração automotica é melhor ? tem alguma desvantagem ?

Sub Gerar_ID_Tbl()
   StrSQl = "select ID_Tbl from SuaTabela order by ID_Tbl Desc"
           Set rst = CurrentDb.OpenRecordset(Comando, dbOpenDynaset)
   If rst.BOF = True Then
       Num_Cod_Tbl = 1
   Else
        Num_Cod_Tbl = rst("ID_Tbl") + 1
   End If    
End Sub

Obrigado Pela Atenção!

Boa noite Rafael,

É recomendável a utilização de Autonumeração para evitar erros principalmente em rede, e lhe dá menos trabalho por digitar menos códigos.

Vlw.

Obrigado Silvanio pela atenção!

Mas minha duvida maior era se a auto numeração tem alguma desvantagem ?

Outra coisa tenho uma rotina de importação que importo cerca de 30 Mil registros por dia, mas antes deleto os registro do dia anterior e o fato de ser auto numeração em pouco meses esse numero terá vários dígitos isso tem alguma problema ? teria uma outra forma de fazer isso ?

Obrigado !

Olá Rafael,

Como você já comentou, a única desvantagem é que auto numeração vai gerando códigos grandes

a cada insert.

Você pode usar esta função para pegar sempre o novo ID ao inserir um registro:

Código:


Global rs as DAO.Recordset

Public Function PegaId(StTabela As String) As Long

Set rs = CurrentDb.OpenRecordset(StTabela)

If rs.RecordCount = 0 Then
PegaId = 1
Else

rs.MoveLast

PegaId = DMax(rs(0), StTabela) + 1
End If

Set rs = Nothing

End Function

'Para chamar a função:
'MeucodigoID = PegaID("SuaTabela")


Desculpe chsestrem

Mas esse código eu uso em situações onde não utilizo auto numeração ?
Em situações onde a quantidade de registro nao é tao grande seria algum problema usar auto numeração ?


No meu caso trabalho em rede e concordo com o Silvano seria uma ida ao banco desnecessária e isso em rede vale muito.

Boa tarde Rafael,

Bem... a Autonumeração é sempre a melhor opção ao meu ver e ela pode ser zerada vai depender se vc deleta todo o banco ou só parcial? se for todo vê essa dica do Jpaulo que é bem simples e dá p/ fazer via código num apertar de u botão.

http://maximoaccess.forumeiros.com/t9056-resolvidozera-a-numeracao-automatica

Agora se for um delete parcial, realmente há necessidade de se deletar? Vc importa para outro banco não entendi bem.

E só para esclarecer não há desvantagem alguma em se usar Autonumeração, p/ contrario como disse é recomendável.

Vlw.

Minha recomendação e experiência:

Auto-Numeração ****Sempre***

A unica desvantagem é que se você tiver 30.000 registros e deletar um registro, jamais irá recuperar esse numero, mas a auto-numeração até para não deixar duplicidade é nota 10.

Obrigado Pela dica JPaulo!

Mais uma duvida, em situações onde tenho que deletar tudo de uma tabela antes de importar (25 a 30 mil registro por dia) tem alguma forma de toda vez que deletar o campo auto numeração comecar do 0 novamente ? senão eu pouco tempo terei numeros gigantesco.

Obs. Uso o codigo abaixo para importar,

Private Sub Btn_Importar_Click()
CurrentDb.Execute "Delete * From Tbl_Historico"
Dim strTabela As String
strTabela = "Tbl_Historico"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTabela, "C:\Historico_manut.xlsx", True, "Historico" & "!A1:AQ500"
End Sub


Obrigado !

Ola;

Você não leu com atenção o link da mensagem Nº6.