visual y tablas vacias

[hernan_garelli]

Hola amigos, me da un poco de verguenza preguntar esto, pero la verdad q nadie me supo explicar como hace.. aqui va mi duda:
una vez q terminamos nuestro proyecto, hecho en visual basic, y con base de datos en access, como hacemos para entregarlo con las tablas vacias, o sea sin contenido... lo q quiero evitar es q en sentencias como las q expongo a continuacion no me tire error por ej al intentar mover al ultimo registro... error:"no hay ningun registro activo", quisiera saber como lo hacen ustedes...
espero q se me haya entendido, desde ya muchas gracias!!


'actalizo tabla movim
Set rsA = DB.OpenRecordset("movimcd")
rsA.MoveLast
rsA.AddNew
rsA!cod = Form22.Label23
rsA!DNI = Form23.Label23
rsA!fre = Date
rsA!fde = x
rsA!cate = "cd"
rsA.Update

'actualizo tabla historial
Set RSH = DB.OpenRecordset("historial")
RSH.MoveLast
na = RSH!nroh 'automat historial
RSH.AddNew
RSH!nroh = na + 1
RSH!dnih = Form23.Label23
RSH!apeh = Form23.Label13
RSH!nomh = Form23.Label14
RSH!codh = Form22.Label23
RSH!nomlh = Form22.Label13
RSH!cateh = "cd"
RSH.Update

Hernán...

[David]

Tal vez con On Error Resume Next, aunque creo que es mejor usar EOF para saber si se ha llegado al final.

[hernan_garelli]

gracias david hay algun tuto q explique los "on error" pq no se bien como usarlos, y como funcionan
pd: vos decis q con un "eof" se solucionara?...ahora voy a probar

[David]

Lo que hace On Error Resume Next es que si en el código que le sigue se produce un error simplemente salta a la línea siguiente. Lógicamente, hay que tener mucho cuidado al usarlo, a veces puede traerte resultados inesperados.

[hernan_garelli]

asi se plantearia? q resultado inesperado pordria tener en este movimiento de carga de datos?
te pregunto pq si bien me falta bastante de aprender programacion, quisiera saber como lo harian otros, como realizar una carga segura.. y nadie me sabe explicar la forma correcta... por eso valoro mucho lo q se aprende en estos foros..
desde ya gracias!!!
Hernán

'actalizo tabla movim
Set rsA = DB.OpenRecordset("movimcd")
On Error Resume Next
rsA.MoveLast
rsA.AddNew
rsA!cod = Form22.Label23
rsA!DNI = Form23.Label23
rsA!fre = Date
rsA!fde = x
rsA!cate = "cd"
rsA.Update

[hernan_garelli]

amigo lo coloque en las cargas, y lugares donde me arrojaba ese error lo voy aponer a prueba, por ahora no falla, pero te confieso q me da un poco de miedo, gracias

[Avellaneda]

Iniciado por hernan_garelli

asi se plantearia? q resultado inesperado pordria tener en este movimiento de carga de datos?
te pregunto pq si bien me falta bastante de aprender programacion, quisiera saber como lo harian otros, como realizar una carga segura.. y nadie me sabe explicar la forma correcta... por eso valoro mucho lo q se aprende en estos foros..
desde ya gracias!!!
Hernán

'actalizo tabla movim
Set rsA = DB.OpenRecordset("movimcd")
On Error Resume Next
rsA.MoveLast
rsA.AddNew
rsA!cod = Form22.Label23
rsA!DNI = Form23.Label23
rsA!fre = Date
rsA!fde = x
rsA!cate = "cd"
rsA.Update

No necesitas poner ni 'On Error' ni 'MoveLast' si lo que estás haciendo es añadir registros.

Código:

Set rsA = DB.OpenRecordset("movimcd")
rsA.AddNew
rsA!cod = Form22.Label23
rsA!DNI = Form23.Label23
rsA!fre = Date
rsA!fde = x
rsA!cate = "cd"
rsA.Update

Para añadir un registro, no necesitas posicionarte al final de la tabla. La instrucción .AddNew ya posiciona el puntero al final de la misma, y no dará ningún error si la tabla está vacía.

[hernan_garelli]

ah!!! me lo habian enseñado como lo plantee al principio.. gracias amigos, muy util como siempre su informacion, gracias
problema solucionado
gracias