Urgent -- Error 3027

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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.
 
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 ?
 
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.
 
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?
 
Back
Top