| Pregunta: | 62933 - CONTROL DE ACCESO A TABLAS ACCESS |
| Autor: | Mig |
| Tengo una base de datos access en red. .mde que conectan a una .mdb
Me gustaria almacenar en una tabla qué nombre de PC (de la red) accede a la base de datos, la tabla a la cual accede y la hora. Es un poco complicadillo pero si teneis alguna idea me ayudaría. Saludos! | |
| Respuesta: | Gonzalo Aranda |
| Puedes copiar este codigo en un modulo y llamarlo desde un campo en un formulario, despues almacenarlo en una tabla,
------ Option Compare Database Option Explicit Public Tipo_Imp As Integer Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function Nombre_Equipo() As String Dim Cadena As String Cadena = Space(256) GetComputerName Cadena, 256 Cadena = RTrim(Cadena) Nombre_Equipo = Left(Cadena, Len(Cadena) - 1) End Function | |