Como generar id's automaticamente

[hunter18]

Utilizo una bd en access2003 como podria optimizar este codigo para que NO haya duplicidad de primary key's

Seria mejor utilizar id's con tipo de dato auto en access2003 o cambiar a sqlserver pero la situacion actual es la que tengo.

El sistema no lo desarrolle yo pero me han encargado hacer alguno cambios, actualmente esta asi la generacion de id's

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim z As String
z = F_codigo

dbConex.Execute ("INSERT INTO Cliente VALUES('" & z & "','" & .Text2.Text & "')")

End Sub

Function F_codigo()
Dim zPlus As String
 
 Set rsAcumulador = dbConex.Execute("SELECT autoEmp FROM acumulador")

 zPlus = 0
 rsAcumulador.MoveLast
 zPlus = rsAcumulador(0) + 1
 zPlus = Format(Val(zPlus), "00")

 dbConex.Execute "UPDATE acumulador SET autoEmp='" & Trim(zPlus) & "'"
 F_codigo = zPlus

End Function