creacion ID de acces en visual basic

[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!!!!

[Avellaneda]

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

[kamumaki]

gracias avellaneda xo no me funciona.

tenga 0 o 1000 registros el RS.recordCount siempre es = 1

ale asta luegoooooor!!!

[Avellaneda]

Evidentemente, una consulta de agrupamiento de registros, siempre devuelve solamente uno (en este caso el máximo).

Cambia la instrucción a:
If Rs!maxid = 0 then

[kamumaki]

[IMG]C:\Documents and Settings\quimc\Mis documentos\Mis imágenes\foro.bmp[/IMG]

[kamumaki]

buenos dias gente!!!!

esto no me funciona.
Avellaneda he provado lo k dices i nada.
si pongo

RS!maxid devuelve nulo xo he puesto if(RS!maxid = null) y salta al else

bueno Avellaneda gracias por las sol·luciones!!!

hasta luego!!!

[Avellaneda]

Iniciado por kamumaki

buenos dias gente!!!!

esto no me funciona.
Avellaneda he provado lo k dices i nada.
si pongo

RS!maxid devuelve nulo xo he puesto if(RS!maxid = null) y salta al else

bueno Avellaneda gracias por las sol·luciones!!!

hasta luego!!!

Bueno, pues prueba así:

If IsNull(Rs!maxid) Then

[kamumaki]

Simplemente perfecto

gracias avellaneda!!!!

ta lego!