Udelt adgang

http://www.mvps.org/access/general/gen0034.htm

This can be an idea too

http://www.fmsinc.com/products/Admin/index.asp

det du kan gøre er at dele databasen op i frontend og backend også ligge en version lokalt på de enkelte pc'er  lave et vb-script der tjekke om en given fil på serveren er nye en den lokal og i givet fald kopiere den til den lokale pc
så kan du ligge en frontend på sever  denne kan du så opdatere som du vil.

Jeg undersøger mulighederne!

jeg kan give dig et eks. på det vb- script hvis det er løsningen du vælger

Hej Juks.

Ja, lad os bare prøve!

er det på XP eller W2K

altså windows versionen

W2K

ok så er det lige til der er nemlig en masse problemer i xp med omskrivning og work arounds

Dim fs, f, s, fs1, f1, s1, filespec1, filespec, fso, f2

filespec1 = ("\\server\Databaser\frontend\hdb.mdb")
  Set fs1 = CreateObject("Scripting.FileSystemObject")
    filespec = ("c:\databaser\db.mdb")
  Set fs = CreateObject("Scripting.FileSystemObject")

If fs.FileExists(filespec) And fs1.FileExists(filespec1) Then

      Set f1 = fs1.GetFile(filespec1)
    s1 = s1 & f1.DateLastModified
    Set f = fs.GetFile(filespec)
    s = s & f.DateLastModified
If s > s1 Then
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run filespec
Set WshShell = Nothing
Else
Set WshShell = CreateObject("WScript.Shell")
WshShell.Popup "Ny version af databasen" & vbCrLf & "vent venligst! ", 2, "Opdatering Af frontend", 32




  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f2 = fso.GetFile(filespec1)
  f2.Copy (filespec)
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run filespec
Set WshShell = Nothing

End If
Else
If fs.FileExists(filespec) Then
msgbox " Du er ikke tilknyttet serveren" & vbCrLf & "Opdatering af frontenden ikke muligt" & vbCrLf & "Såfremt du er til knyttet serveren kontakt JHC 20706424"
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run filespec

Else
Set WshShell = CreateObject("WScript.Shell")
WshShell.Popup "Der er ingen frontend lokalt" & vbCrLf & "vent venligst  medens kopieringen foretages! ", 2, "Opdatering Af frontend", 32

Set WshShell = Nothing
Set fso = CreateObject("Scripting.FileSystemObject")
  Set f2 = fso.GetFile(filespec1)
  f2.Copy (filespec)
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run filespec

  End If
  End If

Hej Juks.

Jeg prøver,vender tilbage imorgen.
(Roder med et andet problem).

har heller ik mer tid idag eller imorgen held og lykke

Hej juks.

Den var sej! Men det virker!!!
Point og tak for hjælpen til dig fra mig

Motek :0))

det er en meget smart løsning synes jeg da selv

Nemlig!!

Er der nogen der vil fortælle mig hvordan man lægger juks´ script ind? skal jeg bare lave et nyt modul og kopiere scriptet ind i og tilpasse til mine dbs navne?, hvordan får jeg den til at afspille det ved startup?

Jeg vil gerne give point for et svar