ID automatico


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: ID automatico

Irenko

BELO HORIZONTE
MG - BRASIL

ENUNCIADA !

Postada em 22/05/2006 16:17 hs

Existe maneira via codigo de gerar um ID automático? Quando gravo um documento no banco, digamos, documento 1217 esse documento contem 05 items, preciso gerar um ID para cada um desses items, sendo que meu campo ID esta vazio. Exemplo:

documento 1217

Item 01 ID 1
Item 02 ID 2
Item 03 ID 3
Item 04 ID 4
Item 05 ID 5

Meu codigo para gravação é:

Sub GravaBancoLM()
Dim Sql As String

Sql = "SELECT [Nº LTD],[Pos],Quant,[Montado Com],[Descrição],[Descrição1],ITEM FROM ITEM WHERE [Nº LTD] Like '%" & NrLtd & "%'"
Set Tb_Ltd = Bd_Ltd.Execute(Sql)

Do While Not Tb_Ltd.EOF
If Tb_Ltd![Nº LTD] = NrLtd Then

Tb_LM.AddNew
'Items Banco LTD_DADOS Tabela ITEMS
Tb_LM!Ltd = Tb_Ltd![Nº LTD]
Tb_LM!Posicao = Tb_Ltd![Pos]
Tb_LM!Quantidade = Tb_Ltd!Quant
Tb_LM!ItemLtd = Tb_Ltd!Item

If Not IsNull(Tb_Ltd![Montado Com]) Then
  Select Case UCase(Mid(Tb_Ltd![Montado Com], 1, 2))
  Case Is = "OF"
        Tb_LM!OF = Tb_Ltd![Montado Com]
        Tb_LM!RC = ""
  Case Is = "RC"
        Tb_LM!RC = Tb_Ltd![Montado Com]
        Tb_LM!OF = ""
  End Select
End If
Tb_LM!Descricao = Nnull(Tb_Ltd![Descrição]) + Nnull(Tb_Ltd![Descrição1])
Tb_LM!LM_1 = NrLm
Tb_LM.Update
End If

Tb_Ltd.MoveNext
Loop

End Sub

VACA

LIMEIRA
SP - BRASIL

ENUNCIADA !

Postada em 22/05/2006 17:23 hs

geralmente pra isso se usa duas tabelas, tipo pedido e pedido_itens... na primeira vc tem os dados do principal e na segunda vc grava os secundario usando um relacionamento entre a tabela pra achar o registro

"Quando estou fraco, aí então é que sou Poderoso"

Irenko

BELO HORIZONTE
MG - BRASIL

ENUNCIADA !

Postada em 22/05/2006 18:06 hs

Acho que estou me expressando incorretamente. O que quero é numerar automaticamente os items no ato da gravação conforme meu primeiro post.

abaixo gero um numero automatico, preciso numerar meu campo ID da tabela em sequencia, ou seja, 1,2,3,4,5. Como posso fazer isso?

Private Sub GeraCodigo()
'Gerando codigos sequenciais de acordo com o ultimo reg
If TB.RecordCount = 0 Then
Lb_Id = 1
Else
Lb_Id = TB.RecordCount + 1
End If
End Sub

Daniel

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 23/05/2006 09:31 hs

se não tiver que reiniciar esse campo ID a cada mudança de documento, porque vc não define ele na tabela como AUTONUMERAÇÃO?

dsmn

Página(s): 1/1