Visual Basic - Agregar registros, ERROR!!

Life is soft - evento anual de software empresarial
   
Vista:

Agregar registros, ERROR!!

Publicado por jjlopez (50 intervenciones) el 28/02/2011 20:36:33
Hola, tengo una aplicacion en vb6 con access 2007. En la pc que lo programo es windows 7 (todo funciona de maravilla) y en la pc que lo implemento es windows xp (sale error).

Bien, el programa me arroja error cuando intento agregar un registro nuevo. Aclaro que la base ya contiene datos donde la primera columna es el codigo de clientes "0000001".

asi se ve mi codigo en el boton guardar. ACLARO, sucede en el XP y no en 7.

If Base.EOF = False Then
'hace esto porque contiene datos
Base.MoveLast
txt_codigo.Text = Format(Base.Fields(0).Value + 1, "0000000")
With Base
.AddNew
.Fields("Codigo") = txt_codigo.Text
.Fields("Nombre") = txt_nombre.Text
.Fields("Apellido") = txt_apellido.Text
.Fields("DNI") = txt_dni.Text
.Fields("Localidad") = txt_localidad.Text
.Fields("Domicilio") = txt_domicilio.Text
.Fields("Telefono") = txt_telefono.Text
.Fields("Saldo") = Replace(txt_saldo.Text, ",", ".", 1)
.Update
End With
Else
'llego aqui porque esta vacia
txt_codigo = "0000001"
With Base
.AddNew
.Fields("Codigo") = txt_codigo.Text
.Fields("Nombre") = txt_nombre.Text
.Fields("Apellido") = txt_apellido.Text
.Fields("DNI") = txt_dni.Text
.Fields("Localidad") = txt_localidad.Text
.Fields("Domicilio") = txt_domicilio.Text
.Fields("Telefono") = txt_telefono.Text
.Fields("Saldo") = Replace(txt_saldo.Text, ",", ".", 1)
.Update
End With
End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Agregar registros, ERROR!!

Publicado por Christian (666 intervenciones) el 01/03/2011 21:45:58
Puede ser que el campo codigo lo tengas como irrepetible? osea que no puede haber dos datos codigo 00001 . Es fijate que es configuracion de base.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Agregar registros, ERROR!!

Publicado por jjlopez (50 intervenciones) el 03/03/2011 03:56:34
hola christian, al access lo tengo configurado de la siguiente manera a la columna codigo.

Nombre: Codigo
Tipo: Texto
Tamaño del campo: 255
Indexado: Si (Sin duplicados)
Requerido: No
Permitir Longitud cero: Si

Incluso agrego registros en otras tablas de la misma base, que estan configuradas de la misma manera y funciona bien. Solo me pasa con productos y clientes.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar