Autor
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:
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
En línea
