It's funny, I'm just looking for the same problem at the same time. I give u my start so we can think together:
'Use the form timer and look over the filesize
'If filesize bigger then a value then look for other users and log them off. It's just in a very low stage but I get a good look next week no more time now. Succes!Gerard
'Private Sub Form_Timer()
'Dim strFileName As String, tempstrFileName As String
'strFileName = "H:\Gerard\Acquisitie_be.mdb"
'tempstrFileName = "H:\Gerard\Acquisitie_bek.mdb"
'If TrackFileSize > 6 Then
' If TrackUsers > 1 Then
' If waarschuwUser_flag Then
' BerichtWeergeven "U heeft nog 2 minuten de tijd om af te maken waar u mee bezig bent." & vbNewLine & _
' "Hierna zult u automatisch uitgelogd worden......"
' waarschuwUser_flag = False
' Exit Sub
' Else
' Application.Quit
' End If
' Else
' Application.Quit
' DBEngine.CompactDatabase strFileName, tempstrFileName
' Kill strFileName
' Name tempstrFileName As strFileName
' End If
'End If
'End Sub
'' Make sure you have a reference to the
'' Microsoft DAO x.x Object Library
'Public Function TrackFileSize() As Integer
'
'Dim filename As String
'Dim filepath As String
'Dim filelength As Integer
'
' filepath = "H:\Gerard\"
' filename = Dir("H:\Gerard\ACQUISITIE_be.mdb"

'
' TrackFileSize = FileLen(filepath & filename) / 1000 / 1000
'End Function
'Public Function TrackUsers() As Integer
' TrackUsers = Nz(DCount("UserID", "tblLoggedOn"

, 0)
'End Function