Nota del autor: Esta es la parte 3 de una serie sobre tablas sin DSN en Access.

Puedes revisar la primera parte aquí. Parte 2 aquí. Parte 4 aquí.

En la tercera parte de esta serie, le daré el código para eliminar todas sus tablas vinculadas una vez que se cierre la aplicación. Eliminar sus enlaces hace que su aplicación sea segura ya que tanto el nombre del usuario como la contraseña se almacenan en las tablas vinculadas. Puede que no sea un gran problema en una red de área local, pero si su aplicación está utilizando SQL Server en la nube, puede ser un problema de seguridad.

¿Dónde colocar tu código?

En nuestra tienda tenemos un formulario principal que se inicia en cada aplicación, por lo que colocamos el siguiente código en el evento cerrado del formulario:

Private Sub Form_Close()
   'delete any tables where connection property has ODBC in it
   Dim tdf As DAO.TableDef
StartAgain:
 For Each tdf In CurrentDb.TableDefs
    If InStr(1, tdf.Connect, "ODBC") > 0 Then
       DoCmd.DeleteObject acTable, tdf.Name
       GoTo StartAgain
    End If
 Next tdf
 Set tdf = Nothing

Observe el uso de la etiqueta «StartAgain» cuando elimina una tabla, cambia la colección tabledef y necesita comenzar de nuevo para actualizarla, de lo contrario, el código generará un error.

La próxima semana: Cambiando de la producción a la base de datos Beta simplemente cambiando el nombre del archivo de Access.