14/06/2004, 14:38
|
 | | | Fecha de Ingreso: mayo-2004 Ubicación: México
Mensajes: 2.702
Antigüedad: 20 años, 8 meses Puntos: 0 | |
| es sencillo para autonumerico una caja de texto:
suponiendo que cn es tu conexion a la BD (Public cn As New ADODB.Connection)
Dim rs As ADODB.Recordset
Dim consecutivo as integer
set rs=cn.execute("Select Max(tu_campo) + 1 From tu_tabla")
if rs(0)=0 then
consecutivo=1
else
consecutivo=rs(0)
end if
text1.text=consecutivo |