help needed by a newbie - saving multi select values to a table

[lrheeza]

Hello,

i am a newbie at ms access, please help

this is a code i created to be able to get the multiple users i have selected in the form. i was able to select the users in the form an select folder however i am unable to save the user name to the table. i am able to save the folder name. what should i do?

 
  Dim vtr As Variant
    Dim frm As Form, ctl As Control
    Set frm = Forms!Form_Assign
    ctl = frm!listFolderUserList
    ctr = ctl.ItemsSelected.count
 
    If ctr > 0 Then
        selList = ctl.ItemsSelected
        FolderID = Me.FolderName.Value
        For Each vtr In Me.listFolderUserList.ItemsSelected
          usrID = Me.listFolderUserList.ItemData(vtr)
          sqlStr = "Insert into FolderLDAP (FolderID, UserID) " _
          + "(" + FolderID + "," + usrID + ")"
          CurrentDb.Execute sqlStr, dbFailOnError
 
      Next
    End If
 
 

please help!

thanks,
lyanne

[ADezii]

Hello,

i am a newbie at ms access, please help

this is a code i created to be able to get the multiple users i have selected in the form. i was able to select the users in the form an select folder however i am unable to save the user name to the table. i am able to save the folder name. what should i do?

 
  Dim vtr As Variant
    Dim frm As Form, ctl As Control
    Set frm = Forms!Form_Assign
    ctl = frm!listFolderUserList
    ctr = ctl.ItemsSelected.count
 
    If ctr > 0 Then
        selList = ctl.ItemsSelected
        FolderID = Me.FolderName.Value
        For Each vtr In Me.listFolderUserList.ItemsSelected
          usrID = Me.listFolderUserList.ItemData(vtr)
          sqlStr = "Insert into FolderLDAP (FolderID, UserID) " _
          + "(" + FolderID + "," + usrID + ")"
          CurrentDb.Execute sqlStr, dbFailOnError
 
      Next
    End If
 
 

please help!

thanks,
lyanne

Assuming [FolderID] and [UserID] are Text, which you seem to indicate, the following code will do the trick:

Dim vtr As Variant, frm As Form, ctl As Control
 
Set frm = Forms!Form_Assign
Set ctl = frm!listFolderUserList
 
ctr = ctl.ItemsSelected.Count
 
If ctr > 0 And Not IsNull(Me![FolderName]) Then
  FolderID = Me.FolderName.Value
  For Each vtr In Me.listFolderUserList.ItemsSelected
     usrID = Me.listFolderUserList.ItemData(vtr)
     sqlStr = "Insert into FolderLDAP (FolderID, UserID) " + "Values ('" + FolderID + "', '" + usrID + "')"
       CurrentDb.Execute sqlStr, dbFailOnError
  Next
End If

[lrheeza]

FolderID is a number - PK and User ID is a text, is that the reason there is an error?

[ADezii]

FolderID is a number - PK and User ID is a text, is that the reason there is an error?

More than likely it is.