Crear registros en base al valor de un campo

Ojala me puedas ayudar de nuevo. Me gustaría saber como se puede crear automáticamente un numero de registros en base a un valor de un campo. Por ejemplo, al campo "periodos en proyecto" le asigno el valor 4 y ese valor hace que se creen 4 registros automáticamente, en donde el campo de Periodo de cada registro obtenga el valor 1 (para el primero), 2 (para el segundo). 3(Para el tercero) y 4 para el cuarto registro. ¿Existe manera de hacerlo?

1 respuesta

Respuesta
1
El procedimiento es muy similar a uno que acabo de contestar: te paso la misma respuesta
Es en 2 tablas distintas. No me imagino como hacerlo en la misma, una con los rangos (desde - hasta) y otra con los registros agregados.
Private Sub Comando0_Click()
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Rs. Open "tabla1", CurrentProject. Connection, adOpenKeyset, adLockOptimistic
rs2. Open "definitivos", CurrentProject. Connection, adOpenKeyset, adLockOptimistic
While Not rs.EOF
    inicial = rs.Fields("rango_inicial")
    final = rs.Fields("rango_final")
    For i = inicial To final
        rs2.AddNew "valor", i
    Next i
    Rs. MoveNext
Wend
rs2.Close
rs.Close
End Sub
tabla tabla1:
            rango_inicial, numerico
            rango_final, numerico
Tabla definitivos:
            Campo: valor, numérico
Saludos. Jorge

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Incrementar un rango de Números

Soy yalena de antemano muchas gracias por tu ayuda el problema que tengo es : Tengo una tabla denominada rangos tiene los campos rango inicial y el campo rango final lo que necesito es hacer una función para que a partir del campo rango inicial se...
1 respuesta

Contatenar registros de también en uno solo de una consulta

Me gustaría por favor una función que me permita en un sólo registro de una consulta, arrojar concatenados (separados por tabulaciones) todos los registros de una tabla. Por ejemplo, mi tabla se llama consecutivos y tiene los siguientes registros:...
1 respuesta

¿Cómo puedo unir 155 tablas vinculadas desde excel con igual estructura en Access?

Tengo 155 tablas vinculadas desde Excel (debido a que hay 1 archivo en Excel por usuario) a Access 2007, las cuales tienen la misma estructura (campos), pero diferentes registros. Necesito unir todos esos registros en 1 sola tabla o consulta. Utilicé...
1 respuesta

Comparar campo de un form con el de una consulta

No se si se puede comprar un campo de un formulario con el mismo de una consulta en VBA. Si se puede, ¿Me podrías decir cuales son las sentencias que se utilizarían? Por ejemplo quiero comparar el campo Trimestre que estoy introduciendo en el...
2 respuestas

Error user-defined type not defined

Estoy aprendiendo Visual Basic 6 y al copiar un código del libro que estoy estudiando y querer ejecutar la forma me sale error user-defined type not defined en la primera linea. Elo código es este, y la linea que marca el error la subrrayo Las...
1 respuesta

Contador que incrementa valor al cumplir condición

Los molesto por lo siguiente dado que me doy la cabeza contra el teclado y nada. La solución no viene. La consulta es esta: Tengo una tabla llamada "Ingresos" con los siguientes datos. Fecha, hora, turno, PLM, y contador. Y otra tabla llamada Lotes,...
1 respuesta

SQL Server- Union de Tablas de distintas BD´s

Necesito una query de ejemplo que me permita unir dos tablas de las mismas características pero que se encuentran en bases de datos distintas y que el resultado de esta me las arroje en una tabla temporal... Atentas a sus comentarios...
1 respuesta

Vb6 select (campo) from (variable)

Muy bien mi problema es que intento hacer referencia a una tabla mediante una variable, ya que de eso consta básicamente la aplicación, muy bien le pego mi código y espero me puedan ayudar Option Explicit Dim cnn As New ADODB.Connection Dim rs As New...
1 respuesta

Duplicar registros de una tabla POR veces

Tengo una tabla con diferentes campos: Campo "articulo" de texto Campo "descripcion" de texto Cantidad campo numérico Necesito crear duplicados de los registros que hay en los campos artículos y descripción un número de veces igual al valor del campo...
1 respuesta

Obtener datos de varios textbox

Tengo 3 textbox, t1, t2, y t3, y quiero guardar los valores en una tabla que tiene 3 campos texto1, texto2 y texto3 y tengo un botón que hace lo siguiente: Dim rs As New ADODB.Recordset Dim total As String Dim indice As String total = 3 indice = 1...
1 respuesta