Buenas noches, Colegas. Espero se encuentren bien de salud.
Antes que todo disculparme por estar ausente todo este tiempo, pero a mi amigo, el cual uso su ordenador, se volvió a romper y todo parece indicar que es un problema con la Board y eso por acá está a un precio de alrededor de $ 50 000.00 pesos cubanos, o sea, inalcanzable y un vecino que comenzó un negocio me pidió que le ayudara con algo para llevar sus inventarios y cuentas y me prestó su LapTop (muy vieja, lenta y con teclas que no funcionan) y en eso estoy. También los apagones por acá son de más de 12 horas al día todos los días y se hace muy difícil de trabajar, entre otras cosas.
Voy al tema; en este Proyecto que apenas comienzo se me presenta un problema y es que al insertar un nuevo registro en el FrmProducto me da el error ' 1004' . Esto sucede a partir de yo crear un consecutivo automático. El error lo da en el Botó Insertar en la Línea: .List(x, 0) = Hoja2.Cells(x, 1) 'Código
El código que uso para el incremento automático me lo ofreció mi gran amigo y "Padrino" JSD...
Voy a explicar algo, yo en función del tiempo, que prácticamente no tengo y sumado los apagones, tomé una plantilla (.xlsx) que descargué del canal del Tío Tech y sobre ella estoy trabajando lo que son los Formularios y Códigos. En esta plantilla, en la Columna Código, Miguel tenía creada una fórmula o función que generaba estos códigos (=CONCATENAR("Prod-",TEXTO(FILA(A2),"0000"))), pero esto me llevaba al problema de que cuando yo deje las Bases de Datos vacías (Cero Registros) no iba a poder implementar la generación de códigos. A mí, en lo particular, me hubiera gustado un código con letras y números (como el anterior), pero hasta ahí no llego, así que me conformo con el que estoy sugiriendo.
Por favor, si alguien puede ayudarme a corregir este error, se lo estaré agradeciendo.
Un saludo afectuoso para el Profesor Antoni, el Profesor JSD, para Abraham, Raigosa, y en general para todos los miembros de este maravilloso Foro.
Buenas noches, Colegas. Espero se encuentren bien de salud.
Antes que todo disculparme por estar ausente todo este tiempo, pero a mi amigo, el cual uso su ordenador, se volvió a romper y todo parece indicar que es un problema con la Board y eso por acá está a un precio de alrededor de $ 50 000.00 pesos cubanos, o sea, inalcanzable y un vecino que comenzó un negocio me pidió que le ayudara con algo para llevar sus inventarios y cuentas y me prestó su LapTop (muy vieja, lenta y con teclas que no funcionan) y en eso estoy. También los apagones por acá son de más de 12 horas al día todos los días y se hace muy difícil de trabajar, entre otras cosas.
Voy al tema; en este Proyecto que apenas comienzo se me presenta un problema y es que al insertar un nuevo registro en el FrmProducto me da el error ' 1004' . Esto sucede a partir de yo crear un consecutivo automático. El error lo da en el Botó Insertar en la Línea: .List(x, 0) = Hoja2.Cells(x, 1) 'Código
El código que uso para el incremento automático me lo ofreció mi gran amigo y "Padrino" JSD...
LblCodigo = Application.WorksheetFunction.Max(Hoja2.Columns(1)) + 1
Voy a explicar algo, yo en función del tiempo, que prácticamente no tengo y sumado los apagones, tomé una plantilla (.xlsx) que descargué del canal del Tío Tech y sobre ella estoy trabajando lo que son los Formularios y Códigos. En esta plantilla, en la Columna Código, Miguel tenía creada una fórmula o función que generaba estos códigos (=CONCATENAR("Prod-",TEXTO(FILA(A2),"0000"))), pero esto me llevaba al problema de que cuando yo deje las Bases de Datos vacías (Cero Registros) no iba a poder implementar la generación de códigos. A mí, en lo particular, me hubiera gustado un código con letras y números (como el anterior), pero hasta ahí no llego, así que me conformo con el que estoy sugiriendo.
Por favor, si alguien puede ayudarme a corregir este error, se lo estaré agradeciendo.
Un saludo afectuoso para el Profesor Antoni, el Profesor JSD, para Abraham, Raigosa, y en general para todos los miembros de este maravilloso Foro.
Tengan una excelente Noche/Día.
Saludos
Pino
Sistema Integral de Inventarios v2.2.0.xlsm