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
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Juego de cartas
- Calculo para niños
- Agenda

RE:Agregar registros, ERROR!!

Publicado por Christian (678 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