Resetear un dato Autonumerico

 Cuando tenemos una tabla no vinculada y que recibe los datos,

normalmente se tiene que borrar y cargar nuevamente los datos

pero el dato Autonumerico, igual se va incrementando.

entonces la idea sería, resetear este valor a 0, para que nuevamente el primer dato sea 1 luego 2 etc.

En este ejemplo la tabla se llama Files y el Autonumerico se llama FileID:

CurrentDb.Execute "ALTER TABLE Files ALTER COLUMN FileID COUNTER(1,1)"

Borrar y dejar en blanco una tabla que recibe datos

 Lo primero es borrar todos los datos

tabla1  es el nombre de la tabla

PRECAUCION  BORRARÄ TODOS LOS DATOS DE LA TABLA, SIN AVISO:

    DoCmd.SetWarnings False

    strSQL = "Delete * From [tabla1]"

    DoCmd.RunSQL strSQL

    DoCmd.SetWarnings True

Buscar de derecha a Izquierda

=(Len([Text11]))-(InStr(StrReverse([Text11]);"\"))+1

explico:
el comando    InStr

solo busca de izquiera a derecha


si tengo varios signos o cadenas iguales
buscará la primera coincidencia

que pasa si yo quiero buscar la ultima coincidencia???

ejemplo
en el texto    Dato:"D:\Pictures\jpg\Group 7\file006012.jpg"

yo quiero que me diga automaticamente, donde se encuentra ubicado el ultimo "\"

Al poner =InStr([Dato];"\")   = 3
pero yo quiero que me muestre el ultimo, no el primero = 24

entonces aplico otro comando SrtReverse

que invierte todo el texto  al poner  =SrtReverse([Dato])  

queda: "gpj.210600elif\7 puorG\gpj\serutciP\:D"   ALREVES !

si a esto le aplico el primer comando  =InStr(SrtReverse([Dato]);"\")

contará ahora alrevez = 15

pero aun no me sigue mostrando el dato original que yo quiero que es el 24

entonces aplico otro comando que cuenta la cantidad de caracteres

=Len([Dato])  = 38

Luego   28 - 15  = 23,  porque le resta un caracer, luego habria que sumarle 1 y llegamos
             28 - 15 + 1

entonces   =Len([Dato])-InStr(SrtReverse([Dato]);"\")+1  = 24

APLICABLE A CUALQUIER CONJUNTO DE CARACTERES
ASI CUENTA DE IZUIERDA A DERECHA EL ULTIMO CARACTER BUSCADO !!


ENTONCES LLEGO A MI RESULTADO FINAL

PARA QUE ME PUEDA ABRIR EL LUGAR DONDE SE ENCUENTRA EL ARCHIVO

EN EL TEXTO  

"D:\Pictures\jpg\Group 7\file006012.jpg"


=Left([Dato];(Len([Dato])-InStr(SrtReverse([Dato]);"\")+1))

EXTRAIGO


"D:\Pictures\jpg\Group 7\"  LA CARPETA DONDE ESTA EL ARCHIVO

PARA BORRAR EL REGISTRO ACTUAL DE UN FORMULARIO

Dim resp As Integer

resp = MsgBox("¿Estas seguro de querer eliminar el registro?.", vbYesNo + vbInformation, "Confirmar")

If resp = vbYes Then
DoCmd.SetWarnings False

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.SetWarnings True

DoCmd.Close