compilar base

> ¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias.
> Hola !
pensandolo bien, creo que tal vez te vaya mejor el método clásico,
adaptándolo a tu proceso claro

'*******************************************************************************
'* CompactaBD compacta la base de datos especificada, si esta cerrada
'* se pasa como parámetro el nombre de la base de datos incluida su ruta
'* uso: CompactaBD("C:\Mis Documentos\Bases de Datos\Discos.mdb")
'*******************************************************************************
Function CompactaBD(strDBPathName As String)
' inicia rutina de tratamiento de errores
On Error GoTo err_CompactaBD
Dim strTempName As String
' crea en el directorio temporal, una base de datos temporal
' utilizando un número aleatorio
' la base de datos se compactara sobre esta temporal
' La función Environ devuelve la configuración del sistema
Randomize
strTempName = Environ("Temp") & "\TempDB" & Int((99 * Rnd) + 1) & ".MDB"
' Compacta la base de datos en la temporal
DBEngine.CompactDatabase strDBPathName, strTempName
' si la compactación finaliza correctamente, elimina la base de datos
' original y renombra la temporal
Kill strDBPathName
Name strTempName As strDBPathName
CompactaBD = "Compactación Finalizada"
Exit Function
err_CompactaBD:
' la rutina de errores maneja el intento de compactar una base de datos
' abierta y otros errores inesperados
Select Case Err.Number
Case 3356
MsgBox Err.Description & vbLf & _
"La Base de Datos está abierta, Por favor cierre todas " & _
"las instancias de esta base de datos e intentelo de nuevo."
Case Else
MsgBox Err.Description
End Select
' si se produce un error, la función devuelve el error definido por el
' usuario run-time error 65535.
CompactaBD = CVErr(65535)
End Function ' CompactaBD

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"Emilio" <miliuco56 ALGARROBA hotmail PUNTO com> escribió en el mensaje
news:
> > > ¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
> sirvió o no la respuesta dada. Muchas gracias.
> > > Hola !
> en ese caso echa un vistazo a estos enlaces
> http://accessvbafaq.mvps.org/buscar.asp
>
> Saludos a desde Huelva
> Emilio
> miliuco56 ALGARROBA hotmail.com
>
> http://www.mvp-access.com/foro
> http://www.mvp-access.com/emilio
>
> Reglas de conducta de los grupos de noticias:
> http://support.microsoft.com/defaul...newsreglas
>
> "fredy" escribió en el mensaje
> news:
>> tines toda la razon la palabrita es compactar... oops!
>>
>>
>> "Emilio" wrote:
>>
>>> ¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si
>>> te
>>> sirvió o no la respuesta dada. Muchas gracias
>>> Hola!
>>> no le veo ningún sentido a lo que pides :-s, si no tienes Access, tu
>>> mdb, no
>>> tendrá código, por tanto no necesitarás compilarla, ¿no será que quieres
>>> compactarla?
>>>
>>> Saludos a
>>> Emilio
>>> miliuco56 ALGARROBA hotmail.com
>>> http://www.mvp-access.com/foro
>>> http://www.mvp-access.com/emilio
>>>
>>>
>>> "fredy" escribió en el mensaje
>>> news:
>>> > hola grupo
>>> > tengo la siguiente situacion:
>>> > manejo una base de datos desde excel ... la base de datos es en acces
>>> > pero
>>> > no tengo el programa asi que todas las instrucciones para agregar
>>> registros y
>>> > editarlos las hago desde excel ... lo que quiero hacer es compilar la
>>> > base
>>> de
>>> > datos por codigo .. alguien sabe como lo puedo hacer ...
>>> > muchas gracias Fredy
>>>
>>>
>>>
>
>