Problemer med mulituser access database

Hej blot et skud, er du sikker på at databasen er sat til åbning med delt adgang, du kan checkke det under indstillinger/avanceret

Ups, Funktioner/Indstillinger/Avanceret

Default open mode er sat til "Shared"

Og

Default record locking er sat til "No locks"

Så det er vel ok?

Hmm, ja det lyder fint nok, hvad med den form du nævner, hvad gør den, er der kode på formen e.t.c

Virker det hvis du feks. sætter en anden form til at være startop formen??

Der er masser af kode på formen. Når den starter op logger den brugeren i en tabel (her troede jeg faktisk problemt lå)

Private Sub Form_Open(Cancel As Integer)
  DoCmd.Maximize
End Sub

Private Sub Form_Load()
    Form_subQC.Visible = False 'sets the subQC form to be invisible
    Form_subQC.frameSelectData.value = 2
    Form_subQC.CheckZoom.value = 0
    Me.comboProject.value = ""
    Me.comboProject.SetFocus
    Me.comboProject.Dropdown
    Generel.writeLog
End Sub

Hvis jeg bruger en anden form kan den sagtens starte op :-(

De to kode events jeg postede har jeg prøvet at ukommentere og det virker heller ikke.

Okay, så må det være den sædvanlige startform der driller, hvad ligger der af kode på formen

Option Compare Database

Private Sub btnNewValues_Click()
' Code Header inserted by the Procedure Header Add-In
'=============================================================
' Form_QCDB.btnNewValues_Click
'-------------------------------------------------------------
' Purpose
' Author : Casper Rafn Møller, 09-16-2004
' Notes :
'-------------------------------------------------------------
' Parameters
'-----------
'
'-------------------------------------------------------------
' Returns:
'-------------------------------------------------------------
' Revision History
'-------------------------------------------------------------
' 09-16-2004 CRM:
'=============================================================
' End Code Header block
    DoCmd.OpenForm "newComboForm", acNormal
    Form_NewComboForm.SetFocus
End Sub



Private Sub cmdQuit_Click()
' Code Header inserted by the Procedure Header Add-In
'=============================================================
' Form_QCDB.cmdQuit_Click
'-------------------------------------------------------------
' Purpose
' Author : Casper Rafn Møller, 09-16-2004
' Notes :
'-------------------------------------------------------------
' Parameters
'-----------
'
'-------------------------------------------------------------
' Returns:
'-------------------------------------------------------------
' Revision History
'-------------------------------------------------------------
' 09-16-2004 CRM:
'=============================================================
' End Code Header block
    DoCmd.Quit
End Sub

Private Sub ComboAnalysis_GotFocus()
'Refresh the combobox with new values
    Me.ComboAnalysis.RowSource = "SELECT [Analysis].[analysisID]," & _
            "[Analysis].[analysisName] as Analysis , [Analysis].[protocolName] as Protocol " & _
            "FROM Analysis WHERE ProjectID = " & comboProject.value
End Sub

Private Sub ComboAnalysisParameter_GotFocus()
'Refresh the combobox with new values
    Me.ComboAnalysisParameter.RowSource = "SELECT [AnalysisParameter].[analysisParameterID], " & _
            "[AnalysisParameter].[analysisParameter] FROM AnalysisParameter WHERE " & _
            "analysisID = " & ComboAnalysis.value
End Sub
Private Sub ComboQC_GotFocus()
    Me.ComboQC.RowSource = "SELECT QC.qcID, QC.qcName AS QC,QC.standard as Standard, Qc.site as Site FROM QC WHERE " & _
                          "analysisParameterID = " & ComboAnalysisParameter.value
End Sub

Private Sub ComboProject_Change()
' Code Header inserted by the Procedure Header Add-In
'=============================================================
' Form_QCDB.ComboProject_Change
'-------------------------------------------------------------
' Purpose
' Author : Casper Rafn Møller, 09-16-2004
' Notes :
'-------------------------------------------------------------
' Parameters
'-----------
'
'-------------------------------------------------------------
' Returns:
'-------------------------------------------------------------
' Revision History
'-------------------------------------------------------------
' 09-16-2004 CRM:
'=============================================================
' End Code Header block
    Form_subQC.Visible = False
    Form_QCDB.btnOpenExportForm.Enabled = False
    'Selects new values for the Analysis combo box
    Me.ComboAnalysis.RowSource = "SELECT [Analysis].[analysisID]," & _
            "[Analysis].[analysisName] as Analysis , [Analysis].[protocolName] as Protocol " & _
            "FROM Analysis WHERE ProjectID = " & comboProject.value
 
    'Drops down the Analysis box for choosing a specific Analysis
    Me.ComboAnalysis.value = ""
    Me.ComboAnalysis.SetFocus
    Me.ComboAnalysis.Dropdown

End Sub
Private Sub ComboAnalysis_Change()
' Code Header inserted by the Procedure Header Add-In
'=============================================================
' Form_QCDB.ComboAnalysis_Change
'-------------------------------------------------------------
' Purpose
' Author : Casper Rafn Møller, 09-16-2004
' Notes :
'-------------------------------------------------------------
' Parameters
'-----------
'
'-------------------------------------------------------------
' Returns:
'-------------------------------------------------------------
' Revision History
'-------------------------------------------------------------
' 09-16-2004 CRM:
'=============================================================
' End Code Header block
   
    Form_subQC.Visible = False
    Form_QCDB.btnOpenExportForm.Enabled = False
    'Selects new values for the Analysisparameter combo box
    Me.ComboAnalysisParameter.RowSource = "SELECT [AnalysisParameter].[analysisParameterID], " & _
            "[AnalysisParameter].[analysisParameter] FROM AnalysisParameter WHERE " & _
            "analysisID = " & ComboAnalysis.value
   
    'Drops down the AnalysisProtocol box for choosing a specific protocol
    Me.ComboAnalysisParameter.value = ""
    Me.ComboAnalysisParameter.SetFocus
    Me.ComboAnalysisParameter.Dropdown
   
End Sub

Private Sub ComboAnalysisParameter_Change()
' Code Header inserted by the Procedure Header Add-In
'=============================================================
' Form_QCDB.ComboAnalysisParameter_Change
'-------------------------------------------------------------
' Purpose
' Author : Casper Rafn Møller, 09-16-2004
' Notes :
'-------------------------------------------------------------
' Parameters
'-----------
'
'-------------------------------------------------------------
' Returns:
'-------------------------------------------------------------
' Revision History
'-------------------------------------------------------------
' 09-16-2004 CRM:
'=============================================================
' End Code Header block
    Form_subQC.Visible = False
    Form_QCDB.btnOpenExportForm.Enabled = False
    'Selects new values for the QC combo box
    Me.ComboQC.RowSource = "SELECT QC.qcID, QC.qcName AS QC,QC.standard as Standard, Qc.site as Site FROM QC WHERE " & _
                          "analysisParameterID = " & ComboAnalysisParameter.value
   
    'Drops down the version box for choosing a specific version
    Me.ComboQC.value = ""
    Me.ComboQC.SetFocus
    Me.ComboQC.Dropdown
   
End Sub

Private Sub ComboQC_Change()
' Code Header inserted by the Procedure Header Add-In
'=============================================================
' Form_QCDB.ComboQC_Change
'-------------------------------------------------------------
' Purpose
' Author : Casper Rafn Møller, 09-16-2004
' Notes :
'-------------------------------------------------------------
' Parameters
'-----------
'
'-------------------------------------------------------------
' Returns:
'-------------------------------------------------------------
' Revision History
'-------------------------------------------------------------
' 09-16-2004 CRM:
'=============================================================
' End Code Header block
   
    DoCmd.Echo False, ""
    Form_QCDB.btnOpenExportForm.Enabled = False
   
    Form_subQC.filter = "([qcID] =" & ComboQC.value & ")" 'sets filter on subform QC
    Form_subQC.filterOn = True
    Form_subQC.Visible = True
    Form_subQC.TabChart.value = 0 ' sets tab to first page
   
    'Order data sheets after created date descending
    Form_frmCalcDataSheet.OrderBy = "created DESC"
    Form_frmCalcDataSheet.OrderByOn = True
    Form_frmDataSheet.OrderBy = "created DESC"
    Form_frmDataSheet.OrderByOn = True
   
    'Set the version list on the options sheet
    Call Form_subQC.setVersionList(ComboQC.value)
   
    'This sets the filter on the sub data forms
    Call Form_subQC.setSubFormFilter(True)
    Call Form_frmFilter.clearFilter
    'Do average calculation etc. for selected QC
    Form_subQC.doCalculations ("[qcID] =" & ComboQC.value & " " & Form_subQC.getVersionFilter("AND"))
    Call ModCalc.calcAVGIntra("[qcID] =" & ComboQC.value & " " & Form_subQC.getVersionFilter("AND"))
         
    DoCmd.Echo True, ""
End Sub

Public Sub refreshData()
    Form_subQC.filter = "([qcID] =" & ComboQC.value & ")" 'sets filter on subform QC
    Form_subQC.filterOn = True
    Form_subQC.Visible = True
    Form_subQC.TabChart.value = 0 ' sets tab to first page
   
    'Order data sheets after created date descending
    Form_frmCalcDataSheet.OrderBy = "created DESC"
    Form_frmCalcDataSheet.OrderByOn = True
    Form_frmDataSheet.OrderBy = "created DESC"
    Form_frmDataSheet.OrderByOn = True
   
    'Set the version list on the options sheet
    Call Form_subQC.setVersionList(ComboQC.value)
   
    'This sets the filter on the sub data forms
    Call Form_subQC.setSubFormFilter(True)
    'Call Form_frmFilter.clearFilter
    'Do average calculation etc. for selected QC
    Form_subQC.doCalculations ("[qcID] =" & ComboQC.value & " " & Form_subQC.getVersionFilter("AND"))
    'Call ModCalc.calcAVGIntra("[qcID] =" & ComboQC.value & " " & Form_subQC.getVersionFilter("AND"))
End Sub
Public Function getChartTitle() As String 'Function for retrieving the chart title
' Code Header inserted by the Procedure Header Add-In
'=============================================================
' Form_QCDB.getChartTitle
'-------------------------------------------------------------
' Purpose
' Author : Casper Rafn Møller, 09-16-2004
' Notes :
'-------------------------------------------------------------
' Parameters
'-----------
'
'-------------------------------------------------------------
' Returns:
'-------------------------------------------------------------
' Revision History
'-------------------------------------------------------------
' 09-16-2004 CRM:
'=============================================================
' End Code Header block
   
    getChartTitle = Me.comboProject.column(1) & " ; " & Me.ComboAnalysis.column(1) & " ( " & Me.ComboAnalysisParameter.column(1) & " ) " & vbchr & "QC: " & Me.ComboQC.column(1) & " (Standard: " & Me.ComboQC.column(2) & "): " & Me.ComboQC.column(3)
   
End Function



Private Sub Form_Load()
' Code Header inserted by the Procedure Header Add-In
'=============================================================
' Form_QCDB.Form_Load
'-------------------------------------------------------------
' Purpose
' Author : Casper Rafn Møller, 09-16-2004
' Notes :
'-------------------------------------------------------------
' Parameters
'-----------
'
'-------------------------------------------------------------
' Returns:
'-------------------------------------------------------------
' Revision History
'-------------------------------------------------------------
' 09-16-2004 CRM:
'=============================================================
' End Code Header block
   
'    Form_subQC.Visible = False 'sets the subQC form to be invisible
'    Form_subQC.frameSelectData.value = 2
'    Form_subQC.CheckZoom.value = 0
'    Me.comboProject.value = ""
'    Me.comboProject.SetFocus
'    Me.comboProject.Dropdown
'    Generel.writeLog
End Sub

Private Sub Form_Open(Cancel As Integer)
' Code Header inserted by the Procedure Header Add-In
'=============================================================
' Form_QCDB.Form_Open
'-------------------------------------------------------------
' Purpose
' Author : Casper Rafn Møller, 09-16-2004
' Notes :
'-------------------------------------------------------------
' Parameters
'-----------
' Cancel (Integer)
'-------------------------------------------------------------
' Returns:
'-------------------------------------------------------------
' Revision History
'-------------------------------------------------------------
' 09-16-2004 CRM:
'=============================================================
' End Code Header block
    'RunCommand acCmdSizeToFitForm
    DoCmd.Maximize
End Sub

Private Sub btnOpenExportForm_Click()
On Error GoTo Err_Command41_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmExportGraph"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command41_Click:
    Exit Sub

Err_Command41_Click:
    MsgBox err.Description
    Resume Exit_Command41_Click
End Sub

Nogen gange går der kuk i formstrukturen, jeg forslår at du opretter en en startform (med et andent navn), og tilpasser den så den gør det samme som den nuværende form, dette kan måske afhjæpe problemet, men er ikke sikker

Elles er jeg desværre blank :(o

Men det er kun de to events

Private Sub Form_Open(Cancel As Integer)
Private Sub Form_Load()

Som bliver kørt.... tror jeg

vi snakker over timers arbejde her, det kommer til at ødelægge min dag. :-( men tak for forsøget.

Selv tak, og held og lykke med det

Kan du starte "startformen" fra en anden form og så bruge den som startform!!!

eks. Lav en forside/billede hvad ved jeg, sæt timeren til et par sekunder og så starte din oprindelige startform op?~)

Jo det er en mulighed men jeg prøver lige at lave en ny "version" af min start form, vender lige tilbage.

Hvis den har virket fint hidtil, så prøv at oprette en ny database og importér alle elementer fra din nuværende database over i den nye. Læg den nye database ud på serveren og se hvordan den opfører sig. Access´ veje er nogen gange uransalige :o) og det burde ikke tage mere end et par minutter at lave eksperimentet

Jeg er nød til at løbe, kigger forbi i morgen!~)

Held og lykke....

Prøvede lige at fjerne en subform fra min "start form" herefter virker det. hmmm

Hvis man kan skrive/ændre data i den subform, som er på din opstartsform, kan det godt være årsagen, prøv evt, at tjekke åbningstilstanden på din db igen og kig på låsning af tabeller

Mente åbne databaser med låsning på postniveu, er der flueben her, så prøv at fjerne det

Det kan man godt. Hvad skal jeg kigge efter under åbningstilstanden ?

der er ikke noget flueben der.

Funktioner/Indstillinger/Avanceret, prøv at fjerne fluebenet i "åben databaser med låsning på postniveu"

Okay, det er nu helt tydeligt at det er noget med en eller flere subforms på din startop form, men hvad kan jeg ikkke lige gennemskue, skrives der poster til en eller flere tabeller automatisk når din startform åbens??

Har du ændret i din opstartsform eller den tilhørende subform, siden sidste version, som virkede?

Der bliver ikke skrevet noget før man har valgt nogle parametre på selve "start formen". herefet viser den min sub form som har yderligere nested to subforms. Altså 3 lag af subforms. Hvortil den har skrevet nogle beregninger udffra de valg der er blevet foretaget.

Jeg har ændret en del siden sidst.

Hvis jeg fjerne "allow edit" ,"allow additions" osv på alle mine subforms har jeg stadig det samme problem.

Hmm, er som sagt ved at være blank her, måske claesdamlund kan se det med andre øjne, eller måske det ligger på PC-niveu hos den enkelte bruger, eller på serveren

claesdamlund -> Jeg prøved at lave en tom database også importere alt over i den. lagt det op på vores server og nu ser det ud som om det virker. Hvorfor gjorde jeg ikke som du sagde med det samme :-)

Så tak for hjælpen alle sammen, og gider du at smide et svar claesdamlund for din løsning.

Som sagt Access kan være lidt forudsigelig ind imellem - men det er sikkert bare en feature :o)
Håber det fortsætter med at virke!

forudsigelig = uforudsigelig!