Venga Sjam7, ya no tienes que pensar más. Aquí tienes la función con la que pides el primer Id libre que tengas en una tabla.
Es muy útil en muchas ocasiones. Funciona para cualquier tabla. Sólo le tienes que pasar 2 parámetros de cadena (deben ir entre comillas):
cTabla: El nombre de la tabla.
cCampo: El nombre del campo del Id.
Sintaxis y ejemplo:
NuevoId("Clientes", "Id_Cliente")
Nota importante
Donde abre el recordet, tienes que cambiar el nombre de mi conexión a la base de datos (dbConex) por el tuyo ¡Y ya está!
<pre>
Function NuevoId(cTabla, cCampo)
'Nos da el último Id para una tabla
Dim rsTabla, nCont
Set rsTabla = Server.CreateObject("ADODB.Recordset")
rsTabla.Open "Select * From " & cTabla & " Order by " & cCampo, dbVentanit, 1
nCont = 1
Do While Not rsTabla.EOF
If rsTabla(cCampo) <> nCont Then
Exit Do
Else
rsTabla.MoveNext
nCont = nCont + 1
'If rsTabla.EOF Then cUser = "aa" & Formato(nCont, 4) 'En Visual Basic peta ¡Vaya Full!
End If
Loop
rsTabla.Close: Set rsTabla = Nothing
NuevoId = nCont
End Function
</pre>
Bueno, espero te guste y te sirva, un saludo, amigo. ;)
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>
