Problema Con Un Atabla De Access

[jevalenzuela]

TENGO EL SIGUIENTE CODIGO


Dim codigo As Integer

Set RS = New Recordset
RS.Open "disco_duro", CN
While Not RS.EOF
codigo = RS!num
RS.MoveNext
Wend
codigo = codigo + 1
num = Str(codigo)

CON ESTE SCRIPT LOGRO RECORRER EL CAMPO DE UNA TABLA Y GENERAR UN NUMERO COMO UN AUTO NUMERICO, RECORRE TODO ELCAMPO Y AL FINAL LE SUMA UNO AL ULTIMO DATO Y LO COLOCA EN EL NUEVO DATO QUE INGRESE, CON ESTO ESTA TODO BIEN ME REALIZA TODAS ESAS FUNCIONES, MI PRBLEMA RADICA Y TALVEZ SEA UN DETALLE, EN QUE AL GUARDAR EL NUEVO NUMERO LE AGRUGA UN ESPACIO ES DECIR ME DEBIERA GUARDAR "4" Y ME GUARDA "_4" NO EL CARACTER SINO QUE UN ESPACIO Y POR CULPA DE ESTO NO LO PUEDO RECORRER CON UN BUSCADOR ¿ CUAL SERA EL PROBLEMA? COMO PUEDO SOLUCIONARLO? LO INTENTE CON UNA CAMPO AUTONUMERICO EN ACCESS PERO NO ME RESULTO ASI ES QUE LO HICE CON CODIGO POR FAVOR AYUDENME.....

[Frehley]

HHMMm.... lo que podria estar pasando es que accidentalmente en algun campo hallas ingresado " x", entonces te reconoce el espacio como parte del numero... otra cosa no se me ocurre, tendria que ver todo el codigo y la tabla...

Salu2!

[Luis Prieto]

Tu problema es como dice frehley derrepente has algun registro de ese campo esta con un espacio es cosa de que revises.

Pero mas ficil hubiese sido que que hagas para generar el codigo hacer una consuta SQL que te devuelva el MAX de ese campo y sumarle 1 en vez de recorrer toda la tabla.

select max(campo) *from tabla

saludos

[RootK]

Iniciado por jevalenzuela

TALVEZ SEA UN DETALLE, EN QUE AL GUARDAR EL NUEVO NUMERO LE AGRUGA UN ESPACIO ES DECIR ME DEBIERA GUARDAR "4" Y ME GUARDA "_4"

Hola..lo que no entiendo es porque haces un Str(codigo) no sería más fácil que guardes directamente "codigo" cuando hagas tu insert ??

Iniciado por Luis Prieto

Pero mas ficil hubiese sido que que hagas para generar el codigo hacer una consuta SQL que te devuelva el MAX de ese campo y sumarle 1 en vez de recorrer toda la tabla.

De hecho es mejor.. porque lo haces del lado de la query y no del code..