>Hi,
>Check that the read only attributes aren't set on the exe or the data files.


>>ei!!! peace!!!
>>
>>i shared my program into a network, and it cannot access if another user using it. give me some tips on how to share it in multiuser and some sample codes on how to add new record or update a record in a network....
>>
>>thanks!!!

If a single user can update or insert a new record to your data

it means you created a single user.


You have to make it sure that you issue some commands using SET:

Set Exclusive off

If your tables are part of a DATABASE Container, be sure to open your

database in shared mode.

You can issue the command :

OPEN DATA <I>your_database_name</I> shared

This commands depends if you manually loading your data from your forms

Load Event Procedure

On My case, I Manually load my DATABASE and its table manually form by
form instead of opening on my main programs(prg..) like this:

I Mostly put under LOAD Procedure of my forms..

IF !DBUSED("MY_DATABASE_NAME")
         OPEN DATA DATA\MY_DATABASE_NAME SHARED
     ENDIF
     */* Open a table
     If USED("Customers")
        Select("Customers")
        Set Order to Tag "my_tag_name"
     ELSE
         Use customers in 0 order tag "my_tag_name" shared
     ENDIF
     SELECT("CUSTOMERS")
     GO TOP

Adding new Record, u can use Insert command, or append blank

Note: I used 3 Field on my sample, add according to your table fields.

SELECT("CUSTOMERS") && Change to your own Table Name..
APPEND BLANK   && YOU CAN ISSUE A RECORD LOCK OR CHECK TO TRAP ERROR WHEN
IF !ISRLOCKED()&& YOU & OTHER USERS APPEND RECORD AT THE SAME TIME
    RLOCK()   &&
    REPLACE FIELD_NAME1 WITH cVar1,;
        FIELD_NAME2 WITH cVar2,;
        FIELD_NAME3 WITH cVAR3
    UNLOCK
ENDIF

OR LOCK the record when you just appended a blank record.

You can LOCK the Whole Table if you prepare 1 user appending records at a time by issueing the command FLOCK, but dont forget to UNLOCK it to give access to other user.


Updating of Records,


You can use Update Into commands, or just use the replace command..

SELECT("CUSTOMERS") && Change to your own Table Name..
IF RLOCK() && IF you didn't issue Automatic Locking
    REPLACE FIELD_NAME1 WITH cVar1,;
        FIELD_NAME2 WITH cVar2,;
        FIELD_NAME3 WITH cVAR3
    UNLOCK
ELSE
 && IF CANNOT LOCK RECORDS
 && YOU HAVE TO INFORM THE USER WHATS GOING ON AND<BR>
 && IF YOU DIDN'T ISSUE <I>SET REPROCESS</I> nSECONDS
ENDIF

Hope you can get some a TIP... There's a lot of command you can use.. check on your VFP Help System and look for record locking.


By the way, if you Issue a record LOCK or FILE LOCK without unlocking can cause the message File in use/access denied.