Hi

1.Well - "none of the code works" ... means that chunks of code such as the
one below will bo nothing! No messages or anything!

However other things such as an event procedure for a form open event will
work ... it contains simple Docmd statements.

2. I will suggest to their sysadmin to install SP3.

3. Right now both the front end and the backend table files (_be) reside in
the network directory. I'm not sure if this is the cause but I will try
moving the front end to each user's machine and leaving the data file on the
network.

Curiously though, on my end (single user) everything runs fine.

Code Sample that Does not work:

Private Sub cmdSaveEthSel_Click()

On Error GoTo Err_cmdSaveEthSel_Click

   If IsNull(Forms!frm_CreateResource!OrgID) Then
       Interaction.MsgBox "You must have an Organization selected to add
Ethnicities", vbInformation, ""
       Exit Sub
   Else
     If Forms!frm_CreateResource!EthList.ItemsSelected.Count = 0 Then
         Interaction.MsgBox "Please choose an Ethnicity and try again.",
vbInformation, ""
        Exit Sub
     End If
   End If
       
   Dim frm As Form, ctl As Control
   Dim varItm As Variant
   Dim intI As Integer
   Dim strSQL As String
   Dim MyDB As Database
   
   Set MyDB = CurrentDb
   Set frm = Forms!frm_CreateResource
   Set ctl = frm!EthList

   For Each varItm In ctl.ItemsSelected

           strSQL = "INSERT INTO tbl_EthnicitiesServed (EthServedOrgID,
EthID) "
           strSQL = strSQL & "VALUES(" & frm!OrgID & "," & ctl.ItemData
(varItm) & ")" & ";"
           
           Debug.Print strSQL
           
           MyDB.Execute strSQL
           
           ctl.Selected(varItm) = False

   Next varItm

EthServedList.Requery

Set MyDB = Nothing
Set frm = Nothing
Set ctl = Nothing

Exit_cmdSaveEthSel_Click:
   Exit Sub
   
Err_cmdSaveEthSel_Click:
   MsgBox Err.Description
   Resume Exit_cmdSaveEthSel_Click
     
End Sub