none
access 2007 RRS feed

  • Pregunta

  • Es posible ingresar una serie de números en una tabla en forma automática, indicando al programa el número de inicio / final y que este complete la números faltantes.

    EJ: 248  Nº faltantes completa access  564

    lo mencionado es a fin de ingresar en la tabla la numeracion de un talonario sin tipear Nº por Nº,

                                                                                                        Desde ya muchas gracias


    • Editado carlosalfa viernes, 23 de mayo de 2014 22:30
    miércoles, 21 de mayo de 2014 1:20

Todas las respuestas

  • Hola

    Mediante un bucle lo podrías hacer perfectamente 

    Salu2,


    José Mª Fueyo [MS MVP Access]

    miércoles, 21 de mayo de 2014 10:54
  • gracias por tu respueta, pero no logro hacerlo...
    viernes, 23 de mayo de 2014 22:33
  • Hola

    Public Sub InsercionValores(iInicio As Long, iFinal As Long)
        On Error GoTo Error_Insercion
        Dim i  As Long
        For i = iInicio To iFinal
           Dim sSQL As String
           sSQL = "INSERT INTO MiTabla(Valor) VALUES(" & i & ");"
           DoCmd.SetWarnings False
           DoCmd.RunSQL sSQL
           DoCmd.SetWarnings True
        Next
        Exit Sub
    Error_Insercion:
        Dim sMsg As String
        sMsg = "Se ha producido un error en el proceso" & vbCrLf & _
               "     Error: " & Err.Number & vbCrLf & _
               "     Desc.: " & Err.Description
        MsgBox sMsg, vbOKOnly + vbCritical, "¡Error en la inserción!"
    End Sub
    

    Salu2,


    José Mª Fueyo [MS MVP Access]

    lunes, 26 de mayo de 2014 10:03
  • gracias por tu respuesta, voy a intentarlo
    viernes, 6 de junio de 2014 3:41