Access - mensaje para ····JORDI-----

Hola Jordi, gracias por lo que me mandaste, me ayudo mucho.
Ahora otra pregunta, el codigo que me mandaste para el backup, me podes explicar como usarlo, es decir, como lo aplico. Con un boton que cuando haga click ejecute el codigo??
En realidad entiendo el codigo pero no se me ocurre como usarlo.
Gracias
Salu2
Este es el mensaje que me mandaste antes:
Para lo del los codigos de barras, si que se puede hacer pero necesitas algun programa para hacer los codigos. Mejor visita http://www.abarcode.net y ahí vas a encontrar todo sobre codigos de barras y access.

Para la copia de seguridad el codigo que yo uso (y me funciona a la perfeccion)es el de abajo . Solo debes cambiar las rutas (c:\bases\restaurant....) del codigo por las tuyas. Suerte:

Option Compare Database

Private Declare Function CopiaBase Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Function copia_seg2()

If Len(Dir("C:\Bases\restaurant.mdb")) = 0 Then
MsgBox "No existe la base que debe copiarse. No se puede realizar la copia.", vbCritical, "AVISO"
Exit Function
End If
If Len(Dir("C:\Bases\backup bases\", vbDirectory)) = 0 Then
MsgBox "No existe el directorio de destino. Se creará la ruta C:\Bases\backup bases", vbCritical, "AVISO"
MkDir "C:\Bases\backup bases\"
End If
CopiaBase "C:\Bases\restaurant.mdb", _
"C:\Bases\backup bases\restaurantA.mdb", 0

If Dir("C:\Base\backup bases\restaurantA.mdb") <> "0" Then

MsgBox "La copia de seguridad se ha realizado con éxito"

Else

MsgBox "No se realizó la copia. Consulta con tu administrador"

End If
End Function