22/07/2008, 04:07
|
| Colaborador | | Fecha de Ingreso: enero-2008 Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 17 años, 2 meses Puntos: 37 | |
| Respuesta: creacion ID de acces en visual basic
Cita:
Iniciado por kamumaki  buenas!!!
hago lo siguiente
- cojo el id maximo k haya en los registros de la tabla empreses.
- si hay algun registro pues nada cojo el maximo y le sumo 1 y sin problemas.
- lo malo es cuando la tabla esta vacia!!!!
como se lo digo???
SQL = "SELECT MAX(ID) as maxid FROM T_EMPRESES"
Set Rs = CurrentDb.OpenRecordset(SQL)
If Rs!maxid = Null Then
CODI = 1
Else
CODI = Rs("maxid") + 1
End If
merci!!!! If Rs.RecordCount = 0 Then  |