Run-time error 3051 Read-only
Posted on 1998-12-17
I have a dataControl on a form, read-only is False with the connect property dBase IV. I try to open an other file with the connect property dbase IV with read-only true, but i'm not able. I have the error message: Run-time error 3051,cannot open file d:\electr. it's already open by another user, you need permission to view data.
DataSoumis is set in the property window.
Here is my code:
Dim WSpace As Workspace
Dim dbCli As Database
Dim rstSoumis As Recordset
Dim rstCli As Recordset
Set rstSoumis = DataSoumis.Recordset
Set WSpace = DBEngine.Workspaces(0)
Set dbCli = WSpace.OpenDatabase(App.Path, , True, "dBASEIV;")
Set rstCli = dbCli.OpenRecordset("CLIENTS", dbOpenTable)
HELP ME IF YOU CAN PLEASE, THANK'S A LOT.