Hi all, I've made some minor modification to an application in access 2000. 
Now when I use my application and try to update my data, I get an error 3027
Can't update, database or object is readonly.

The problem is that I don't know why it happens since I only made changes to
my report.  Prior than that my application was wroking fine.

Any idea would be very helpfull

Try completely closing the Access app and then restarting. If that doesn't
work, try rebooting your machine. If that doesn't work, post back.

Show quoteHide quote

No it didn't do anything.  The error is when I try to do recordset.edit. 
Could it be a service pack or a patch ?

Show quoteHide quote

When I open my recordset I do it with Openresultset.  I can read data but not
editing it.  It work on some tables and on other tables it doesn't work.

Hope this can help.

Show quoteHide quote

OpenResultSet is a custom function that is used in all the application and
goes as follow

Public Function OpenResultSet(Table As String, Optional WhereCl As String,
Optional OrderByCl As String, Optional ByVal SelectDistinct As Boolean =
False, Optional ExactRowCount As Boolean = False) As Recordset
    Dim chSQL As String
    Dim chSelectCl As String
    Dim chFromCl As String
    Dim chWhereCl As String
    Dim chOrderByCl As String

    On Error GoTo ErrOpenResultSet

    Set prBaseDonnee = CurrentDb

    If SelectDistinct Then
        chSelectCl = "SELECT DISTINCT *"
    Else
        chSelectCl = "SELECT *"
    End If
    chFromCl = " FROM " & Table
    chWhereCl = IIf(WhereCl = "", "", " WHERE " & WhereCl)
    chOrderByCl = IIf(OrderByCl = "", "", " ORDER BY " & OrderByCl)

    chSQL = chSelectCl & chFromCl & chWhereCl & chOrderByCl
    Set prDefinitionRequete = prBaseDonnee.CreateQueryDef("", chSQL)
    prDefinitionRequete.MaxRecords = 0

    Set OpenResultSet = prDefinitionRequete.OpenRecordset     
    With OpenResultSet
        If Not .RecordCount = 0 Then
            .MoveFirst
            If ExactRowCount Then
                .MoveLast  
                .MoveFirst
            End If
        End If
    End With
    Exit Function

ErrOpenResultSet:
    MsgBox ErrOpenResultSet & Table & vbCrLf & Err.Number & Err.Description,
vbCritical, ErrOpenResultSetTitre
End Function

What changes did you make? You mentioned you changed a report. Did you
change anything else? Add a reference? What version of Acces are you using?

Show quoteHide quote

Using ADODB.Recordset to a DB with Workgroup Security
Securtiy
I used to be able to alt-tab between Excel workbooks in one sessi.