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 incrementen los el numero y se grabe en una tabla rangos definitivos hasta llegar al rango final te envío un ejemplo de la tabla rangos
POSICIÓN INICIAL POSICIÓN FINAL
925128100 925128159
925128160 925128169
925157100 925157119
925157120 925157129
925157200 925157499
925210000 925213273
925213274 925213274
925213275 925216999925128100 925128159
Deberá salir 925128100
925128101
925128102
Hasta llegar al 925128159
Y así con los demás rango
925219000 925219063
Es decir que en

1 respuesta

Respuesta
1
Me parece más una pregunta de examen, que un problema... pero acá va la respuesta:
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

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...
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

Reporte con filtro por fecha

Tengo una base de datos que estoy realizando solo que me encontré con un detalle al querer realizar un reporte donde me pida por así decirlo un campo y que pueda darme el resultado de un rango de fechas y la suma de un campo donde la suma me la da...
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

Importar datos de archivo binario a access

Importar datos de archivo binario a access Hola Expertos, Tengo una DB que extrae los datos de archivos binarios, la ruta la tengo definida desde una tabla, pero quiero saber si me pueden ayudar a definir la ruta directamente desde la subrutina....
1 respuesta

Macros excel con bd sql

Me gustaría saber si me puedes ayudar con una consulta desde una macro en excel necesito consultar y borrar un periodo de una tabla el código he realizado es el siguiente pero parece que no se ejecutara el query sql = "" sql = sql & "select * from...
1 respuesta

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

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