ABCdatos
Programas y tutoriales
en castellano
ABCdatos tu página de inicio Inicio       
Su navegador rechazó un objeto incrustado.
Su navegador no soporta objetos incrustados. Vea los últimos mensajes en el foro.
PUBLICIDAD


Configura la auto numeración

     
Fuente: Microsoft Corporation
Web: http://www.microsoft.com/
     
  • Descripción
  • Opiniones
  • Recomendar

PUBLICIDAD
¿Cómo forzar en Access 2000 a que la auto numeración comience en un valor específico?

El truco es importar un registro que tenga un número menos que el número en que deseamos inicie la auto numeración, y luego borrarlo.

El siguiente procedimiento Sub realiza esta operación. Por ejemplo, para forzar la tabla "tblClient" a empezar en la numeración desde 7500: Call Set AutoNumber("tbClient",7500).

Sub SetAutoNumber(sTable As String, ByVal lNum As Long)
On Error GoTo Err_SetAutoNumber
' Purpose: set the AutoNumber field in sTable to begin at lNum.
' Arguments: sTable = name of table to modify.
' lNum = the number you wish to begin from.
' Sample use: Call SetAutoNumber("tblInvoice", 1000)
Dim db As Database ' Current db.
Dim tdf As TableDef ' TableDef of sTable.
Dim i As Integer ' Loop counter Dim fld As Field ' Field of sTable.
Dim sFieldName As String ' Name of the AutoNumber field.
Dim vMaxID As Variant ' Current Maximum AutoNumber value.
Dim sSQL As String ' Append/Delete query string.
Dim sMsg As String ' MsgBox string.
lNum = lNum - 1 ' Assign to 1 less than desired value.
' Locate the auto-incrementing field for this table.
Set db = CurrentDb()
Set tdf = db.TableDefs(sTable)
For i = 0 To tdf.Fields.Count - 1
Set fld = tdf.Fields(i)
If fld.Attributes And dbAutoIncrField Then
sFieldName = fld.name
vExit For
End If
Next
If Len(sFieldName) = 0 Then
sMsg = "No AutoNumber field found in table """ & sTable & """."
MsgBox sMsg, vbInformation, "Cannot set AutoNumber"
Else
vMaxID = DMax(sFieldName, sTable)
If IsNull(vMaxID) Then vMaxID = 0
If vMaxID>= lNum Then
sMsg = "Supply a larger number. """ & sTable & "." & sFieldName & """ already
contains the value " & vMaxID
MsgBox sMsg, vbInformation, "Too low."
Else
' Insert and delete the record.
sSQL = "INSERT INTO " & sTable & " ([" & sFieldName & "]) SELECT " & lNum & " AS lNum;"
db.Execute sSQL, dbFailOnError
sSQL = "DELETE FROM " & sTable & " WHERE " & sFieldName & " = " & lNum & ";" db.Execute sSQL, dbFailOnError
End If
End If
Exit_SetAutoNumber:
Exit Sub
Err_SetAutoNumber:
MsgBox "Error " & Err.Number & ": " & Err.Description, , "SetAutoNumber()"
Resume Exit_SetAutoNumber
End Sub

No hay opiniones de los usuarios. ¡Sé el primero en dar tu opinión! (No requiere registro)

¿Te gusta este truco? ¡Recomiéndaselo a un amigo!

     
     
     
     
     
     
Las direcciones de correo electrónico que se proporcionan en este servicio, solamente serán utilizadas con la finalidad de enviar la recomendación al destinatario. Ni tu dirección de correo ni la de tu amigo/a serán utilizadas para ningún otro propósito.
Trucos del mismo autor Más trucos del mismo autor
(Se muestran 10 de 23)
¡Y dale con los drivers no firmados!
Windows XP incorporó un sistema de firma digital para los controladores (o drivers). Para que un controlador sea aceptado por Windows XP sin problemas, éste debe poseer un certificado...
sigue leyendo
Sugerencia de MSN Hotmail
Es muy sencillo tener la opción de mantener una conversación instantánea en línea cuando compruebas tu correo electrónico. Simplemente agrega los contactos de MSN...
sigue leyendo
Empujar un objeto a su posición
Imaginemos que estás utilizando Microsoft Publisher 2002 y has agregado un logotipo al prospecto, pero te ha quedado un poco bajo. Para empujarlo exactamente al lugar que deseas sigue estos...
sigue leyendo
Etiquetas Inteligentes en Word
¿Sabes cómo continuar la numeración de forma sencilla con las Etiquetas Inteligentes? Algunas veces es necesario interrumpir una lista numerada para introducir un párrafo...
sigue leyendo
Cómo guardar varios documentos adjuntos de forma simultánea
Cuando recibes un mensaje en Outlook que contiene varios archivos adjuntos, no tienes que abrirlos y guardarlos uno por uno. Puedes guardar varios documentos adjuntos al mismo lugar con una sola...
sigue leyendo
Cómo reciclar tablas de Access
¿Sabías que se pueden hacer copias de las tablas de Access sin necesidad de copiar la información que contienen?. Sigue estos...
sigue leyendo
Insertar una letra capital en tu documento
Las letras capital son una excelente técnica para dar apariencia solemne a tus documentos de Word. Consisten en insertar la letra inicial de un párrafo en un tamaño mayor al del...
sigue leyendo
Cómo dividir el texto de una celda en dos líneas
Puedes controlar dónde se divide el texto de una celda y cuántas veces lo hace para etiquetas o encabezados largos en la hoja de trabajo de Microsoft Excel del mismo modo que lo haces...
sigue leyendo
Cerrar el panel de tareas en Office XP
El panel de tareas es un área de Microsoft Office XP que muestra los comandos utilizados más comúnmente. Si no quieres utilizar el panel de tareas, puedes cerrarlo durante la...
sigue leyendo
Cómo personalizar el formato de los comentarios
Cuando utilizas las vistas de Impresión o Web, Word 2002 te muestra comentarios en globos de distintos colores que aparecen a la derecha y que de forma automática asignan un color...
sigue leyendo

Copyright © 1999-2013 ABCdatos.com. Todos los derechos reservados.
Para información sobre privacidad, consulte la declaración de política de privacidad.
Contactar con ABCdatos.