Rellenar campos secuencialmente
Publicado por Holler (2 intervenciones) el 17/06/2013 15:56:10
Estoy con un marron en Access 2003 y no se muy bien como solucionarlo, pues hace años que no toco VisualBasic, y cuando lo hacía me parecía complicado.
En la que 3 de sus campos se deben rellenar automáticamente cuando recibimos una remesa de etiquetas.
Las etiquetas se numeran con LETRA, NUMERO Y NUMERO DE SERIE. Por ahora van de la A01 a la A24, repitiendo el número de serie hasta llegar a la 24.
Remesa01 A 01 00083456 .. A 24 00083456
Remesa02 A 01 00083457 .. A 24 00083457
La tabla se llama ETIQUETAS y los campos que necesito rellenar automáticamente son texto:
E_L_Etiquetas, E_N_Etiquetas, E_N_Serie
Mas o menos he conseguido inicializar tablas y esas cosas básicas. Pero necesito traducir esto a Visual Basic de Access2003:
- Pide letra inicial de etiqueta [E_L_Etiqueta_Incial] y letra final de etiqueta [E_L_Etiqueta_Final] // suele ser la misma = 'A', pero debe aceptar desde 'A' hasta 'ZZ'
- Pide numero inicial de etiqueta [ E_N_Etiqueta_Inicial] y numero final de etiqueta [E_N_Etiqueta_Final] // va desde '01' a '24'
- Pide número de serie inicial [E_N_Serie_Inicial] y número de serie final [E_N_Serie_Final] // siempre son 7 dígitos y tiene que llevar los ceros a la izquierda
E_L_Etiqueta = E_L_Etiqueta_Inicial
E_N_Etqiueta = E_N_Etiqueta_Incial
E_N_Serie = E_N_Serie_Inicial
Para E_L_Etiqueta = E_L_Etiqueta_Inicial hasta E_L_Etiqueta = E_L_Etiqueta_Final
Hacer:
Para E_N_Serie = E_N_Serie_Incial hasta E_N_Serie = E_N_Serie_Final
Hacer:
Para E_N_Etiqueta = E_N_Etiqueta_Inicial hasta E_N_Etiqueta = E_N_Etiqueta_Final
Hacer - insertar
E_L_Etiqueta
E_N_Etiqueta
E_N_Serie
Fin insertar
E_N_Etiqueta = siguiente valor
Fin Para E_N_Etiqueta
E_N_Serie = siguiente valor
Fin Para E_N_Serie
E_L_Etiqueta = siguiente valor
Fin Para E_L_Etiqueta
¿Podría alguien traducir eso a Visual Basic entendible por Access 2003?
Mil gracias
En la que 3 de sus campos se deben rellenar automáticamente cuando recibimos una remesa de etiquetas.
Las etiquetas se numeran con LETRA, NUMERO Y NUMERO DE SERIE. Por ahora van de la A01 a la A24, repitiendo el número de serie hasta llegar a la 24.
Remesa01 A 01 00083456 .. A 24 00083456
Remesa02 A 01 00083457 .. A 24 00083457
La tabla se llama ETIQUETAS y los campos que necesito rellenar automáticamente son texto:
E_L_Etiquetas, E_N_Etiquetas, E_N_Serie
Mas o menos he conseguido inicializar tablas y esas cosas básicas. Pero necesito traducir esto a Visual Basic de Access2003:
- Pide letra inicial de etiqueta [E_L_Etiqueta_Incial] y letra final de etiqueta [E_L_Etiqueta_Final] // suele ser la misma = 'A', pero debe aceptar desde 'A' hasta 'ZZ'
- Pide numero inicial de etiqueta [ E_N_Etiqueta_Inicial] y numero final de etiqueta [E_N_Etiqueta_Final] // va desde '01' a '24'
- Pide número de serie inicial [E_N_Serie_Inicial] y número de serie final [E_N_Serie_Final] // siempre son 7 dígitos y tiene que llevar los ceros a la izquierda
E_L_Etiqueta = E_L_Etiqueta_Inicial
E_N_Etqiueta = E_N_Etiqueta_Incial
E_N_Serie = E_N_Serie_Inicial
Para E_L_Etiqueta = E_L_Etiqueta_Inicial hasta E_L_Etiqueta = E_L_Etiqueta_Final
Hacer:
Para E_N_Serie = E_N_Serie_Incial hasta E_N_Serie = E_N_Serie_Final
Hacer:
Para E_N_Etiqueta = E_N_Etiqueta_Inicial hasta E_N_Etiqueta = E_N_Etiqueta_Final
Hacer - insertar
E_L_Etiqueta
E_N_Etiqueta
E_N_Serie
Fin insertar
E_N_Etiqueta = siguiente valor
Fin Para E_N_Etiqueta
E_N_Serie = siguiente valor
Fin Para E_N_Serie
E_L_Etiqueta = siguiente valor
Fin Para E_L_Etiqueta
¿Podría alguien traducir eso a Visual Basic entendible por Access 2003?
Mil gracias
Valora esta pregunta
0