SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: shecano en Jueves 30 de Julio de 2009, 02:29
-
Hola a todos necesito de la ayuda de todos ustedes, estoy programando una pequeña base de datos con visual basic 6.0 y Access 2003, en access tengo como llave principal el campo ORDEN y en autonumerico, el problema es que del numero que genere el campo orden lo utilizo tambien para guardar o copiar una imagen para cada registro en una carpeta especifica, ya que al presionar sobre el boton cargar imagen automaticamente me guarda el registro y me genera el numero de orden y el numero para la foto y para eso utilizo este pequeño codigo
.Requery
Dim orden As Integer
.MoveLast
orden = !orden
.AddNew
!orden = orden + 1
!FOTO = orden + 1
LBLORDEN.Caption = orden + 1
Me funciona pero al ingresar mas de 10 registros me da un error donde me dice que los cambios solicitados no se hicieron porque duplicarian valores en el indice o clave principal, ya que en acces el campo orden en su propiedad indexado lo tengo en Sí (Sin duplicados), o sea que no puede aceptar numeros duplicados, pero si le quito esa opcion de su propiedad y digo que acepte duplicados me sigue guardando el registro solo que duplicado y eso a mi no me conviene porque no me guarda la foto.
Si alguien me puede ayudar le agradecere muchisimo.
De ante mano graccias, Salu2.
-
El problema debe estar en la siguiente instrucción:
El campo es autonúmerico, por lo que no debes modificarlo. Elimina dicha línea.
:comp:
-
Gracias cpmario por tu colaboracion, bueno te comento ke ya probe con la sugerencia que me hiciste y si guarda bien los datos lo que no me guarda el numero de la imagen y ovbiamente no me copia la imagen a la carpeta especifica. Lo que quisiera en si es un simple codigo que me genere un autonumerico o que me lea el ultimo registro e intentado utilizar este codigo
Dim consecutivo as integer
set RsDatos=Base.execute("Select Max(El_campo ) + 1 From la_tabla")
if RsDatos(0)=0 then
consecutivo=1
rsdatos.addNew
else
consecutivo=Rsdatos(0)
end if
text1.text=consecutivo
lo pongo en el lostfocus de mi txtnombres.text y me localiza el ultimo registro y me suma uno mas, pero no me deja guardar el registro.
La verdad es que el modulo que utilizo para la foto me funciona bien y lo unico que necesito para terminar mi proyecto es solucionar este pequeño y gran problema. Si logro con tu ayuda superar este obstaculo abre terminado mi proyecto.
De todos modos gracias por tu colaboración y tu tiempo que dedicas para contestarme.
Salu2, desde Guatemala.