Access - Sr.

 
Vista:

Sr.

Publicado por Victor Jarero Cantú (1 intervención) el 17/07/2009 16:16:52
Cómo puedo hacer que me genere automaticamente un numero para cada registro en una tabla pero partinedo del nuemro que yo le indique?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Enrique Ramírez
Val: 37
Ha aumentado su posición en 2 puestos en Access (en relación al último mes)
Gráfica de Access

RE:Sr.

Publicado por Enrique Ramírez (629 intervenciones) el 20/07/2009 20:12:30
Este ejemplo controla no solo el folio inicial sino un rango de folios inicial y final para que tengas un mayor control de los folios que quieres ingresar.
Las variables wFolioDel = 100 y wFolioAl = 199 son el rango de folios a procesar
Es un formulario muy sencillo el cual solo tiene dos botones(BtnProceso) en el cual se hace todo el codigo y el boton salir(BtnSalir).
Solo utiliza una tabla llamada Datos y el campo Folio
Haz varios ejemplos cambiando los rangos por ejemplo: 200 al 299, 300 al 350 etc., espero sea lo que quieras y te sirva, saludos.

Option Compare Database
Dim Var, Var2 As String
Dim wFolioDel, wFolioAl As Integer
Dim db As DAO.Database, rs As DAO.Recordset

Private Sub BtnProceso_Click()
wFolioDel = 100
wFolioAl = 199
wFolio=0
Var = "SELECT Max(Datos.Folio) AS Ultimo FROM Datos WHERE Datos.FOLIO between " & wFolioDel & " AND " & wFolioAl & ""
Set db = CurrentDb()
Set rs = db.OpenRecordset(Var, dbOpenDynaset)
If IsNull(rs!Ultimo ) Then
wFolio = wFolioDel
Else
wFolio = rs!ULTIMO + 1
End If

Var = "SELECT Datos.FOLIO FROM Datos WHERE Datos.FOLIO = " & wFolio & ""
Set rs = db.OpenRecordset(Var, dbOpenDynaset)
If rs.RecordCount > 0 Then
MsgBox "Este Folio está fuera del rango a capturar", vbInformation, "Aviso"
Exit Sub
Else
Var2 = "INSERT INTO Datos (FOLIO) VALUES( " & wFolio & ")"
DoCmd.RunSQL Var2
End If
End Sub

Private Sub BtnSalir_Click()
DoCmd.Close
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar